📄 anc.asp
字号:
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%
%>
<%
If request("an")=1 then
Cookies_username=""
Cookies_password=""
session("u")=""
session("p")=""
response.Cookies("Cookies_username")=Cookies_username
response.Cookies("Cookies_password")=Cookies_password
Response.Cookies("Cookies_username").Expires=#January 01, 2010#
Response.Cookies("Cookies_password").Expires=#January 01, 2010#
Response.Redirect "../../index.asp"
End If
If request("an")=2 then
Cookies_username=""
Cookies_password=""
response.Cookies("Cookies_username")=Cookies_username
response.Cookies("Cookies_password")=Cookies_password
Response.Cookies("Cookies_username").Expires=#January 01, 2010#
Response.Cookies("Cookies_password").Expires=#January 01, 2010#
Response.Redirect "../../index.asp"
End If
If request("an")=3 then
session("u")=""
session("p")=""
Response.Redirect "../../index.asp"
End if
Call Head
response.write "<br/>"
response.write "清除成功!<br/>"
Call Last
Sub Head()
Response.ContentType = "text/vnd.wap.wml"
Response.Write "<?xml version=""1.0"" encoding=""utf-8""?>"
Response.Write "<!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD WML 1.1//EN"" ""http://www.wapforum.org/DTD/wml_1.1.xml"">"
Response.Write "<wml>"
Response.Write "<head>"
Response.Write "<meta http-equiv=""Cache-Control"" content=""max-age=0""/>"
Response.Write "<meta http-equiv=""Cache-Control"" content=""no-cache""/>"
Response.Write "</head>"
Response.Write "<card title='系统登陆'>"
Response.Write "<p>"
End Sub
Sub Last
Response.Write "<br/>-------------<br/>"
Response.Write "<anchor><prev/>[返回上级]</anchor><br/>"
Response.Write "<a href=""../index.asp"">[网站首页]</a><br/>"
Response.Write "</p>"
Response.Write "</card>"
Response.Write "</wml>"
Response.End
End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -