📄 sgzcsave.asp
字号:
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<!--#include file="conn.inc"-->
<!--#include file="ydzq.asp"-->
<!--#include file="md5.asp"-->
<wml>
<head>
<meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card title="注册会员">
<p>
<%
dim sjhm,dlmm,qrmm,csrq,ltnc,mmdd,mmnini,grjs,tjr,xb,grip,mmwt,wtda,ttxx,ssid
sjhm=usb(request("sjhm"))
ltnc=usb(request("ltnc"))
dlmm=usb(request("dlmm"))
wtda=usb(request("wtda"))
set zhh=Server.CreateObject("ADODB.Recordset")
zhhssql="select nini from [Users] where [nini]='"<nc&"'"
zhh.open zhhssql,conn,1,2
if not zhh.eof then
response.redirect "sgzcsave.asp?sid="&sid&"&cw=5"
end if
zhh.close
set zhh=nothing
set rsj=Server.CreateObject("ADODB.Recordset")
jsql="select sjhm from [Users] where [sjhm]='"&sjhm&"'"
rsj.open jsql,conn,1,2
if not rsj.eof then
response.redirect "sgzcsave.asp?sid="&sid&"&cw=4"
end if
rsj.close
set rsj=nothing
set zhhy=Server.CreateObject("ADODB.Recordset")
zhhssqly="select id from [Users] order by id desc"
zhhy.open zhhssqly,conn,1,1
if not zhhy.eof then
mmdd=zhhy("id")+1
mmnini="会员("&mmdd&")"
else
mmnini="会员(1)"
end if
zhhy.close
set zhhy=nothing
grjs=usb(request("grjs"))
if grjs="" then grjs="这家伙好懒，资料没有写"
xb=usb(request("xb"))
if xb="1" then ttxx="tou/boy/1.gif"
if xb="2" then ttxx="tou/mm/1.gif"
if xb="3" then ttxx="tou/mm/1.gif"
mmwt=usb(request("mmwt"))
grip=Request.ServerVariables("REMOTE_ADDR")
cw=usb(request("cw"))
ssid=Session.sessionid
mmsb=md5(md5(sjhm+ssid,16),32)
%>
<%if cw="" then
if sjhm="" or dlmm="" or ltnc="" or mmwt="" or wtda="" then response.redirect "sgzcsave.asp?sid="&sid&"&cw=1"
if len(sjhm)<>11 then response.redirect "sgzcsave.asp?cw=2"
if left(sjhm,2)<>13 and left(sjhm,2)<>15 then response.redirect "sgzcsave.asp?cw=2"
set rs=Server.CreateObject("ADODB.Recordset")
rspl="select * from [Users] order by id desc"
rs.open rspl,conn,1,2
rs.addnew
if sjhm<>"" then rs("sjhm")=sjhm
if dlmm<>"" then rs("mm")=dlmm
if ltnc<>"" then rs("nini")=ltnc
if grjs<>"" then rs("grjs")=grjs
if xb<>"" then rs("grsex")=xb
if mmsb<>"" then rs("grsb")=mmsb
if mmwt<>"" then rs("mmwt")=mmwt
if csrq<>"" then rs("csrq")=csrq
if wtda<>"" then rs("wtda")=wtda
rs("zcsj")=now()
if grip<>"" then rs("myip")=grip
if ttxx<>"" then rs("grtx")=ttxx
rs("sfyk")="0"
rs.update
rs.close
set rs=nothing
set rsl=Server.CreateObject("ADODB.Recordset")
rspll="select * from tbxx"
rsl.open rspll,conn,1,2
rsl.addnew
rsl("fnr")="您的ID是"&mmdd&"密码是"&dlmm&"请牢记您的个人资料"
rsl("sid")=mmdd
rsl("fid")="0"
rsl.update
rsl.close
set rsl=nothing
%>
注册成功，<br/>
新的ID:<%=mmdd%><br/>
新的密码:<%=dlmm%><br/>
新的识别:<a href="/bbs/index.asp?hk=<%=mmsb%>"><%=mmsb%></a><br/>
<%elseif cw="1" then%>
手机号/登陆密码/论坛昵称/密码问题/密码答案等不能为空
<%elseif cw="2" then%>
为了您更好交流，请输入正确的手机号！
<%elseif cw="3" then%>
您输入的两次密码不一样！
<%elseif cw="4" then%>
该手机号已经被注册！
<%elseif cw="5" then%>
该昵称已经被使用！
<%end if%>
<%if cw<>"" then%>
<br/><a href="sgzc.asp?sid=<%=sid%>">返回重写</a><br/>
<%end if%>
-------------<br/>
<a href="enter.asp?sid=<%=sid%>">[社区管理]</a><br/>
<a href="../index.asp?sid=<%=sid%>">[后台管理]</a><br/>
<%conn.close
set conn=nothing%>
</p></card></wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -