手机WAP编程

开发平台：
ASP/ASPX

zchycl.asp：源码内容
							﻿<%@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)='"&ltnc&"'"
  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>

						