📄 register2.asp
字号:
<!-- #include file="retop.asp" -->
<html>
<head>
<link rel="stylesheet" href="common.css" type="text/css">
<title>同学通讯录</title>
</head>
<body>
<%
If Trim(Request.Form("validatecode"))=Empty Or Trim(Session("cnbruce.com_ValidateCode"))<>Trim(Request.Form("validatecode")) Then
response.write("<p>请注意正确输入验证码</p>")
response.write"<a href='register1.asp'>注册页面</a>"
response.end
end if
%>
<%
On Error Resume Next
'取得用户名和密码，并删除用户名和密码中的首尾空格
username=Trim(request.form("username"))
userpass=Trim(request.form("pass1"))
%>
<!-- #include file="conn.asp" -->
<% '检查用户是否已经存在
commandtext="Select * From t_user where d_user='"&username&"'"
set rs=conn.Execute(commandtext,,adcmdtext)
if rs.eof then
'向表t_user添加数据
commandtext="Insert Into t_user(d_user,d_pass,d_level) values('"&username&"','"&userpass&"',1)"
conn.execute commandtext,adcmdtext
if errs.count=0 then
response.write"<p>注册成功！</p>"
response.write"<p>该用户具有查询通讯录的功能，欲取得更高的权限请与管理员联系！</p>"
response.write"<a href='default.asp'>登陆页面</a>"
end if
else
response.write"<p>用户已存在，请选择新的用户名重新注册！</p>"
response.write"<a href='register1.asp'>注册页面</a>"
end if
set conn=nothing
%>
<br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
<!-- #include file="bottom.asp" -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -