zchycl-bak.asp
资源名称:wap.rar [点击查看]
上传用户:sking1122
上传日期:2020-09-24
资源大小:1005k
文件大小:3k
源码类别:
手机WAP编程
开发平台:
ASP/ASPX
- <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><?xml version="1.0" encoding="utf-8"?>
- <%response.buffer=true%>
- <%Response.ContentType = "text/vnd.wap.wml; charset=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><%
- '====================================================================
- ' 请你保留这段说明,这并不会影响你的速度. 电脑交流:http://www.cnscu.cn
- ' 程序制作:横云 掌上校园收倾心整理收集于互联网,感谢你的支持!
- ' 升级时间: 2008-2-5 主页地址:HTTP://wap.cnscu.cn
- ' E-Mail: cnscu@126.com 客服QQ:554904632 QQ群:30493504 QQ群2:46659883
- '====================================================================
- %> <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"))
- set zhh=Server.CreateObject("ADODB.Recordset")
- zhhssql="select * from cnscu_gr where cstr(nini)='"<nc&"'"
- zhh.open zhhssql,conn,1,2
- if not zhh.eof then
- response.redirect "zchycl.asp?cw=5"
- end if
- zhh.close
- set zhh=nothing
- 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 cnscu_gr order by id desc"
- rs.open rspl,conn,1,2
- if rs("sjhm")=sjhm then response.redirect "zchycl.asp?cw=4"
- rs.Movenext
- 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 wtda<>"" then rs("wtda")=wtda
- if grip<>"" then rs("myip")=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?cnscu=<%=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="cnscu_grdl.asp">手工登陆</a>
- <br/><a href="zhmm.asp">找回密码</a>
- <br/><a href="../">网站首页</a>
- </p></card></wml>