📄 admin2.asp

📁 7k书城小偷程序。。。。。。。。。。。。。。。。。。。。。

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%response.buffer=true%>
<%Session.Abandon%>
<%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">
<!--#INCLUDE file="conn.asp"-->
<wml>
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
</head>

<% 
dim name,pass
name=request("name")
pass=request("pass")
  set objgbrs=Server.CreateObject("ADODB.Recordset")
  ssql="select * from admin where name=" & sqlstr(name) & " and pass=" & sqlstr(pass)
  objgbrs.open ssql,myc
if objgbrs.eof then
  Response.write "<card id='card1' title='&#x767B;&#x9646;' ontimer='index.asp'><timer value='20'/><p>&#x7528;&#x6237;&#x540D;&#x6216;&#x5BC6;&#x7801;&#x4E0D;&#x5BF9;!!&#x6B63;&#x5728;&#x8FD4;&#x56DE;...<br/><br/><a href='index.asp'>[&#x7559;&#x8A00;&#x9ED1;&#x677F;]</a><br/><a href='/index.asp'>[&#x7F51;&#x7AD9;&#x9996;&#x9875;]</a></p></card></wml>"
 response.end
else
  objgbrs.movefirst
 do until objgbrs.eof
 if name=objgbrs("name") and pass=objgbrs("pass") then
  Session.Timeout=20
  Session("name")=objgbrs("name")
  Session("useid")=objgbrs("id")
  Session("admin")="pass"

dim idss
sid=Session.sessionid
idss=sid

sql="update admin set idss=" & idss & " where id="& Session("useid")
	myc.execute(sql)
sql="select idss from admin where id="& Session("useid")
set objgbrs=myc.execute(sql)
 if Not objgbrs.eof then
idss=objgbrs("idss")
  end if
  exit do
end if
loop
 Response.write "<card id='card1' title='&#x767B;&#x9646;' ontimer='index.asp?idss=" & idss & "'><timer value='20'/><p>&#x767B;&#x9646;&#x6210;&#x529F;&#xFF0C;&#x6B63;&#x5728;&#x8FD4;&#x56DE;!!<br/><br/>"
 Response.write "<a href='index.asp?idss=" & idss & "'>[&#x7559;&#x8A00;&#x9ED1;&#x677F;]</a><br/><a href='/index.asp'>[&#x7F51;&#x7AD9;&#x9996;&#x9875;]</a><br/></p></card></wml>"
End if
set objgbrs=nothing
myc.close
set myc=nothing
function sqlstr(data)
   sqlstr="'" & Replace(data,"'","'") & "'"
  End function
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -