📄 admin_list.asp

📁 一个做得非常精美的进存销系统,可惜某些功能上做了限制．

💻 ASP

字号:

<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<%
Dim rs,sqltext
Set rs=Server.Createobject("Adodb.RecordSet")
sqltext = "Select ID,User_Name,Levels,LoginTime,IP From [HQ_User] Where Levels='"&oo1&"'"
rs.Open sqltext,Conn,1,1
%>
<html>
<head>
<title>管理中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="Image/style.css" type=text/css rel=stylesheet>
<script language="JavaScript" src="Image/js.js"></SCRIPT>
</head>
<body text="#000000">
<table width="98%" border="0" cellpadding="0" cellspacing="0" align="center" class=TableBorder>
  <tr height="22" valign="middle" align="center"> 
    <th width="6%">ID</th>
    <th width="11%">级别</th>
    <th width="25%">姓名</th>
    <th width="21%">登陆时间</th>
    <th width="11%">登陆IP</th>
    <th width="26%">操作</th>
  </tr>
<%
If rs.Eof Then
Response.Write "<tr><td colspan='6'>没有任何记录!</td></tr>"
Else
Do While Not rs.Eof
%>
  <tr valign="middle" bgcolor="#FFFFFF" align="center" height="22"> 
    <td width="6%"><%=rs(0)%></td>
    <td width="11%"><%=Manage_Level(rs(2))%></td>
    <td width="25%"><a href="Admin_Edit.asp?id=<%=rs(0)%>" title="点击编辑"><%=rs(1)%></a></td>
    <td width="21%"><%=rs(3)%></td>
    <td width="11%"><%=rs(4)%></td>
    <td width="26%"><a href="Admin_Edit.asp?id=<%=rs(0)%>">编辑</a> | <a href="Admin_Del.asp?id=<%=rs(0)%>" onclick="{if(confirm('确定删除吗?')){return true;}return false;}">删除</a></td>
  </tr>
<%
rs.MoveNext
Loop
End if
rs.Close
Set rs=Nothing
Conn.Close
Set Conn=Nothing
%>
</table>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -