📄 regist.aspx
字号:
<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<script runat="server">
' Insert page code here
'
Sub Button2_Click(sender As Object, e As EventArgs)
textbox1.text=""
textbox2.text=""
textbox3.text=""
label1.text="请认真填写"
End Sub
Sub Button1_Click(sender As Object, e As EventArgs)
if textbox3.text="123" then
dim conn as new OleDbConnection()
dim cmd as new OleDbCommand()
dim stu1 as new DataSet()
dim DtAdpt as new OleDbDataAdapter(cmd)
conn.ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("Student.mdb")
conn.Open()
cmd.Connection=conn
cmd.CommandText= "insert into manage values(?,?)"
cmd.Parameters.Add(New OleDbParameter("@mname",OleDbType.VarChar,10))
cmd.Parameters.Add(New OleDbParameter("@code",OleDbType.VarChar,10))
cmd.Parameters("@mname").Value=textbox1.text
cmd.Parameters("@code").Value=textbox2.text
cmd.ExecuteNonQuery()
conn.Close()
Label1.text="注册成功"
else
label1.text=“官方ID错误”
end if
End Sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<p>
<font color="blue" size="6"> 会员注册</font>
</p>
<p>
<font color="red" size="5">*****************<asp:Label id="Label1" runat="server">请认真填写</asp:Label>*******************</font>
</p>
<p>
姓名
<asp:TextBox id="TextBox1" runat="server" Width="123px"></asp:TextBox>
</p>
<p>
密码
<asp:TextBox id="TextBox2" runat="server" Width="124px"></asp:TextBox>
</p>
<p>
官方ID<asp:TextBox id="TextBox3" runat="server" Width="123px"></asp:TextBox>
</p>
<p>
<asp:Button id="Button1" onclick="Button1_Click" runat="server" Text="提交"></asp:Button>
<asp:Button id="Button2" onclick="Button2_Click" runat="server" Text="重试"></asp:Button>
</p>
<p>
</p>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -