admin_manageuser.asp
来自「能进行网上购物的需求」· ASP 代码 · 共 134 行
ASP
134 行
<!--#include file="conn.asp"-->
<%
if session("admin_name")="" then
response.redirect "default.asp"
end if
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
if request("user_grade")<>"" then
sql="select * from 56770_user where user_grade='"&request("user_grade")&"' order by id desc"
end if
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql, conn, 1, 1
if rs.eof then
response.write "<script language='javascript'>"
response.write "alert('没有相关信息！');"
response.write "window.document.location.href='admin_manageuser.asp';"
response.write "</script>"
Response.End
end if
if not isempty(request("page"))then
pagecount=cint(request("page"))
else
pagecount=1
end if
rs.pagesize=20
rs.AbsolutePage=pagecount
'开始删除操作
if request("del")="true" then
user_id=request("user_id")
conn.execute "delete * from 56770_user where user_id='" & request("user_id")&"'"
conn.execute "delete * from 56770_message where to_user='" & request("user_id")&"'"
conn.execute "delete * from 56770_action where user_id='" & request("user_id")&"'"
conn.execute "delete * from 56770_auct where user_id='" & request("user_id")&"'"
conn.execute "delete * from 56770_basket where user_id='" & request("user_id")&"'"
conn.execute "delete * from 56770_orders where user_id='" & request("user_id")&"'"
conn.execute "delete * from 56770_dvote where user_id='" & request("user_id")&"'"
url="admin_manageuser.asp?page=" & request("page")
response.redirect url
end if
'开始删除操作
if request("a")="dellostuser" then
conn.execute "delete * from 56770_user where lastlogintime<now()-30"
response.write "<script language='javascript'>"
response.write "alert('30天以上没有登陆的用户已经删除！');"
response.write "window.document.location.href='admin_manageuser.asp';"
response.write "</script>"
Response.End
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="40" bgcolor="#FFCC33" background="images/admin_bg_1.gif">.:: 您可以在这里进行用户相关操作
<br>.:: 删除会员可一并删除会员的短信，购物车，订单，商品评论，以及关注商品，此操作将不可恢复！</td>
</tr>
</table>
<table border="0" cellspacing="1" cellpadding="2" width="100%" align="center" bgcolor="#FFFFFF">
<tr bgcolor="#FFCC33">
<td height="25" bgcolor="#D6DFF7" align="center">[<a href="admin_manageuser.asp?user_grade=vip">查看所有VIP会员</a>]</td>
<td height="25" bgcolor="#D6DFF7" align="center">[<a href="admin_manageuser.asp?user_grade=会员">查看所有普通会员</a>]</td>
<td height="25" bgcolor="#D6DFF7" align="center">[<a href="admin_manageuser.asp?a=dellostuser">删除30天以上没有登陆的用户</a>]</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>
<%
do while not rs.eof
%>
<tr>
<td width="15%" height="22" bgcolor="#B0CBE6"><a href="orders_list.asp?user_id=<%=rs("user_id")%>" title="查看该会员订单信息"><%=rs("user_id")%></a></td>
<td width="6%" bgcolor="#B0CBE6"><a href="admin_msg.asp?a=add&user_id=<%=rs("user_id")%>"><img src="images/message.gif" border="0" alt="发送站内短信"></a></td>
<td width="8%" bgcolor="#B0CBE6"><%=rs("user_grade")%></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="admin_useredit.asp?userid=<%=rs("id")%>&page=<%=cstr(pagecount)%>">[查看|编辑]</a></td>
<td width="10%" bgcolor="#B0CBE6"><a onclick='{if(confirm("删除会员，所有与之关联信息将全部删除，不可恢复!")){return true;}return false;}' href="admin_manageuser.asp?del=true&user_id=<%=rs("user_id")%>&page=<%=cstr(pagecount)%>">[删除]</a>
</td>
</tr>
<%
rs.movenext
i=i+1
if i >= rs.pagesize then exit do
loop
%>
<tr>
<form action="admin_manageuser.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="admin_manageuser.asp?user_id=<%=user_id%>&user_grade=<%=user_grade%>&page=<%=cstr(pagecount+1)%>">下一页</a>
<% end if %> <% if rs.pagecount>1 and rs.pagecount=pagecount then %>
<a href="admin_manageuser.asp?user_id=<%=user_id%>&user_grade=<%=user_grade%>&page=<%=cstr(pagecount-1)%>"> 上一页</a>
<%end if%> <% if pagecount<>1 and rs.pagecount<>pagecount then%> <a href="admin_manageuser.asp?user_id=<%=user_id%>&user_grade=<%=user_grade%>&page=<%=cstr(pagecount-1)%>">
上一页</a><ahref="admin_manageuser.asp?user_id=<%=user_id%>&user_grade=<%=user_grade%>&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%>>
<input type="hidden" name="user_grade" value=<%=user_grade%>>
</div>
</td></form>
</tr>
</table>
<%
rs.close
set rs=nothing
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?