📄 register1.aspx
字号:
<%@ Import NameSpace="System.Data.Oledb" %>
<%@ Import NameSpace="System.Data" %>
<HTML>
<HEAD>
<Title>欢迎注册!</Title>
<Script Language="VB" runat="server">
Sub Page_load(sender as object,e as eventargs)
compare1.ValueToCompare=DateTime.Today
Step1.visible=true
Step2.visible=false
Step3.visible=false
End Sub
Sub Button1_click(sender As object,e As EventArgs)
Dim conn As OledbConnection '声明一个OledbConnection对象
conn=New OledbConnection() '建立一个oledbConnection对象
'设定连接字符串ConnectionString
conn.ConnectionString="Provider=SQLOLEDB.1;server=SONGWEI;database=vodweb;uid=sa;pwd=sql"
conn.Open()
Dim Cmd As oledbCommand '声明一个Command对象
'建立Command对象，并且指定SQL语句
Dim SQLStr As string
SQLStr="Select * From reg where userid='" & username.text & "'"
Cmd=New OledbCommand(SQLStr,conn)
Dim rd As OledbDataReader '声明一个DataReader对象
rd=Cmd.ExecuteReader() '执行SQL指令，并将其结果设定给DataReader
If rd.Read() then
Response.Write("该用户名已经存在,请重新输入!")
Else
If strcomp(password.text,repass.text) then
Response.Write("两次密码不相同,请重新输入!")
Else
Step1.Visible=false
Step2.Visible=True
End IF
End If
End Sub
Sub Button2_Click(Sender As object,e As EventArgs)
If Page.IsValid then
Span1.InnerHtml="用户姓名:" & username.text &"<Br>"
Span1.InnerHtml &="用户密码:" & password.text &"<Br>"
Span1.InnerHtml &="电子邮件:" & Email.text &"<Br>"
Span1.InnerHtml &="联系地址:" & addr.text &"<Br>"
Span1.InnerHtml &="电话号码:" & phone.text &"<Br>"
Span1.InnerHtml &="性 别:" & sex.selectedItem.text &"<Br>"
Span1.InnerHtml &="出生日期:" & birth.text &"<Br>"
'显示用户所有信息
Step2.visible=false
step1.visible=false
Step3.visible=true
End If
End Sub
Sub Button3_Click(Sender As Object,e As EventArgs)
Dim conn As OledbConnection '声明一个OledbConnection对象
conn=New OledbConnection() '建立一个oledbConnection对象
'设定连接字符串ConnectionString
conn.ConnectionString="Provider=SQLOLEDB.1;server=SONGWEI;database=vodweb;uid=sa;pwd=sql"
conn.Open()
Dim Cmd As oledbCommand '声明一个Command对象
'建立Command对象，并且指定SQL语句
Dim SQLStr As string
SQLStr="Insert into reg values('" & username.Text & "','"
SQLStr &= password.Text & "','" & Email.Text & "','"
SQLStr &= addr.Text & "','" &Phone.Text & "','"
SQLStr &= sex.SelectedItem.value &"','" & Birth.Text & "')"
'Response.Write(SQLStr)
Cmd=New OledbCommand(SQLStr,conn)
Cmd.ExecuteNonQuery() '执行SQL指令
Response.redirect("login1.aspx")
Step1.Visible=false
Step2.Visible=false
Step3.Visible=false
End Sub
</Script>
</HEAD>
<Body>
<Form runat="Server" ID="Form1">
<asp:Panel id="step1" runat="server" BackColor="Transparent">
请输入用户名字和密码:
<BLOCKQUOTE>用户姓名:
<asp:textbox id="username" runat="Server"></asp:textbox>
<asp:RequiredFieldValidator id="valid1" runat="Server" ControlToValidate="username">(必要栏)
</asp:RequiredFieldValidator>
<P>用户密码:
<asp:textbox id="password" runat="Server" TextMode="Password"></asp:textbox>
<asp:RegularExpressionValidator id="Valid2" runat="server" ControlToValidate="password" ValidationExpression="[a-zA-Z0-9]{1,6}">
(请输入1~6位密码)
</asp:RegularExpressionValidator>
<P>确认密码:
<asp:textbox id="repass" runat="Server" TextMode="Password"></asp:textbox>
<asp:RegularExpressionValidator id="Valid3" runat="server" ControlToValidate="repass" ValidationExpression="[a-zA-Z0-9]{1,6}">
(请输入1~6位密码)
</asp:RegularExpressionValidator>
<P><INPUT id="Button1" type="button" value="下一步" name="Button1" runat="Server" OnServerClick="Button1_Click">
</P>
</BLOCKQUOTE>
</asp:Panel>
<asp:Panel id="step2" runat="server" BackColor="Transparent">
请输入个人信息:
<BLOCKQUOTE>电子邮件:
<asp:textbox id="Email" runat="Server"></asp:textbox>
<asp:RegularExpressionValidator id="Regular1" ControlToValidate="Email" ValidationExpression=".{1,}@.{1,}\..{1,}"
Runat="server">
请输入有效的电子邮件地址
</asp:RegularExpressionValidator>
<P>联系地址:
<asp:textbox id="addr" runat="Server"></asp:textbox>
<asp:RegularExpressionValidator id="Regular3" ControlToValidate="addr" ValidationExpression=".{1,}(市|镇|乡).{1,}(路|街|道).{1,}号.{0,}"
Runat="server">
请输入有效的联系地址
</asp:RegularExpressionValidator>
<P>电话号码:
<asp:textbox id="phone" runat="Server"></asp:textbox>
<asp:RegularExpressionValidator id="Regular2" ControlToValidate="phone" ValidationExpression="(\([0-9]{0,4}\)[0-9]{3,15})|([0-9]{3,15}-[0-9]{3,15})|([0-9]{11})"
Runat="server">
请输入有效的电话号码
</asp:RegularExpressionValidator>
<P>性 别:
<asp:RadioButtonList id="sex" runat="Server" RepeatColumns="2" RepeatDirection="Horizontal">
<asp:ListItem Selected Value="m">男</asp:ListItem>
<asp:ListItem Value="f">女</asp:ListItem>
</asp:RadioButtonList>
<P>出生日期:
<asp:textbox id="Birth" runat="Server"></asp:textbox>(XXXX/XX/xx)
<asp:CompareValidator id="compare1" ControlToValidate="Birth" Runat="server" Operator="LessThan" type="Date">
嘿嘿,生日对了吗?
</asp:CompareValidator>
<P><INPUT id="Button2" type="button" value="下一步" name="Button2" runat="Server" OnServerClick="Button2_Click">
</P>
</BLOCKQUOTE>
</asp:Panel>
<asp:Panel id="step3" runat="Server">
请确认您输入的数据:
<Blockquote>
<Span id="span1" runat="Server" />
<Input Type="Button" id="Button3" value="确认"
OnServerClick="Button3_Click" runat="Server" NAME="Button3">
</Blockquote>
</asp:panel>
</Form>
</Body>
</Html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -