📄 user_manage.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Conn/Conn.asp"-->
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
SQL="Select * From tb_User Where Status<>'版主'"
rs.Open SQL,conn,1,3
%>
<html>
<head>
<title>用户管理！</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="./Css/style.css" rel="stylesheet">
<script src="JS/function.asp"></script>
<script src="JS/check.asp"></script>
</head>
<body onLoad="clockon()">
<table width="777" height="341" border="0" align="center" cellpadding="-2" cellspacing="-2">
<tr>
<td valign="top"><table width="100%" height="47" border="0" cellpadding="-2" cellspacing="-2" class="tableBorder">
<tr bgcolor="#9CA6C6">
<td height="8"></td>
</tr>
<tr>
<td></td>
</tr>
<tr>
<td height="2"></td>
</tr>
<tr>
<td valign="top"><!--#include file="Navigate.asp"-->
<table width="100%" height="205" border="0" cellpadding="-2" cellspacing="-2" class="tableBorder">
<tr>
<td width="13" height="32" background="Images/board_left.gif"> </td>
<td width="689" background="Images/board_left.gif" style="color:#FFFFFF"> ≡ 管理用户信息
≡ </td>
<td width="73" background="Images/board_right.gif"> </td>
</tr>
<tr valign="top">
<td height="171" colspan="3"><table width="100%" height="170" border="0" cellpadding="-2" cellspacing="-2">
<tr>
<td height="10" valign="top"></td>
</tr>
<tr>
<td valign="top"><table width="100%" border="1" cellpadding="-2" cellspacing="-2" bordercolor="#FFFFFF" bordercolordark="#9999CC" bordercolorlight="#FFFFFF" class="tableBorder_B">
<tr align="center">
<td width="112">用户名</td>
<td width="102">真实姓名</td>
<td width="32">性别</td>
<td width="108">生日</td>
<td width="245">Email地址</td>
<td width="74">QQ</td>
<td width="53">发帖数量</td>
<td width="31">操作</td>
</tr>
<%
'分页显示类别列表
rs.pagesize=10
page=CLng(Request("page"))
if page<1 then page=1
rs.absolutepage=page
rs.movefirst
for i=1 to rs.pagesize
ID=rs("ID")
%>
<script language="javascript">
function del(ID){
if(confirm("真的要删除该用户吗？")){
window.location.href="User_del.asp?UID="+ID;
}
}
</script>
<tr>
<td align="center"><%=rs("UserName")%></td>
<td align="center"><%=rs("TrueName")%></td>
<td align="center"><%=rs("Sex")%></td>
<td align="center"><%=rs("Birthday")%></td>
<td align="center"><%=rs("Email")%></td>
<td align="center"><%=rs("QQ")%> </td>
<td align="center"><%=rs("SendRatio")%></td>
<td align="center"><a href="#" onClick="del(<%=ID%>)"><img src="Images/del.gif" width="22" height="22" border="0"></a></td>
</tr>
<%
rs.MoveNext
If rs.Eof Then exit For
Next
%>
</table>
<table width="100%" border="0" cellspacing="-2" cellpadding="-2">
<%If not(rs.Eof and rs.Bof) Then%>
<td width="34%" align="left">
<% if page<>1 then %><a href=?page=1 class="white">第一页</a>
<a href=?page=<%=(page-1)%> class="white">上一页</a>
<%end if
if page<>rs.pagecount then %>
<a href=?page=<%=(page+1)%> class="white">下一页</a>
<a href=?page=<%=rs.pagecount%> class="white">最后一页</a>
<%end if%> </td>
<td width="66%" align="right" class="word_grey">[<%=page%>/<%=rs.PageCount%>] 每页<%=rs.PageSize%>条 共<%=rs.RecordCount%>位用户 </td>
<%End If
%>
</table></td>
</tr>
<tr>
<td height="10" valign="top"></td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="777" height="89" border="0" align="center" cellpadding="-2" cellspacing="-2">
<tr>
<td align="center"><div align="center" style="color:#666666 ">本站请用IE5.0或以上版本浏览，1024*768为最佳效果<br>
CopyRight © 2005 长春市明日实业有限公司</div></td>
</tr>
</table>
</body>
</html>
<%
rs.close()
Set rs=Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -