📄 user_list.asp
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file ="Inc/MD5.asp"-->
<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">
<%If Request.QueryString("action")="del" Then
Call userdel
Else
%>
<table width="98%" border="0" cellpadding="0" cellspacing="0" align="center" class=TableBorder>
<tr height="22" valign="middle" align="center">
<th width="10%">ID</th>
<th width="30%">登陆名</th>
<th width="20%">登陆时间</th>
<th width="10%">登陆IP</th>
<th width="20%">操作</th>
</tr>
<%
Dim ll
Set ll = Conn.Execute("Select ID,admin,loginTime,ip From [Admin]")
Do While Not ll.Eof
%>
<tr valign="middle" bgcolor="#FFFFFF" align="center" height="22">
<td width="10%"><%=ll(0)%></td>
<td width="30%"><a href="User_Edit.asp?id=<%=ll(0)%>" title="点击编辑"><%=ll(1)%></a></td>
<td width="20%"><%=ll(2)%></td>
<td width="10%"><%=ll(3)%></td>
<td width="20%"><a href="User_Edit.asp?id=<%=ll(0)%>">编辑</a>
| <a href="?action=del&id=<%=ll(0)%>" onclick="{if(confirm('确定删除吗?')){return true;}return false;}">删除</a></td>
</tr>
<%
ll.MoveNext
Loop
ll.Close
Conn.Close
Set ll=Nothing
Set Conn=Nothing
%>
</table>
<%End if%>
</html>
<%
Sub userdel
Dim id,dd
id = Request.QueryString("id")
Set dd = Conn.Execute("Delete From [Admin] Where ID = "&id)
Response.write "<script language='javascript'>alert('删除成功!');" & chr(13)
Response.write "window.document.location.href='User_List.asp';</script>"
End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -