📄 user_adminmanage.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("admin_name")="" then
response.redirect "error.asp?error=001"
end if
%>
<%
'开始删除操作
if request("del")="true" then
user_id=request("user_id")
conn.execute "delete * from 56770_user where id=" & request("userid")
url="user_adminmanage.asp?page=" & request("page")& "&user_id=" & user_id
response.redirect url
end if
%>
<body bgcolor="#FFFFCC" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="1" cellpadding="2" vspace="0" hspace="0" bgcolor="#FFFFFF">
<tr bgcolor="#FFCC33">
<td height="27" bgcolor="#FFCC33" background="images/admin_bg_1.gif">.:: 您可以在这里进行用户相关操作</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20"> </td>
</tr>
</table>
<table border="0" cellspacing="1" cellpadding="2" width="100%" align="center" bgcolor="#FFFFFF">
<tr>
<td height="22" background="images/admin_bg_1.gif">用户名 </td>
<td background="images/admin_bg_1.gif">等级</td>
<td background="images/admin_bg_1.gif">积分</td>
<td background="images/admin_bg_1.gif">注册时间</td>
<td height="25" background="images/admin_bg_1.gif"><img src="images/user.gif" alt="登陆次数"></td>
<td background="images/admin_bg_1.gif">最后登陆</td>
<td background="images/admin_bg_1.gif">IP</td>
<td colspan="2" background="images/admin_bg_1.gif"></td>
</tr>
<%
user_id=request("user_id")
if user_id="" then
sql="select * from 56770_user order by id desc"
else
sql="select * from 56770_user where user_id like '%"&user_id&"%' order by id desc"
end if
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql, conn, 1, 1
if not isempty(request("page"))then
pagecount=cint(request("page"))
else
pagecount=1
end if
rs.pagesize=20
rs.AbsolutePage=pagecount
do while not rs.eof
%>
<tr>
<td width="15%" height="22" bgcolor="#B0CBE6"><a href="orders_list.asp?user_id=<%=rs("user_id")%>"><%=rs("user_id")%></a></td>
<td width="8%" bgcolor="#B0CBE6"><%=rs("user_grade")%></td>
<td width="6%" bgcolor="#B0CBE6"><%=rs("jifen")%></td>
<td width="20%" bgcolor="#B0CBE6"><font color=#FF0000><%=rs("regdate")%></font></td>
<td width="4%" bgcolor="#B0CBE6" height="25"><%=rs("logins")%></td>
<td width="20%" bgcolor="#B0CBE6"><%=rs("lastlogintime")%></td>
<td width="3%" bgcolor="#B0CBE6" height="25"><img src="images/ip.gif" alt="最后登陆IP：<%=rs("lastloginIP")%>"></td>
<td width="14%" bgcolor="#B0CBE6"><a href="user_edit.asp?userid=<%=rs("id")%>&page=<%=cstr(pagecount)%>">[查看|编辑]</a></td>
<td width="10%" bgcolor="#B0CBE6"><a href="user_adminmanage.asp?del=true&userid=<%=rs("id")%>&page=<%=cstr(pagecount)%>&user_id=<%=user_id%>">[删除]</a>
</td>
</tr>
<%
rs.movenext
i=i+1
if i >= rs.pagesize then exit do
loop
%>
<tr>
<form action="user_adminmanage.asp" method="post">
<td height="35" colspan="9" bgcolor="#D6DFF7">
<div align="center"> 共 <b><%=rs.recordcount%></b> 位用户, 页次: <b><font color=red><%=pagecount%></font>/<%=rs.pagecount%></b>,
当前从第<%
if pagecount <= 1 then
response.write "<font color=red>1</font>"
else
response.write "<font color=red>" & pagecount*rs.pagesize-rs.pagesize+1 & "</font>"
end if
%> 位开始。 <% if pagecount=1 and rs.pagecount<>pagecount and rs.pagecount<>0 then%>
<a href="user_adminmanage.asp?user_id=<%=user_id%>&page=<%=cstr(pagecount+1)%>">下一页</a>
<% end if %> <% if rs.pagecount>1 and rs.pagecount=pagecount then %>
<a href="user_adminmanage.asp?user_id=<%=user_id%>&page=<%=cstr(pagecount-1)%>"> 上一页</a>
<%end if%> <% if pagecount<>1 and rs.pagecount<>pagecount then%> <a href="user_adminmanage.asp?user_id=<%=user_id%>&page=<%=cstr(pagecount-1)%>">
上一页</a><ahref="user_adminmanage.asp?user_id=<%=user_id%>&page=<%=cstr(pagecount+1)%>">
下一页</a><%end if%> 直接到第
<select name="page">
<%for i=1 to rs.pagecount%>
<option value="<%=i%>"><%=i%></option>
<%next%>
</select>
页
<input type="submit" name="go" value="Go">
<input type="hidden" name="user_id" value=<%=user_id%>>
</div>
</td></form>
</tr>
</table>
<%
rs.close
set rs=nothing
%>
<div align="center">
<p>注：积分视会员的购物金额而定，每购物一元积分增长一点！</p>
</div>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -