📄 zchycl.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"-->
<wml>
<head>
<meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card title="注册会员">
<p>
<%
sjhm=usb(request("sjhm"))
dlmm=usb(request("dlmm"))
qrmm=usb(request("qrmm"))
ltnc=usb(request("ltnc"))
grjs=usb(request("grjs"))
xb=usb(request("xb"))
mmwt=usb(request("mmwt"))
wtda=usb(request("wtda"))
grip=Request.ServerVariables("REMOTE_ADDR")
cw=usb(request("cw"))
sid=Session.sessionid
mmsb=sjhm+sid
%>
<%if cw="" then
if sjhm="" or dlmm="" or ltnc="" or mmwt="" or wtda="" then response.redirect "zchycl.asp?cw=1"
if len(sjhm)<>11 then response.redirect "zchycl.asp?cw=2"
if left(sjhm,2)<>13 and left(sjhm,2)<>15 then response.redirect "zchycl.asp?cw=2"
if dlmm<>qrmm then response.redirect "zchycl.asp?cw=3"
set rs=Server.CreateObject("ADODB.Recordset")
rspl="select * from Userinfo order by id desc"
rs.open rspl,conn,1,2
if rs("UserName")=sjhm then response.redirect "zchycl.asp?cw=5"
rs.Movenext
rs.addnew
if sjhm<>"" then rs("UserName")=sjhm
if dlmm<>"" then rs("Password")=md5(dlmm)
if ltnc<>"" then rs("NAME")=ltnc
if xb<>"" then rs("sex")=xb
if mmsb<>"" then rs("grsb")=md5(mmsb)
if mmwt<>"" then rs("Question1")=mmwt
if wtda<>"" then rs("Answer1")=wtda
if grip<>"" then rs("LoginIP")=grip
rs.update
rs.close
set rs=nothing
%>
注册成功，请牢记您的个人资料<br/>
手机号码<br/>
<%=sjhm%><br/>
登陆密码<br/><%=dlmm%><br/>
-密码保护-<br/>
密码问题<br/><%=mmwt%><br/>
密码答案<br/><%=wtda%><br/>
<a href="index.asp?sb=<%=md5(mmsb)%>">进入泡书首页</a>
<%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="zchy.asp">返回重写</a>
<%end if%>
<br/><a href="66hc_grdl.asp">手工登陆</a>
<br/><a href="zhmm.asp">找回密码</a>
</p></card></wml>
<%endConnection()%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -