📄 pc_getsanchatid.asp
字号:
<%
aaa=trim(request("ccc"))
if aaa="" then
response.write "必须输入验证码"
response.end
end if
if cstr(session("getcode"))<>cstr(aaa) then
response.write "验证码输入有误"
response.end
end if
session.abandon
pass=Request("password")
idc=Request("trueid")
mail=Request("mailbox")
nick=Request("nickname")
name=Request("truename")
if (len(pass)>5 and len(idc)>14 and len(nick)>0) then
Set conn=Server.CreateObject("ADODB.connection")
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("mssdata.mdb")
conn.Open
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT TOP 1 user FROM sanchat_users ORDER BY len(user) DESC"
rs.open sql,Conn,3,3
m=len(rs("user"))
rs.close
sql="SELECT TOP 1 user FROM sanchat_users where len(user)="&m&" ORDER BY user DESC"
rs.open sql,Conn,3,3
uid=rs("user")
rs.close
uid=CLng(uid)+1
rs.open "sanchat_usersinfo",conn,3,3
rs.addnew
rs("regdate")= Date() & " " & Time()
rs("truename")=name
rs("trueid")=idc
rs("mailbox")=mail
rs("nickname")=nick
rs("user")=uid
rs.update
rs.close
rs.open "sanchat_users",conn,3,3
rs.addnew
rs("pass")=pass
rs("user")=uid
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
response.write "<head><title>注册成功</title></head><body>"
response.write "<font size=2 color=blue>注册成功！以下是您得到的号码，</font><br>"
response.write "<font size=5 color=red>"
response.write uid
response.write "</font><br>"
response.write "<br><font size=2 color=blue>请用此号码与您设定的密码登陆</font><br>"
response.write "<font size=2 color=blue>请务必牢记，如果丢失此号码，请联系管理员用真实姓名或邮件找回。</font><br>"
else
response.write "<head><title>注册失败</title></head><body>"
response.write "<font size=2 color=red>输入信息不合法，请重新填写注册信息。</font>"
end if
response.write "</body>"
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -