⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 admin_left.asp

📁 盗号用的
💻 ASP
字号:
<!--#include file="../Conn.asp"-->
<%
If Session("AdminUserName") = "" Then
    Response.Write "<script>window.open('Login.asp','_parent');</script>"
	Response.End
End If 
%>
<html>
<head>
<title></title>
<base target="main">
<STYLE type="text/css">
<!--
a:link       {text-decoration: none; font-family: AdobeSm; color: #000000 }
a:visited    {text-decoration: none; color: #000000 }
A:hover      {COLOR: green; FONT-FAMILY: "宋体,MingLiU"; TEXT-DECORATION: underline}
body         {font-size: 9pt; font-family: 宋体,MingLiU, Arial;color: #000000}
TD           {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000;table-layout:fixed;word-break:break-all}
p            {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
input        {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
body         {margin-top: 0; margin-bottom: 0;margin-left:0;margin-right:0; color: #000000}
select       {FONT-SIZE: 9PT;}
option       {FONT-SIZE: 9pt;}
textarea     {FONT-SIZE: 9pt;}
-->
</STYLE>
<META http-equiv="refresh" content="500;">
</head>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0" background="../images/bj2.jpg" >
<%
Set Rs = Conn.Execute("Select ID,Class from [User] Order By Id Asc")
Do While Not Rs.Eof
%>
<table border="0" width="143" id="table1" cellspacing="0" cellpadding="0">
	<tr>
		<td align="center">
		<img border="0" src="../images/nothing.jpg" width="4" height="1"></td>
	</tr>
	<tr>
	  <td height="22" valign="bottom" background="../images/bj1.jpg"><table width="143" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="21" height="21"><img src="../images/user.gif" width="21" height="15"></td>
          <td width="60"><a href="admin_data.asp?id=<%=Rs("Id")%>"><%=Rs("Class")%></a></td>
          <td width="43" align="left">
[<font color="#FF0000">
<%
Set Rs1 = Conn.Execute("Select Count(*) From Info Where class='" & Rs("Class") & "'")
Response.Write Rs1(0)
Set Rs1 = Nothing
%>
</font>]</td>
        </tr>
      </table></td>
	</tr>
</table>
<%
    Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -