📄 registernew.asp
字号:
<%@ LANGUAGE="VBScript" %><% Response.Buffer=true %>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub ValidateLogForm
if document.logform.username.value="" then
msgbox "请输入用户名！"
elseif document.logform.userpwd1.value="" then
msgbox "请输入口令！"
elseif document.logform.userpwd1.value<>document.logform.userpwd2.value then
msgbox "两次输入的口令不一致！"
elseif document.logform.UserIdentity.value="" then
msgbox "请输入身份证编号！"
elseif document.logform.UserEmail.value="" then
msgbox "请输入电子邮件地址！"
elseif document.logform.UserPhone.value="" then
msgbox "请输入联系电话！"
elseif document.logform.UserAddress.value="" then
msgbox "请输入联系地址！"
elseif document.logform.UserPostCode.value="" then
msgbox "请输入邮政编码！"
else
document.logform.submit
end if
End Sub
-->
</SCRIPT>
<HTML>
<HEAD>
<TITLE>新用户注册</TITLE>
</HEAD>
<BODY>
<H3 align="center">在线图书销售管理系统--新用户注册</H3>
<FORM action="RegisterNew.asp" name="logform" METHOD="Post">
<TABLE ALIGN="CENTER" CELLPADDING="2">
<TR>
<TD ALIGN="RIGHT">用户名：</TD>
<TD><INPUT TYPE="text" NAME="UserName" MAXLENGTH="20"
value='<%=request("username")%>'>
<FONT color="red">*</FONT>
</TD>
</TR>
<TR>
<TD ALIGN="RIGHT">口 令：</TD>
<TD><INPUT TYPE="text" NAME="UserPwd1" MAXLENGTH="10"
value='<%=request("UserPwd1")%>'>
<FONT color="red">*</FONT>
</TD>
</TR>
<TR>
<TD></TD>
<TD><INPUT TYPE="text" NAME="UserPwd2" MAXLENGTH="10"
value='<%=request("UserPwd2")%>'>
<FONT color="red">*</FONT>
</TD>
</TR>
<TR>
<TD ALIGN="RIGHT">身份证号：</TD>
<TD><INPUT TYPE="text" NAME="UserIdentity" MAXLENGTH="18"
value='<%=request("UserIdentity")%>'>
<FONT color="red">*</FONT>
</TD>
</TR>
<TR>
<TD ALIGN="RIGHT">电子邮件：</TD>
<TD><INPUT TYPE="text" NAME="UserEmail" MAXLENGTH="50"
value='<%=request("UserEmail")%>'>
<FONT color="red">*</FONT>
</TD>
</TR>
<TR>
<TD ALIGN="RIGHT">联系电话：</TD>
<TD><INPUT TYPE="text" NAME="UserPhone" MAXLENGTH="11"
value='<%=request("UserPhone")%>'>
<FONT color="red">*</FONT>
</TD>
</TR>
<TR>
<TD ALIGN="RIGHT">联系地址：</TD>
<TD><INPUT TYPE="text" NAME="UserAddress" MAXLENGTH="50"
value='<%=request("UserAddress")%>'>
<FONT color="red">*</FONT>
</TD>
</TR>
<TR>
<TD ALIGN="RIGHT">邮政编码：</TD>
<TD><INPUT TYPE="text" NAME="UserPostCode" MAXLENGTH="6"
value='<%=request("UserPostCode")%>'>
<FONT color="red">*</FONT>
</TD>
</TR>
<TR>
<TD COLSPAN="2" align="center"><INPUT TYPE="button" NAME="LogButton"
VALUE="保存" onClick="ValidateLogForm">
</TD>
</TR>
</TABLE></FORM>
<%
if request("UserName")<>"" then'保存用户注册信息
'建立数据库连接
Set cn=Server.CreateObject("ADODB.Connection")
cn.connectionstring="Provider=SQLOLEDB;UID=sa;pwd=123;" & _
"database=图书销售;Data Source=(local)"
cn.Open
'检查用户名是否重复
UserName=request("UserName")
Set rs=Server.CreateObject("ADODB.Recordset")
querystr = "SELECT * FROM 注册用户 WHERE user_name ='" & UserName & "'"
Set rs.ActiveConnection = cn
rs.CursorType =1
rs.LockType = 3
rs.Open querystr
if rs.recordcount>0 then
response.write "<div align=center><font color=red>用户名重复！</font></div>"
else
'保存用户注册信息
rs.addnew
rs.fields("user_name")=request("UserName")
rs.fields("user_pwd")=request("UserPwd1")
rs.fields("user_identity")=request("UserIdentity")
rs.fields("user_email")=request("UserEmail")
rs.fields("user_phone")=request("UserPhone")
rs.fields("user_address")=request("UserAddress")
rs.fields("user_postcode")=request("UserPostCode")
rs.update
session("username")=username '保存当前用户用户名
'自动载入在线图书销售管理系统页面
Response.Redirect "booksaling.htm"
end if
'释放ADO对象
rs.close
cn.close
set rs=nothing
set cn=nothing
response.flush
end if
%>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -