📄 join.asp
字号:
<%
UserID = Request("UserID")
Name = Request("Name")
UserID1=Request("userID1")
'判断两次输入的密码是否相同
if UserID<>UserID1 then
ShowMessage "密码验证不通过！"
end if
'判断密码与姓名表单输入是否为空，为空时显示出错提示
if UserID=Empty or Name=Empty then
ShowMessage "您的密码与姓名不能为空！"
end if
'检查姓名是否已有他人占用
sub query2table(inputquery)
set conn=server.createobject("adodb.connection")
conn.open
"DSN=test;uid=test;pwd=''"
set rstemp=conntemp.execute(inputquery)
mysql="Insert into 会员管理(密码,姓名) values('"&UserID&"','"&Name&"')"
Set rs=conn.execute("Select * from 会员管理 where 姓名='"&Name&"'")
If rs.EOF=false Then
ShowMessage "您用了别人的姓名，不能注册！"
Else
conn.execute(mysql)
End If
'将注册信息存入数据库文件
%>
<html>
<body background="Tool231.JPG">
<CENTER>
<!--以表格形式显示数据文件内容-->
<BR><BR><BR>
<TABLE BORDER=1 width=150>
<TR BGCOLOR= #99CCFF>
<!--用"<TR>"元素定义表格的行-->
<TH>密 码</TH>
<TH>姓 名</TH>
</TR>
<TR align=center>
<TD><%=UserID%></TD>
<TD><%=name%></TD>
</TR>
<!--用"</TR>"元素结束定义表格的行-->
<!--第三部分，显示数据库文件中表的内容-->
</TABLE>
</CENTER>
<center>
<br><br><br><br>
<!--当注册成功后显示的提示-->
<%="恭喜，会员注册成功！您的注册内容如上所示。"%>
<br><br><br><br>
<p align="left"><INPUT Type=Button Value=" 返 回 " OnClick="history.back();">
<!--定义一个返回按钮，返回上一页-->
</center>
</body>
</html>
<!--定义一个错误提示函数当注册输入不正确时提示错误并结束输出-->
<%
Sub ShowMessage(msg)
%>
<CENTER>
<body background="Tool231.JPG">
<H2><%=msg%>
<p></p><p></p><p></p>
</CENTER>
<FORM>
<p align="left"><INPUT Type=Button Value="返回重新注册" OnClick="history.back();"></p>
</FORM>
<%
Response.End
'结束输出
End Sub
'结束子程序
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -