📄 data.asp
字号:
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%Response.ContentType = "text/vnd.wap.wml; chaobjgbrst=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'/>
<meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
</head>
<%
name=Request("name")
admin=Request("admin")
Provider="Provider=Microsoft.Jet.OLEDB.4.0;"
DBPath="Data Source="&Server.MapPath("../dfghjut.mdb")
Set conn=Server.CreateObject("ADODB.connection")
conn.Open Provider&DBPath
set objgbrs=Server.CreateObject("ADODB.Recordset")
sql="select * from admin where id=1"
objgbrs.open sql,conn
if request("job")="login" then
response.Write objgbrs("name")&"=="&objgbrs("pass")
response.End()
end if
if objgbrs.eof and request("job")<>"login" then
Response.write "<card id='card1' title='非法入侵!'><p>你不是管理员，请离开！！<br/><a href='/index.asp'>返回首页</a></p></card></wml>"
response.end
else
end if
uname=objgbrs("urlname")
p=objgbrs("p")
url=objgbrs("url")
ad_url=objgbrs("ad_url")
name=objgbrs("name")
pass=objgbrs("pass")
function sqlstr(data)
sqlstr="'" & Replace(data,"'","") & "'"
End function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -