📄 login1.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'=================================================
' Copyright 2007-05 jinqiu. All Rights Reserved.
' Last Update: 2007-05-15 HTTP://www.wapfs.net
'=================================================
%>
<%Response.ContentType = "text/vnd.wap.wml"%>
<!-- #include file="conn.asp" -->
<!-- #include file="333.asp" --><?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>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card title="登陆" ontimer="index.asp?shouji=<%=sessionid%>">
<timer value="3"/>
<p>
<%
dim pno,rs
if request("name")="" or request("shouji")="" or request("password")="" then response.redirect "err.asp?id=1"
pno=request("shouji")
set rs=Server.CreateObject("ADODB.Recordset")
rs.open "select nc,pass from sheet where shouji='"&pno&"'",conn,1,3
if rs.recordcount=0 then
response.redirect "err.asp?id=11"
else
if request("name")<>rs("nc") then
response.redirect "err.asp?id=12"
else
if request("password")<>rs("pass") then
response.redirect "err.asp?id=13"
else
dim rs10,rs1,rs2
set rs10=Server.CreateObject("ADODB.Recordset")
rs10.open "select id,mark from login where phone='"&pno&"'",conn,1,3
set rs1=Server.CreateObject("ADODB.Recordset")
rs1.open "select id from login where id='"&sessionid&"'",conn,1,1
set rs2=Server.CreateObject("ADODB.Recordset")
rs2.open "select * from login",conn,1,3
if rs10.bof and rs10.eof then
if rs1.bof and rs1.eof then
rs2.addnew
rs2("id")=sessionid
rs2("phone")=request("shouji")
rs2("name")=rs("nc")
rs2("pass")=rs("pass")
if request("a")="m" then rs2("mark")=1
rs2.update
response.write "登陆成功"
else
response.redirect "login1.asp?name="&request("name")&"&shouji="&request("shouji")&"&password="&request("password")&""
end if
else
rs10("id")=sessionid
if request("a")="m" then rs10("mark")=1
rs10.update
response.write "登陆成功"
end if
end if
end if
end if
conn.close
set conn=nothing
%>
</p>
</card>
</wml>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -