📄 manager.asp
字号:
<!--#include file="include.asp"-->
<%
if not session("log") then response.redirect "login.asp"
if request.form("delit")<>empty then call del_it()
dim sql,rs
dim user,title,count,ip_hits,start_date
sql="select * from cnt_msg order by user01"
set rs=conn.execute(sql)
%>
<html>
<head>
<title>用户管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
td { font-size: 9pt}
input { font-size: 9pt}
.button { font-size: 9pt; color: #FFFFFF; background-color: #000000}
a { text-decoration: none}
a:hover { color: #FFFF99; text-decoration: underline}
-->
</style>
</head>
<body bgcolor="#6A4F9A" text="#FFFFFF" link="#E1E1FF" vlink="#E1E1FF" alink="#FFFF33">
<form method="post" action="manager.asp" name="form1">
<table width="711" border="0">
<tr align="center">
<td><b>用 户 名 单 管 理</b></td>
</tr>
<tr>
<td height="23"><a href="addnew.asp" target="_blank">加入新用户</a> | <a href="del_cnt_list.asp" target="_blank">清空当日IP列表</a>
| <a href="login.asp">退出管理</a></td>
</tr>
</table>
<table width="711" border="1" cellspacing="0" bordercolorlight="#FFFFFF" bordercolordark="#333333">
<tr bgcolor="#CCCCCC">
<td width="24"><font color="#000000"><b> </b></font></td>
<td width="95"><font color="#000000">用户名称</font></td>
<td width="122"><font color="#000000">网站名称</font></td>
<td width="114"><font color="#000000">总访问量</font></td>
<td width="109"><font color="#000000">总IP次数</font></td>
<td width="134" align="center"><font color="#000000">开始统计日期</font></td>
<td width="83" align="center"><font color="#000000">操作</font></td>
</tr>
<%
while not rs.eof
user=server.htmlencode(rs("user01"))
title=server.htmlencode(rs("title"))
count=rs("count01")
ip_hits=rs("ip_hits")
start_date=rs("start_date")
%>
<tr>
<td width="24">
<input type="checkbox" name="select_it" value="<%=user%>">
</td>
<td width="95"><%=user%></td>
<td width="122"><%=title%></td>
<td width="114"><%=count%></td>
<td width="109"><%=ip_hits%></td>
<td width="134" align="center"><%=start_date%></td>
<td width="83" align="center">【<a href="modify.asp?user=<%=user%>" target="_blank">修改</a>】</td>
</tr>
<%
rs.movenext
wend
%>
</table>
<table width="712" border="0">
<tr>
<td colspan="2"> </td>
</tr>
<tr align="center">
<td colspan="2">
<input type="submit" name="delit" value="删除所选名单" class="button">
<input type="reset" name="Submit2" value="重新选择" class="button">
</td>
</tr>
</table>
</form>
<p> </p>
<p> </p>
</body>
<%
conn.close()
set conn=nothing
set rs=nothing
%>
</html>
<%
function del_it()
dim sql,max,list
list=request.form("select_it")
list=split(list,",")
max=ubound(list)
for k=0 to max
user=trim(list(k))
sql="delete cnt_msg where user01='"&user&"'"
conn.execute(sql)
sql="delete cnt_info where user01='"&user&"'"
conn.execute(sql)
sql="delete cnt_history where user01='"&user&"'"
conn.execute(sql)
next
end function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -