📄 userregpost.asp
字号:
<!--#include file="Inc/Conn.asp"-->
<!--#include file="Inc/md5.asp"-->
<HTML><HEAD><TITLE></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
</head>
<%
dim UserName,Password,Question,Answer,Sex,UserType
UserName=trim(request("UserName"))
Password=trim(request("Password"))
Question=trim(request("Question"))
Answer=trim(request("Answer"))
Sex=trim(Request("Sex"))
UserType=trim(request("UserType"))
dim sqlReg,rsReg
sqlReg="select * from [User] where UserName='" & Username & "'"
set rsReg=server.createobject("adodb.recordset")
rsReg.open sqlReg,conn,1,3
rsReg.addnew
rsReg("UserName")=UserName
rsReg("Password")=md5(Password)
rsReg("Question")=Question
rsReg("Answer")=Answer
rsReg("Sex")=Sex
rsReg("UserType")=UserType
rsReg.update
rsReg.close
set rsReg=nothing
call RegSuccess()
%>
<Body>
</Body>
</html>
<%
sub WriteErrMsg()
response.write "<table align='center' width='300' border='0' cellpadding='2' cellspacing='0' class='border'>"
response.write "<tr class='title'><td align='center' height='15'>由于以下的原因不能注册用户！</td></tr>"
response.write "<tr class='tdbg'><td align='left' height='100'><br>" & errmsg & "<p align='center'>【<a href='javascript:onclick=history.go(-1)'>返 回</a>】<br></p></td></tr>"
response.write "</table>"
end sub
sub RegSuccess()
response.write "<table align='center' width='300' border='0' cellpadding='2' cellspacing='0' class='border'>"
response.write "<tr class='title'><td align='center' height='15'>成功注册用户！</td></tr>"
response.write "<tr class='tdbg'><td align='left' height='100'><br>你注册的用户名：" & UserName & "<p align='center'>【<a href='javascript:onclick=window.close()'>关 闭</a>】<br></p></td></tr>"
response.write "</table>"
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -