📄 kuguan_list.asp
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<%
Dim rs,sqltext
Set rs=Server.Createobject("Adodb.RecordSet")
sqltext = "Select * From [HQ_User] Where Levels='"&oo6&"'"
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%">工号</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("ID")%></td>
<td width="11%"><%=Manage_Level(rs("Levels"))%></td>
<td width="25%"><%=rs("User_Name")%></td>
<td width="21%"><%=rs("LoginTime")%></td>
<td width="11%"><%=rs("IP")%></td>
<td width="26%"><a href="User_Edit.asp?id=<%=rs("ID")%>">编辑</a> | <a href="User_Del.asp?id=<%=rs("ID")%>" 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 + -