?? 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 + -