📄 usermanage.asp
字号:
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=../css.css rel=STYLESHEET type=text/css>
<title>杰拍网销售系统</title></head>
<script>
function user(id) { window.open("viewuser.asp?user_id="+id,"","height=400,width=600,left=190,top=0,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");}
</script>
<%
if session("admin_name")="" then response.end
set rs=server.createobject("adodb.recordset")
%>
<!--#include file="conn.asp"-->
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="77%" border="0" cellpadding="3" cellspacing="1" bgcolor="#378d02">
<tr bgcolor="#99cc00">
<td width="7%" height="17"> <div align="center"><font color="#000000">ID</font></div></td>
<td width="9%" height="17"> <div align="center"><font color="#000000">用户名</font></div></td>
<td width="14%" height="17"> <div align="center"><font color="#000000">E-mail
</font></div></td>
<td width="11%" height="17"> <div align="center"><font color="#000000">邮政编码</font></div></td>
<td width="18%" height="17"> <div align="center"><font color="#000000">地址</font></div></td>
<td width="11%" height="17"> <div align="center"><font color="#000000">注册时间</font></div></td>
<td width="8%" height="17"> <div align="center"><font color="#000000">类型</font></div></td>
<td width="10%" height="17"> <div align="center"><font color="#000000">删除</font></div></td>
<td width="12%" height="17"> <div align="center"><font color="#000000">升级成VIP</font></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<%
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)
sql="select * from member order by user_id desc"
rs.open sql,conn,3,3
if rs.eof then
%>
<td height="22" colspan="9">暂且没有任何用户注册</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
i=0
dim user_id(),user_name(),user_mail(),user_postcode(),user_adds(),user_regtime(),user_type()
do while not rs.eof and (i<rs.pagesize)
i=i+1
redim preserve user_id(i),user_name(i),user_mail(i),user_postcode(i),user_regtime(i),user_type(i),user_adds(i)
user_id(i)=rs("user_id")
user_name(i)=rs("user_name")
user_mail(i)=rs("user_mail")
user_postcode(i)=rs("user_postcode")
user_regtime(i)=rs("user_regtime")
user_type(i)=rs("user_type")
user_adds(i)=rs("user_adds")
rs.movenext
loop
rs.close
for i=1 to ubound(user_id)
%>
<tr bgcolor="#FFFFFF">
<td width="7%" height="15"><%=user_id(i)%> <div align="center"></div></td>
<td width="9%" height="15"><%=user_name(i)%> <div align="center"></div></td>
<td width="14%" height="15"><%=user_mail(i)%> <div align="center"></div></td>
<td width="11%" height="15"><%=user_postcode(i)%> <div align="center"></div></td>
<td width="18%" height="15"> <div align="center"><%=user_adds(i)%></div></td>
<td width="11%" height="15"><%=user_regtime(i)%> </td>
<td width="8%" height="15"><%=user_type(i)%> </td>
<td width="10%" height="15"> <div align="center"><a href="viewuser.asp?user_id=<%=user_id(i)%>&action=deluser">删除</a></div></td>
<td width="12%" height="15"> <div align="center"><a href="sheng.asp?user_id=<%=user_id(i)%>&action=up">升级</a>
</div></td>
</tr>
<%next
%>
<tr bgcolor="#FFFFFF" align="right">
<td colspan="9" height="2"> <p align="left"> 共<font color=red><%=totalpage%></font>页 第<%=page%>页 <font color=666666>
<%if page-1>0 then%>
<a href="usermanage.asp?page=<%=page-1%>">上一页</a>
<%else%>
<font color=666666>上一页</font>
<%end if%>
<%if page+1<=totalpage then%>
<a href="usermanage.asp?page=<%=page+1%>">下一页</a>
<%else%>
<font color=666666>下一页</font>
<%end if%>
</font></p></td>
</tr>
</table>
<%end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -