TagPrefix：Pagelet类别前导名称，本例是：wangmg。

   经过以上的设定之后，header.ascx、footer.ascx将成为网页可以引用的Pagelet，而Pagelet的类别名称是：“wangmg:Table”，定义了类别名称之后，在网页中布置控制元件的标记如下：

<wangmg:header id ="header1" runat="server" title="我的第一个Header"/>

除了必须利用<%@ register %>登录Pagelet之外，使用Pagelet的方法与使用asp.netweb控制元件的方法是完全相同的，也一样可以为Pagelet设定id，也一样要将runat属性设定成“server”。

接下去我们看看header.ascx、footer.ascx

header.ascx：

<script language="vb" runat="server">

public title as string

sub page_load(sender as object,e as eventargs)

label1.text=title

label2.text=cstr(filedatetime(server.mappath(request.filepath)))

end sub

</script>

footer.ascx:

<a href="http://asp.6to23.com/musclecn" target="_top">

学习asp.net找我</a>

在这个页面里设定了title变量，然后在login.aspx页面里定义它的具体内容

<wangmg:header id ="header1" runat="server" title="我的第一个Header"/>

附：login.aspx：

<%@ register tagprefix="wangmg" tagname="header" src="header.ascx" %>

<%@ register tagprefix="wangmg" tagname="footer" src="footer.ascx" %>

<%@ Import Namespace="System.Data" %>

<%@ Import Namespace="System.Data.OleDb" %>

<script language="VB" runat="server">

  sub IsLoginOK (Sender As Object, E As EventArgs)

   if page.isvalid then

      Dim Provider, SQL, ConnStr As String

      dim userid,password,isok as string

      userid=trim(text1.text)

      password=trim(text2.text)

  if userid="" and password=""then

  Label2.Text &= "请输入姓名和密码！"

exit sub

else

if userid=""then

  Label2.Text &= "请输入姓名！"

exit sub

else

if password=""then

  Label2.Text &= "请输入密码！"

exit sub

else

      Provider = "Microsoft.Jet.OLEDB.4.0;"

      ConnStr = "Provider=" & Provider & _

           "Data Source=" & Server.MapPath( "Sample.mdb" )

      Dim Conn As OleDbConnection = New OleDbConnection( ConnStr )

      Conn.Open()

      SQL = "Select * From Users Where UserID=''''" & UserID & _

            "'''' And Password=''''" & Password & "''''"

      Dim Cmd As OleDbCommand

      Cmd = New OleDbCommand( SQL, Conn )

      Dim Adapter As OleDbDataAdapter = New OleDbDataAdapter

      Adapter.SelectCommand = Cmd

      Dim ds As DataSet = new DataSet()

      Adapter.Fill(ds, "Users")

      Dim dt As DataTable = ds.Tables("Users")

       If dt.Rows.Count > 0 Then

        isok=true

        dim i,m as integer

       i=0

       m=3

       Label1.Text &= "user: " & userid & "<br>"

       Label1.Text &= "password: " & password & "<br>"

上一页  [1] [2] [3] [4]  下一页