📄 66hc_grdl.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"-->
<!--#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/>
<%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 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:8060301<br/>
<%end if%>
<!--a href='index.asp?glsb=<%=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="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=request("dlmm1")
set zhh=Server.CreateObject("ADODB.Recordset")
zhhssql="select * from 66hc_gr where cstr(sjhm)='"&sjhm&"'"
zhh.open zhhssql,conn,1,2
if zhh.eof then
response.redirect "66hc_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 "66hc_grdl.asp?cw=2"
if dlubb(dlyz2)<>dlyzp then response.redirect "66hc_grdl.asp?cw=3"
if dlubb(dlmm2)=zhh("mm") then
sql="update 66hc_gr set dlsj=now() Where CStr(sjhm)='" & name2 & "'"
conn.Execute(sql)
response.redirect "index.asp?glsb="&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 ' 文字数量
Randomize
' 随机产生字符
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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -