| Label1.Text &= "登录成功" & "<br>"
session("ok") = "" & dt.Rows(i).Item(m) & "<br>"
response.redirect ("first.aspx")
Else
isok=false
Label1.Text &= "user: " & userid & "<br>"
Label1.Text &= "password: " & password & "<br>"
Label1.Text &= "登录失败" & "<br>"
End If
end if
end if
end if
else
exit sub
end if
End sub
</script>
<Html>
<title>我的登录页面</title>
<Body BgColor="White">
<wangmg:header id ="header1" runat="server" title="我的第一个Header"/>
<H3>登录页面<Hr></H3>
<form runat=server>
<Table BgColor="white" BorderColor="Black"
Cellspacing="10">
<tr>
<td>姓名:</td>
<td><asp:TextBox id="Text1" runat="server"/>
<asp:regularexpressionvalidator id="valid1" runat="server" controltovalidate="text1"
validationexpression="[a-zA-Z0-9]{4,10}">
(请输入4-10位字符)
</asp:regularexpressionvalidator><p>
</td>
</tr>
<tr>
<td>密码:</td>
<td><asp:TextBox id="Text2" TextMode="Password" runat="server"/>
<asp:regularexpressionvalidator id="valid2" runat="server" controltovalidate="text2"
validationexpression="[a-zA-Z0-9]{4,8}">
(请输入4-8位字符)
</asp:regularexpressionvalidator><p>
</td>
</tr>
<tr>
<td></td>
<td><asp:Button id="button1" Text="确定" runat="server" onclick="IsLoginOK"/></td>
</tr>
</table>
</form>
<asp:Label id="Label1" runat="server"/>
<asp:Label id="Label2" runat="server"/>
<wangmg:footer id="footer1" runat="server"/>
</body>
</html>
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>
<Table border="1" cellpadding="2" cellspacing="0"
width="100%" bgcolor="#AAAADD">
<tr>
<td align="center"><font size="4">
<B><asp:Label id="Label1" runat="server"/>
</B></font>
</td>
</tr>
</Table>
<Div Align="right"><Address><Font Size="-1">
上一页 [1] [2] [3] [4] 下一页 | 
