手机WAP编程

开发平台：
ASP/ASPX

cnscu_grdl.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"> 
<wml><%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
' 程序制作：横云			  掌上校园收倾心整理收集于互联网,感谢你的支持!
' 升级时间： 2008-2-5  		主页地址：HTTP://wap.cnscu.cn
' E-Mail: cnscu@126.com   	客服QQ:554904632 QQ群:30493504 QQ群2:46659883
'====================================================================
%> <!--#include file="conn.inc"-->
<!--#include file="md5.asp"-->
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
<meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
</head>
<card title="论坛-个人登陆">
<p>
 <a href='zchy.asp'>注册会员</a><br/>
  <a href='zddl.asp'>自动登陆</a><br/>
<%dim wap
wap=RndCode()
%>
<%dim sjgw(21)
        sjgw(0)="10"
	sjgw(1)="1"
	sjgw(2)="2"
	sjgw(3)="3"
	sjgw(4)="4"
	sjgw(5)="5"
	sjgw(6)="6"
	sjgw(7)="7"
	sjgw(8)="8"
	sjgw(9)="9"
	sjgw(10)="10"
	sjgw(11)="11"
	sjgw(12)="12"
	sjgw(13)="13"
	sjgw(14)="14"
	sjgw(15)="15"
	sjgw(16)="16"
	sjgw(17)="17"
	sjgw(18)="18"
	sjgw(19)="19"
	sjgw(20)="20"
	sjgw(21)="21"
	Randomize
	I=Int(Rnd()*21)
	sjgwn=sjgw(I)
dim sjgw1(21)
        sjgw1(0)="66"
	sjgw1(1)="1"
	sjgw1(2)="2"
	sjgw1(3)="3"
	sjgw1(4)="4"
	sjgw1(5)="5"
	sjgw1(6)="6"
	sjgw1(7)="7"
	sjgw1(8)="8"
	sjgw1(9)="9"
	sjgw1(10)="10"
	sjgw1(11)="11"
	sjgw1(12)="12"
	sjgw1(13)="13"
	sjgw1(14)="14"
	sjgw1(15)="15"
	sjgw1(16)="16"
	sjgw1(17)="17"
	sjgw1(18)="18"
	sjgw1(19)="19"
	sjgw1(20)="20"
	sjgw1(21)="21"
	Randomize
	I=Int(Rnd()*21)
	sjgwn1=sjgw1(I)
dim sjgw2(21)
        sjgw2(0)="123"
	sjgw2(1)="1"
	sjgw2(2)="2"
	sjgw2(3)="3"
	sjgw2(4)="4"
	sjgw2(5)="5"
	sjgw2(6)="6"
	sjgw2(7)="7"
	sjgw2(8)="8"
	sjgw2(9)="9"
	sjgw2(10)="10"
	sjgw2(11)="11"
	sjgw2(12)="12"
	sjgw2(13)="13"
	sjgw2(14)="14"
	sjgw2(15)="15"
	sjgw2(16)="16"
	sjgw2(17)="17"
	sjgw2(18)="18"
	sjgw2(19)="19"
	sjgw2(20)="20"
	sjgw2(21)="21"
	Randomize
	I=Int(Rnd()*21)
	sjgwn2=sjgw2(I)
yy=Month(now)&"" 
rr=Day(now)&"" 
if len(rr)=1 then rr="0"&rr 
hh=hour(now)&"" 
if len(hh)=1 then hh="0"&hh
mm=minute(now)&"" 
if len(mm)=1 then mm="0"&mm
ss=second(now)&"" 
if len(ss)=1 then ss="0"&ss
ttvv="" & yy & "" & rr &"" & hh &"" & mm &""& ss &""
%>
<%cz=request("cz")
cw=request("cw")%>
<%
dim cnscu
cnscu=request("cnscu")
%>
<%if cz="" then%>
<%if cw="1" then%>
账号错误没有该会员注册信息！<br/><%end if%>
<%if cw="2" then%>
密码错误<br/>
<%end if%>
<%if cw="3" then%>
验证码错误<br/>
<%end if%>
<%if cw="4" then%>
对不起，请先登陆！<br/>
<%end if%>
<%if cw="5" then%>
对不起，手机号码非法！<br/>
<%end if%>
<%if cw="6" then%>
对不起，注册后才能继续以下操作！<br/>
<anchor><prev/>反回继续浏览</anchor><br/>
<%end if%>
<%if cw="10" then%>
为了您的账号安全，系统要求你手动登陆！<br/>
<%end if%>
<%if cw="9" or cw="8" then%>
手机号非法。。。<br/>
<%end if%>
<%if cw="18" then%>
您的一次已经没有啦。。。<br/>
<%end if%>
<%if cw="19" then%>
由于您的恶意操作，您被禁止登陆本论坛。如有疑问联系管理员。。客服QQ:8060301<br/>
<%end if%>
<!--a href='index.asp?cnscu=<%=ttvv%><%=wap%>'><img src='get.asp?wap=<%=ttvv%><%=wap%>' alt='加载自动登陆图片'/></a><br/-->
<!--自动登录说明:等待看到上面的图片后，点击图片，进行自动登录与注册进入论坛<br/-->
-----------<br/>
=手动登录社区=<br/>
手机号:
<input name="name" title="手机号：" type="text" format="*N" emptyok="true" maxlength="500" size="10" value=""/><br/>
密码:
<input name="dlmm" title="密码：" type="password" format="*M" emptyok="true" maxlength="500" size="10"  value=""/><br/>
验证码：<%=sjgwn%><%=sjgwn1%><%=sjgwn2%><br/>
<input name="dlyz" title="验证码：" type="text" format="*N" emptyok="true" maxlength="500" size="10" value=""/><br/>
<anchor title="确定">[确认登陆]
<go href="cnscu_grdl.asp?cz=1" method="post" accept-charset='utf-8'>
<postfield name="name1" value="$(name)"/>
<postfield name="dlmm1" value="$(dlmm)"/>
<postfield name="dlyz1" value="$(dlyz)"/>
<postfield name="dlyzg" value="<%=clng(sjgwn+sjgwn1+sjgwn2)%>"/>
</go>
</anchor>
<%elseif cz="1" then%>
<%
dlyzp=usb(request("dlyzg"))
name2=request("name1")
sjhm=request("name1")
dlyz2=usb(request("dlyz1"))
dlmm2=request("dlmm1")
set zhh=Server.CreateObject("ADODB.Recordset")
  zhhssql="select * from cnscu_gr where cstr(sjhm)='"&sjhm&"'"
  zhh.open zhhssql,conn,1,2
if zhh.eof then
response.redirect "cnscu_grdl.asp?cw=1"
else
if zhh("grsb")="" then 
sid=Session.sessionid
mmsb=sjhm+sid
zhh("grsb")=mmsb
zhh.update
end if
if dlubb(dlmm2)<>zhh("mm") then response.redirect "cnscu_grdl.asp?cw=2"
if dlubb(dlyz2)<>dlyzp then response.redirect "cnscu_grdl.asp?cw=3"
if dlubb(dlmm2)=zhh("mm") then 
  sql="update cnscu_gr set dlsj=now() Where CStr(sjhm)='" & name2 & "'"
  conn.Execute(sql)
response.redirect "index.asp?cnscu="&zhh("grsb")
end if
end if
end if
%>
<br/>
-----------<br/>
<a href="index.asp">游客参观</a>
<br/><a href="zhmm.asp">找回密码</a>
<br/><a href="../">网站首页</a>
<%
function RndCode()
CodeSet = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
AmountSet = 62 ' &#x6587;&#x5B57;&#x6570;&#x91CF;
Randomize
' &#x968F;&#x673A;&#x4EA7;&#x751F;&#x5B57;&#x7B26;
Dim vCode(20), vCodes
For i = 0 To 20
  vCode(i) = Int(Rnd * AmountSet)
  vCodes = vCodes & Mid(CodeSet, vCode(i) + 1, 1)
Next
RndCode=vCodes
End function
%>
</p>
</card>
</wml>

						