📄 user.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="setting.asp"-->
<%
if request("action")="del" then
dim bhx
bhx="1"
if (request("bh")<>"")then
bhx=request("bh")
sql = "Select * from user where bh="+ bhx
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open sql,conn,2,3
rs.delete
rs.close
set rs=nothing
response.Redirect("admin_right.asp?url=user.asp&reason=删除成功!")
end if
end if
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>user</title>
<link href="css/css.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
body {
background-image: url();
}
-->
</style></head>
<body>
<div>
<div align="center" class="STYLE3">
<table width="861" border="0" bgcolor="#FFFFFF" class="tb1">
<tr>
<td><div align="left">
<form id="form1" name="form1" method="post" action="user.asp?action=search">
搜索用户名:
<label>
<input name="name" type="text" class="STYLE3" id="name" />
</label>
<label>
<input name="Submit" type="submit" class="STYLE7" value="现在搜索!" />
</label>
<p class="STYLE8">注册用户为前台调用注册用户,整合前台注册,只有前台注册符合系统才有显示</p>
</form>
</div></td>
</tr>
<tr>
<td>
<span class="STYLE8">
<%
if request("action")="search" then
name1=trim(request("name"))
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from user where name='"&name1&"'"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("没有搜索的结果!错误原因可能为:你没有任何用户或者你没有使用官方用户版!")
else%>
</span>
<table width="861" border="0" class="littlered">
<tr>
<td><div align="left"><%=rs("name")%></div></td>
<td><div align="left"><a href="user.asp?action=del&bh=<%=rs("bh")%>">删除</a> 提升权限</div></td>
</tr>
</table>
<%
end if
end if
%>
</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><div align="left">现有用户名列表</div></td>
</tr>
<tr>
<td>
<%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from user_user order by bh desc"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("暂时还没有用户注册记录")
else
rs.PageSize=10
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
for j=1 to rs.PageSize
%>
<table width="861" border="0" class="tb1">
<tr>
<td><div align="left"><%=rs("name")%> </div></td>
<td><div align="left"><%=rs("password")%> </div></td>
<td><div align="left"><%=rs("admin")%> </div></td>
</tr>
<tr>
<td><div align="left"><%=rs("qq")%> </div></td>
<td><div align="left"><%=rs("email")%> </div></td>
<td><div align="left"><%=rs("age")%> </div></td>
</tr>
<tr>
<td><div align="left"><%=rs("last_login_time")%> </div></td>
<td><div align="left"><a href="user.asp?action=del&bh=<%=rs("bh")%>">删除</a> 提升权限</div></td>
<td>
<div align="left">
</div></td>
</tr>
</table> <%
rs.movenext
if rs.eof then exit for
next
%> </td>
</tr>
<tr>
<td><div align="center">
<%if Page<2 then
response.write "首页 上一页 "
else
response.write "<a href=admin_info.asp?page=1>首页</a> "
response.write "<a href=admin_info.asp?page=" & Page-1 & ">上一页</a> "
end if
if rs.pagecount-page<1 then
response.write "下一页 尾页"
else
response.write "<a href=admin_info.asp?page=" & (page+1) & ">"
response.write "下一页</a> <a href=admin_info.asp?page="&rs.pagecount&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
response.write " 共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
response.write " 转到：<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
response.write " <input class=input type='submit' value=' Goto ' name='cndok'></span></p>"
%>
<%
end if
rs.close
set rs=nothing
%>
</div></td>
</tr>
</table>
</div>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -