📄 default.aspx
字号:
<%@ Import Namespace="system.Data" %>
<%@ Import Namespace="system.Data.Oledb" %>
<%@ Page Language="VB" Debug="true" %>
<HTML>
<HEAD>
<TITLE>网上考试系统</TITLE>
<Script Language="VB" runat="server">
Dim conn as OleDbConnection
Dim conStr,comStr as String
Sub Page_Load(Sender As object,e As Eventargs)
conStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("EXAM.MDB")
conn = New OleDbConnection(conStr)
Conn.Open()
End Sub
Sub OnLogin_Click(Sender As Object, e As EventArgs)
Dim com as OleDbCommand
ComStr = "Select Power,UserID From user1 Where UserName='" & Trim(Name.Text) & "' And Pwd='" & Trim(Pwd.Text) & "'"
Com = New OleDbCommand(ComStr,conn)
Dim rd as OledbDataReader
rd = Com.ExecuteReader()
if not rd.Read() then
Label1.Text="用户名、密码有误！"
exit sub
end if
if rd.Item(0)="管理员" then
Response.Redirect("admin.aspx")
else
Session("username") = Name.Text
Session("pwd") = Pwd.Text
Session("userid") = rd.Item(1)
Response.Redirect("Exam.aspx")
end if
End Sub
</script>
</HEAD>
<BODY>
<FORM runat="Server">
<p>
<p>
<CENTER>
<FONT size=6 COLOR="Blue">网上考试系统</FONT>
<HR><P align="center">
<asp:Label id="Bulletin" ForeColor="Blue" runat="server">用户登陆</asp:Label><P>
姓 名：<asp:TextBox id="Name" runat="server" size="14"/>
<asp:RequiredFieldValidator id="NameValid" ControlToValidate="Name" runat="server">
(请输入姓名！)
</asp:RequiredFieldValidator><p>
密 码：<asp:TextBox id="Pwd" TextMode="Password" runat="server" size="16"/>
<asp:RequiredFieldValidator id="PwdValid" ControlToValidate="Pwd" runat="server">
(请输入密码！)
</asp:RequiredFieldValidator><p>
<asp:Button id="Login" Text="登 陆" Runat="server" OnClick="OnLogin_Click"/>
<asp:Hyperlink id="Return1" Text="返 回" Runat="server" NavigateUrl="main.aspx"/>
<asp:Label id="label1" runat="server"/>
</FORM>
</CENTER>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -