正在加载图片...
我们先来看 page. aspx的代码: <!-源文件: formlweb页面简介 Apage. aspx-> <% Register Tag Prefix= <htm> 登录演示< title> script language="VB"runat="server Sub Page Load(Sender As Object, E As EventArgs) If( Page. IsPost Back) MyLabe.Text&="用户名:"& MyLogin Userid&"<br> MyLabel Text &="219: " MyLogin Password &"<br>" End lf End Sub < center><h3>登录</h3></ center. <form runat"server>> Acme: Login id="MyLogin"Userld=t"Password=" Back Color="beige"runat="server"A </form> <asp: Label id="MyLabel" runat="server"/> <html> 在这个文件中,我们使用了 Page Onload事件的 IsPostBack属性,用来显示用户登录 时的用户名和密码 在来看一下 page. ascx文件 <!-源文件: formlweb页面简介 Apage.ascx-> <script language="VB"runat="server"> Public Back Color As String="white" Public Property Userld As String Return User Name. Text End get User Name. Text value End set End Property Public Property Password As String Return Pass Text End get Pass Text= value End set End Property 第5页共132页第二篇 Web Form 第 5 页 共 132 页 我们先来看 page.aspx 的代码： <!--源文件：form\web 页面简介\page.aspx--> <%@ Register TagPrefix="Acme" TagName="Login" Src="page.ascx" %> <html> <title>登录演示</title> <script language="VB" runat="server"> Sub Page_Load(Sender As Object, E As EventArgs) If (Page.IsPostBack) MyLabel.Text &= "用户名：" & MyLogin.UserId & "<br>" MyLabel.Text &= "密码： " & MyLogin.Password & "<br>" End If End Sub </script> <body style="font: 10pt verdana"> <center> <h3>登录</h3></center> <form runat="server"> <Acme:Login id="MyLogin" UserId="" Password="" BackColor="beige" runat="server"/> </form> <asp:Label id="MyLabel" runat="server"/> </body> </html> 在这个文件中，我们使用了 Page_OnLoad 事件的 IsPostBack 属性，用来显示用户登录 时的用户名和密码。 在来看一下 page.ascx 文件： <!--源文件：form\web 页面简介\page.ascx--> <script language="VB" runat="server"> Public BackColor As String = "white" Public Property UserId As String Get Return UserName.Text End Get Set UserName.Text = Value End Set End Property Public Property Password As String Get Return Pass.Text End Get Set Pass.Text = Value End Set End Property </script>