📄 login123.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%response.buffer=true%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<!--#INCLUDE FILE="../data/conn.asp"-->
<!--#include file=../md5/md5.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"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
</head>
<%
dim name,pass
name=request.form("name")
pass=md5(request.form("pass"))
act=request.querystring("act")
name=CStr(name)
pass=Cstr(pass)
if name="" or pass="" or act="relogin" then
%>
<card id="card1" title="登陆管理">
<p>
帐号：
<input name="name" title="帐号" type="text" format="*M" emptyok="true" maxlength="10" /><br/>
密码：
<input name="pass" title="密码" type="password" maxlength="10" /><br/>
<br/>
<anchor>[登陆管理]<go href="<%=request.servervariables("script_name")%>" method="post" accept-charset="utf-8">
<postfield name="name" value="$(name)"/>
<postfield name="pass" value="$(pass)"/>
</go>
</anchor>
<br/>
<!--<a href="admin_regagreement.asp">[申请导航]</a><br/>-->
<a href="/you/index.asp">[<%=mywapname%>]</a><br/>
<%=mywaphost%>
<br/><%=mywapcatchword%>
</p>
</card>
</wml>
<%
response.end
end if
set objgbrs=Server.CreateObject("ADODB.Recordset")
sql="select * from admin where adminname='" & name &"' and adminpass='" & pass & "'"
objgbrs.open sql,conn,1,1
if not objgbrs.EOF then
Session("union") = mywaphost
Session("admin") = name
Session.timeout = 1200
dim action
action=request.querystring("action")
if action="" then
action="site_manage.asp"
end if
response.redirect action
else
Session("union") = "0"
end if
objgbrs.close
set objgbrs=nothing
conn.close
set conn=nothing
%>
<card title="登陆不成功" ontimer="login.asp?act=relogin"><timer value="20"/>
<p>
密码不对哦。
<br/>正在返回…<br/><br/>
<a href="login.asp?act=relogin">[返回登陆]</a><br/>
<a href="/">[<%=mywapname%>]</a><br/>
<%=mywaphost%>
<br/><%=mywapcatchword%>
</p>
</card>
</wml>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -