📄 chkadmin.asp
字号:
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%
idss=request.QueryString("idss")
myid=request.QueryString("myid")
%>
<!--#include file=conn.asp-->
<!--#include file=../../md5/md5.asp-->
<%
dim sql
dim rs
dim username
dim password,Cookies_username,Cookies_password
username=md5(request("username"))
password=md5(request("password"))
set rs=server.createobject("adodb.recordset")
sql="select * from admin where password='"&password&"' and username='"&username&"'"
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
if password=rs("password") then
Cookies_username=md5(username)
Cookies_password=md5(password)
Session.Timeout=30
session("u")=md5(username)
session("p")=md5(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#
Call Head
Response.Redirect "../index.asp?u="&md5(username)&"&p="&md5(password)&"&idss="&idss&"&myid="&myid&""
Call Last
else
call Error
end if
Else
Call Head
call Error()
Call Last
end if
sub Error()
response.write "<br/>"
response.write "确认身份失败!"
response.write "<br/>用户名或密码错误!"
end sub
rs.close
conn.close
set rs=nothing
set conn=nothing
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 + -