📄 66hc_grd1.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">
<wml>
<!--#include file="conn.inc"-->
<head>
<meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card title="书城-会员登陆">
<p>
<%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)
%>
<%cz=request("cz")
cw=request("cw")%>
<%
dim glsb
glsb=request("glsb")
%>
<%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:40398768<br/>
<%end if%>
手机号码<br/>
<input name="name" title="手机号：" type="text" format="*M" emptyok="true" maxlength="500" value=""/><br/>
密码<br/>
<input name="dlmm" title="密码：" type="text" format="*M" emptyok="true" maxlength="500" value=""/><br/>
验证码：<%=sjgwn%><%=sjgwn1%><%=sjgwn2%><br/>
<input name="dlyz" title="验证码：" type="text" format="*M" emptyok="true" maxlength="500" value=""/><br/>
<anchor title="确定">[确认登陆]
<go href="66hc_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=dlubb(request("dlmm1"))
set zhh=Server.CreateObject("ADODB.Recordset")
zhhssql="select * from Userinfo where cstr(UserName)="&sjhm
zhh.open zhhssql,conn,1,1
if zhh.eof then
response.redirect "66hc_grdl.asp?cw=1"
else
if md5(dlmm2)<>zhh("Password") then response.redirect "66hc_grdl.asp?cw=2"
if dlubb(dlyz2)<>dlyzp then response.redirect "66hc_grdl.asp?cw=3"
if md5(dlmm2)=zhh("Password") then
sql="update Userinfo set LoginTime=now() Where CStr(UserName)='" & name2 & "'"
conn.Execute(sql)
response.redirect "index.asp?sb="&zhh("grsb")&""
end if
end if
end if
%>
<br/><a href="index.asp">游客参观</a>
<br/><a href="zchy.asp">注册会员</a>
<br/><a href="zhmm.asp">找回密码</a>
<br/><a href="/wap/">网站首页</a>
</p>
</card>
</wml>
<%endConnection()%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -