ad_user.asp

asp网站 挺不错的 试一下吧 网上购物系统 呵呵呵

<!--#include file="conn.asp"-->
<!--#include file="ad_chk.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=inc/css.css rel=STYLESHEET type=text/css>

<%
if request("action")="deluser" then
set rs=server.createobject("adodb.recordset")
sql="select * from venshop_user where id="&request("user_id")
rs.open sql,conn,1,3
if rs.eof then
response.write "<center>"
response.write "用户信息已删除!"
response.end
else
rs.delete
response.write "<center>"
response.write "用户信息已删除!"
response.end
end if
rs.close
set rs=nothing
response.write " <a href=# onClick=history.go(-1)><font color=#ff0000>返回</font></a>"
response.end
end if
%>
<table border="0" cellspacing="1" cellpadding="5" bgcolor="#C8C8C8">
<tr bgcolor="688cb8"><td bgcolor="#F0F0F0" align="center" width="50">ID</td>
	<td bgcolor="#F0F0F0" align="center" width="100">用户名</td>
	<td bgcolor="#F0F0F0" align="center" width="100">E-mail</td>
	<td bgcolor="#F0F0F0" align="center" width="80">注册时间</td>
	<td bgcolor="#F0F0F0" align="center" width="50">类型</td>
	<td bgcolor="#F0F0F0" align="center" width="50">积分</td>
	<td bgcolor="#F0F0F0" align="center" width="50">订单</td>
	<td bgcolor="#F0F0F0" align="center" width="50">删除</td></tr>
<%page=request.querystring("page")
if page="" then page=1
if not(isnumeric(page)) then page=1
if page<1 then page=1
page=int(page)
set rs=server.createobject("adodb.recordset")
if request("user_name")<>"" then
user_name=request("user_name")
sql="select * from venshop_user where username like '%"&user_name&"%' order by ID desc"
else
sql="select * from venshop_user order by ID desc"
end if
rs.open sql,conn,1,1
if rs.eof then
%><tr bgcolor="#FFFFFF"><td colspan="8" bordercolor="#F0F0F0">暂且没有任何用户注册</td></tr>
<%else
rs.pagesize=20
totalrec=rs.recordcount
totalpage=rs.pagecount
if page>totalpage then page=totalpage
rs.absolutepage=page
rs.cachesize=rs.pagesize
do while not rs.eof and (i<rs.pagesize)%>
<tr bgcolor="#FFFFFF"><td align="center" bordercolor="#F0F0F0"><%=rs("id")%></td>
<td align="center" bordercolor="#F0F0F0"><a href="ad_modify.asp?id=<%=rs("id")%>"><%=rs("username")%></a></td>
<td align="center" bordercolor="#F0F0F0"><a href="ad_dysend.asp?tmail=<%=rs("usermail")%>"><%=rs("usermail")%></a> <img border="0" src="Img/ad_help.gif" class="helpimg" alt="点击邮箱可以给用户发信"></td>
<td align="center" bordercolor="#F0F0F0"><%=right(year(rs("regtime")),2)%>-<%=month(rs("regtime"))%>-<%=day(rs("regtime"))%></td>
<td align="center" bordercolor="#F0F0F0"><%if rs("user_type")="" then
usertype_name="普通用户"
else
user_type=rs("user_type")
set rst=server.createobject("adodb.recordset")
sql="select * from venshop_usertype where usertype_id="&user_type&""
rst.open sql,conn,1,1
if rst.eof then
usertype_name="普通用户"
else
usertype_name=rst("usertype_name")
end if
rst.close
set rst=nothing
end if%><%=usertype_name%></td>
<td align="center" bordercolor="#F0F0F0"><%=rs("savemoney")%></td>
<td align="center" bordercolor="#F0F0F0"><a href="ad_sub.asp?user_name=<%=rs("username")%>">查看订单</a><img border="0" src="Img/ad_help.gif" class="helpimg" alt="点击查看订单可以查看用户订单信息统计"></td>
<td align="center" bordercolor="#F0F0F0"><a href="ad_user.asp?user_id=<%=rs("id")%>&action=deluser" onClick="return confirm('您确定进行删除操作吗？')">删除</a></td></tr>
<%rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<tr bgcolor="#FFFFFF"><td colspan="8" bordercolor="#F0F0F0"> 
共<font color=red><%=totalpage%></font>页 第<%=page%>页 
<%if page-1>0 then%><a href="ad_user.asp?page=<%=page-1%>">上一页</a> <%else%>上一页 <%end if%>
<%if page+1<=totalpage then%><a href="ad_user.asp?page=<%=page+1%>">下一页</a> <%else%>下一页 <%end if%>
</td></tr></table><%end if%>
<br>
<table width="300" border="0" cellpadding="5" cellspacing="0" bgcolor="#F0F0F0"><form method="POST" action="ad_user.asp">
<tr><td>用户名查找：</td><td>
<input style="FONT-SIZE: 12px; WIDTH: 110px" type="text" name="user_name" size="15" class=input></td><td>
<input type="submit" name="imageField2" value="查询" ></td><td>
<img border="0" src="Img/ad_help.gif" class="helpimg" alt="按用户名模糊查询！"></td></tr></form></table><table cellSpacing="0" cellPadding="3" border="0" width="500"><tr><td height="20"></td></tr>
<tr><td bgcolor="#F2F2F2"><p style="LINE-HEIGHT: 150%"><font color="#FF0000">凡人网络购物系统V8.0 版权所有:</font><a target="_blank" href="http://www.venshop.com"><font color="#FF0000">凡人网络VenShop.Com</font></a><font color="#FF0000"><br>客服电话:[phone]&nbsp; QQ:739202/57152557 Email/Msn:</font><a href="mailto:[e-mail]"><font color="#FF0000">[e-mail]</font></a></td>
</tr></table>