📄 register.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 Button_Click(Sender As Object, e As EventArgs)
Dim com as OleDbCommand
ComStr = "Select UserName From user1 Where UserName='" & Trim(Name.Text) & "'"
Com = New OleDbCommand(ComStr,conn)
Dim rd as OledbDataReader
rd = Com.ExecuteReader()
if rd.Read() then
rd.close
Message.Text="注册失败！此用户名已经有人使用，请选择另一个用户名重新注册。"
exit sub
else
ComStr="insert into user1(UserName,Pwd) values('" & Name.Text & "','" & Pwd.Text & "')"
Com = New OleDbCommand(ComStr,conn)
rd.close
Com.ExecuteNonQuery()
conn.close
Response.Redirect("regSuccess.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="Message" Forecolor="Red" runat="server"/><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:TextBox id="RePwd" TextMode="Password" runat="server" size="16"/>
<asp:RequiredFieldValidator id="RePwdValid" ControlToValidate="RePwd" runat="server">
(请输入确认密码！)
</asp:RequiredFieldValidator><p>
<asp:comparevalidator id="comparePwd" controltovalidate="RePwd" controltocompare="Pwd" errormessage="注册失败！密码输入有误。" runat="server"/><P>
<asp:Button id="Entry" Text="注 册" Runat="server" OnClick="Button_Click"/>
<asp:Hyperlink id="Return" Text="返 回" Runat="server" NavigateUrl="main.aspx"/>
</FORM>
</CENTER>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -