📄 user.asp
字号:
<!--#include file="md5.asp" -->
<!--#include file="conn.asp" -->
<!--#include file="sub.asp" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=webname%></title>
</head>
<body>
<style type="text/css">
<!--
.STYLE1 {color: #00000}
-->
</style>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<!--页面头部-->
<tr>
<td height="30">
<!--#include file="top.asp" --> </td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<!--公告内容-->
<tr>
<td width="100%" height="20" valign="middle"></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="4" cellspacing="0">
<!--签写留言，分类-->
<tr valign="middle">
<td width="10%" bgcolor="#FFCC99"><a href="index.asp">·返回首页</a></td>
<td width="76%" bgcolor="#FFCC99"> </td>
<td width="14%" bgcolor="#FFCC99" class="putongziti"><b><a href="add.asp"><font color="#FF0000">·签写留言</font></a></b></td>
</tr>
</table>
<table width="100%" align="center" cellpadding="0" cellspacing="1">
<!--循环留言-->
<tr>
<td width="100%" align="center"><br />
<table width="100%" border="0">
<tr bgcolor="#0099CC">
<td width="100%" height="20" align="center"class="dhzi">查看用户</td>
</tr>
<tr valign="top">
<td height="103" align="left"class="dhzi">
<form action="admin_deluser.asp" method="post">
<table width="100%" border="0">
<tr bgcolor="#FFCC99" >
<td width="31%" height="21"><span class="STYLE1"> 用户名</span></td>
<td width="29%" bgcolor="#FFCC99"><span class="STYLE1"> E-MAIL</span></td>
<td width="16%"><span class="STYLE1"> QQ</span></td>
<td width="24%"><span class="STYLE1"> 个人主页</span></td>
</tr>
<%set rsu=server.createobject("adodb.recordset")
rsu.open "select * from zdu ",conn,1,1
if not rsi.bof and not rsi.eof then
dim page
if request("page")="" then
page=1
else
page=cint(request("page"))
end if
rsu.pagesize=25 '每页显示N条记录
rsu.absolutepage=page
dim i
i=rsu.pagesize
end if%>
<% do while not rsu.eof%>
<tr>
<td height="21">
<%if session("zdqx")="alladmin" then%>
<input name="del" type="checkbox" id="del" value="<%=rsu("u_id")%>" />
<%end if%>
<%=rsu("u_name")%>(<font color="#FF0000"><%select case rsu("u_qx")
case "user"
response.Write("普通会员")
case "admin"
response.Write("管理员")
case "alladmin"
response.Write("超级管理员")
end select%></font>)</td>
<td><%=rsu("u_mail")%></td>
<td><a href="http://wpa.qq.com/msgrd?V=1&Uin=<%=rsu("u_qq")%>&Site=紫蝶轩留言本&Menu=yes" target="_blank" title="点击与作者交谈"><%=rsu("u_qq")%></a></td>
<td><a href="<%=rsu("u_home")%>" target="_blank"><%=rsu("u_home")%></a></td>
</tr>
<% rsu.movenext
loop%>
<tr>
<td height="21" colspan="4" bgcolor="#FFCC99"><span class="putongziti"> <a href="user.asp?page=1<%if request.QueryString("id")<>"" then response.Write("&id="&request.QueryString("id"))%>">首页</a>
<%if not page="1" then%>
<a href="user.asp?page=<%=page-1%><%if request.QueryString("id")<>"" then response.Write("&id="&request.QueryString("id"))%>">上一页</a>
<%else response.Write("上一页") end if%>
<%if not page=rsu.pagecount then%>
<a href="user.asp?page=<%=page+1%><%if request.QueryString("id")<>"" then response.Write("&id="&request.QueryString("id"))%>">下一页</a>
<% else response.Write("下一页") end if%>
<a href="user.asp?page=<%=rsu.pagecount%><%if request.QueryString("id")<>"" then response.Write("&id="&request.QueryString("id"))%>">末页</a> <font color="#FF0000"><%=page%></font>/<%=rsu.pagecount%>
<%if session("zdqx")="alladmin" then%>
<input type="submit" name="Submit" style="BACKGROUND-COLOR: #2071a0; BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: #eeeeee; TEXT-ALIGN: center" onMouseOver="this.style.color='#ffff00'"onmouseout="this.style.color='#eeeeee'" value="批量删除">
<%end if%>
</span></td>
</tr>
</table></form></td></tr>
</table>
</td></tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<!--版权-->
<tr>
<td width="100%" height="20" > <%call ksmyboot%> </td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -