📄 admin_waplogin.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Conn.asp"-->
<%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>
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
</head>
<card title="<%=WebName & ChannelName%> Powered By WapLink Ver 4.5">
<p align="left">
<%
dim action
action=request("action")
UserName=request("UserName")
Password=request("Password")
verifycode=Trim(request("verifycode"))
If action="chklogin" Then
IF UserName="" Then
Response.write "登录帐号不能为空，请重新输入！<br/>"
ElseIf Password="" Then
Response.write "登录密码不能为空，请重新输入！<br/>"
ElseIf verifycode="" Then
Response.write "验证码不能为空，请重新输入！"
Else
If UserName=AdminName And Password=AdminPass And verifycode=Session("ValidCode") Then
'If UserName=AdminName And Password=AdminPass Then
Session(WapCacheName)=AdminName&AdminPass
Response.redirect ""&WapMulu&"Admin_WapManage.asp"
Else
Response.write "你输入的“帐号，密码”有误，请重新输入！<br/>"
End If
End If
End If
If action="exit" Then
Session(WapCacheName)=""
End If
%>
帐号:<input name="username" type="text" value="" /><br/>
密码:<input name="password<%=minute(now)%><%=second(now)%>" type="text" value="" /><br/>
验证码：<input name="verifycode<%=minute(now)&second(now)%>" type="text" size="4" maxlength="4" value="" /><img src="CheckCode.asp" alt="验证码加载中..."/><br/>
<anchor>管理登录<go href="Admin_WapLogin.asp?action=chklogin" method="post">
<postfield name="username" value="$(username)"/>
<postfield name="password" value="$(password<%=minute(now)%><%=second(now)%>)"/>
<postfield name="verifycode" value="$(verifycode<%=minute(now)%><%=second(now)%>)"/>
</go></anchor><br/>
<a href="index.asp"><%=ChannelName%></a><br/>
<%set Wap=nothing%>
</p>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -