zchycl-bak.asp
上传用户:sking1122
上传日期:2020-09-24
资源大小:1005k
文件大小:3k
源码类别:

手机WAP编程

开发平台:

ASP/ASPX

  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><?xml version="1.0" encoding="utf-8"?>
  2. <%response.buffer=true%>
  3. <%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
  4. <!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"> 
  5. <!--#include file="conn.inc"-->
  6. <wml><%
  7. '====================================================================
  8. ' 请你保留这段说明,这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
  9. ' 程序制作:横云   掌上校园收倾心整理收集于互联网,感谢你的支持!
  10. ' 升级时间: 2008-2-5   主页地址:HTTP://wap.cnscu.cn
  11. ' E-Mail: cnscu@126.com    客服QQ:554904632 QQ群:30493504 QQ群2:46659883
  12. '====================================================================
  13. %> <head>
  14. <meta http-equiv='Cache-Control' content='no-cache'/>
  15. </head>
  16. <card title="注册会员">
  17. <p>
  18. <%
  19. sjhm=usb(request("sjhm"))
  20. dlmm=usb(request("dlmm"))
  21. qrmm=usb(request("qrmm"))
  22. ltnc=usb(request("ltnc"))
  23. set zhh=Server.CreateObject("ADODB.Recordset")
  24.   zhhssql="select * from cnscu_gr where cstr(nini)='"&ltnc&"'"
  25.   zhh.open zhhssql,conn,1,2
  26. if not zhh.eof then
  27. response.redirect "zchycl.asp?cw=5"
  28. end if
  29. zhh.close
  30. set zhh=nothing
  31. grjs=usb(request("grjs"))
  32. xb=usb(request("xb"))
  33. mmwt=usb(request("mmwt"))
  34. wtda=usb(request("wtda"))
  35. grip=Request.ServerVariables("REMOTE_ADDR")
  36. cw=usb(request("cw"))
  37. sid=Session.sessionid
  38. mmsb=sjhm+sid
  39. %>
  40. <%if cw="" then
  41. if sjhm="" or dlmm="" or ltnc="" or mmwt="" or wtda="" then response.redirect "zchycl.asp?cw=1"
  42. if len(sjhm)<>11 then response.redirect "zchycl.asp?cw=2"
  43. if left(sjhm,2)<>13 and left(sjhm,2)<>15 then response.redirect "zchycl.asp?cw=2"
  44. if dlmm<>qrmm then response.redirect "zchycl.asp?cw=3"
  45. set rs=Server.CreateObject("ADODB.Recordset")
  46. rspl="select * from cnscu_gr order by id desc"
  47. rs.open rspl,conn,1,2
  48. if rs("sjhm")=sjhm then response.redirect "zchycl.asp?cw=4"
  49. rs.Movenext
  50. rs.addnew
  51. if sjhm<>"" then rs("sjhm")=sjhm
  52. if dlmm<>"" then rs("mm")=dlmm
  53. if ltnc<>"" then rs("nini")=ltnc
  54. if grjs<>"" then rs("grjs")=grjs
  55. if xb<>"" then rs("grsex")=xb
  56. if mmsb<>"" then rs("grsb")=mmsb
  57. if mmwt<>"" then rs("mmwt")=mmwt
  58. if wtda<>"" then rs("wtda")=wtda
  59. if grip<>"" then rs("myip")=grip
  60. rs.update
  61. rs.close
  62. set rs=nothing
  63. %>
  64. 注册成功,请牢记您的个人资料<br/>
  65. 手机号码<br/>
  66. <%=sjhm%><br/>
  67. 登陆密码<br/><%=dlmm%><br/>
  68. -密码保护-<br/>
  69. 密码问题<br/><%=mmwt%><br/>
  70. 密码答案<br/><%=wtda%><br/>
  71. <a href="index.asp?cnscu=<%=mmsb%>">进入社区</a>
  72. <%elseif cw="1" then%>
  73. 手机号/登陆密码/论坛昵称/密码问题/密码答案等不能为空
  74. <%elseif cw="2" then%>
  75. 为了您更好交流,请输入正确的手机号!
  76. <%elseif cw="3" then%>
  77. 您输入的两次密码不一样!
  78. <%elseif cw="4" then%>
  79. 该手机号已经被注册!
  80. <%elseif cw="5" then%>
  81. 该昵称已经被使用!
  82. <%end if%>
  83. <%if cw<>"" then%>
  84. <br/><a href="zchy.asp">返回重写</a>
  85. <%end if%>
  86. <br/><a href="cnscu_grdl.asp">手工登陆</a>
  87. <br/><a href="zhmm.asp">找回密码</a>
  88. <br/><a href="../">网站首页</a>
  89. </p></card></wml>