|
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] 下一页
[C语言系列]NET 中C#的switch语句的语法 [系统软件]托拽Explore中的文件到VB.net的窗口
[系统软件]Boost库在XP+Visual C++.net中的安装 [常用软件]新配色面板：Paint.Net3.0RC1官方下载
[常用软件]用内建的“Net Meeting”聊天 [VB.NET程序]Henry的VB.NET之旅（三）—共享成员
[VB.NET程序]Henry的VB.NET之旅（二）—构造与析构 [VB.NET程序]Henry的VB.NET之旅（一）—失踪的窗体
[VB.NET程序]在托盘上显示Balloon Tooltip（VB.NET） [VB.NET程序]Henry手记－VB.NET中动态加载Treeview节点（二）
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
