Конкретизирую проблему: имею страницу, в которой пользовательский контрол, в который должен выводиться текст из текстового файла. Файл определяется в зависимости от параметров в URL - article и part. Имя файла в таком случае, если например article = 1 и part = 2, будет 1.2.txt, если URL без параметров то открывается файл about.workshop.txt. workshop.aspx ... <%@ Register TagPrefix="hedge" TagName="outputArea" src="user_controls/workshop.output.area.ascx" %> < SCRIPT language="vb" runat="server">Dim Article As StringDim Part As StringSub GetParameters()Article = Request.QueryString("article") Part = Request.QueryString("part") If Article Is Nothing Then Article = "0"If Part Is Nothing Then Part = "0"End SubSub Page_Load(Sender As Object, E As EventArgs)GetParameters outputControl.Article = Int32.Parse(Article) outputControl.Part = Int32.Parse(Part) outputControl.PrintArticle() End Sub</ SCRIPT>.......... страница и все такое ................ < HEDGE:OUTPUTAREA id="outputControl" runat="server" />.......... страница и все такое ................ и сам контрол workshop.output.area.ascx <%@ Import Namespace="System.IO" %> <%@ Import Namespace="System.IO" %> <%@ Control Language="vb" AutoEventWireup="false" Codebehind="workshop.output.area.ascx.vb" Inherits="hedgehog.net.workshop_output_area" TargetSchema="http://schemas.microsoft.com/intellisense/ie5" %> < SCRIPT language="vb" runat="server">Private _Article As IntegerPrivate _Part As IntegerPublic WriteOnly Property Article As IntegerSet(Value As Integer)_Article = Value End SetEnd PropertyPublic WriteOnly Property Part As IntegerSet(Value As Integer)_Part = Value End SetEnd PropertyPublic Sub PrintArticle()Dim strPath As String If _Article > 0 And _Part > 0 ThenstrPath = Server.MapPath("articles/" & _Article & "." & _Part & ".txt") ElsestrPath = Server.MapPath("articles/about.workshop.txt") <
Ответить
|