📄 usermanage.asp
字号:
<%
if session("admin_name")="" then response.end
%>
<!--#include file="conn.asp"-->
<%
dim page,maxPerPage
maxPerPage=10 '每页显示的记录数
myKeyword=Request("myKeyword")
page=Request("page")
if (page="" or isempty(page)) then page=1
thisUrl="usermanage.asp?myKeyword="&myKeyword
session("adminOldUrl")=thisUrl&"&page="&page
set rs=server.createobject("adodb.recordset")
sql="select * from member where 1=1"
if not (myKeyword="" or isempty(myKeyword) ) then
sql=sql&" and user_name like '%"&myKeyword&"%'"
end if
sql=sql&" order by user_id"
'response.write sql
'response.End
rs.open sql,conn,1,1
rs.pagesize=MaxPerPage
%>
<html>
<head>
<title>会员管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=css.css rel=STYLESHEET type=text/css>
<script language=Javascript>
<!--
function jumpTo(i){
if(i==1){
this.document.location="<%=thisUrl%>";}
if(i==2){
this.document.location="<%=thisUrl%>&page=<%=page-1%>";}
if(i==3){
this.document.location="<%=thisUrl%>&page=<%=page+1%>";}
if(i==4){
this.document.location="<%=thisUrl%>&page=<%=rs.pageCount%>";}
}
//-->
</script>
</head>
<body bgcolor="#9CC7EF" text="#000000" leftmargin="0" topmargin="0">
<div align="center"><br>
会员管理 </div>
<table width="98%" border="1" bordercolordark=#9CC7EF bordercolorlight=#145AA0 cellspacing="0" cellpadding="4" align="center">
<tr>
<form method="post" action="usermanage.asp" name="form1">
<td colspan="6" bgcolor="#4296E7">
<div align="right"><font color="#FFFFFF">关键词</font>
<input type="text" name="myKeyword" size="16" value="<%=myKeyword%>">
<input type="submit" name="Submit" value="搜索">
</div>
</td>
</form>
</tr>
<tr bgcolor="#5EA5E6">
<td width="12%" nowrap>
<div align="center"><font color="#FFFFFF"> 会员帐号</font></div>
</td>
<td width="10%" nowrap>
<div align="center"><font color="#FFFFFF">常用电话</font></div>
</td>
<td width="22%" nowrap>
<div align="center"><font color="#FFFFFF">E-mail</font></div>
</td>
<td width="31%" nowrap>
<div align="center"><font color="#FFFFFF">收货地址</font></div>
</td>
<td width="10%" nowrap>
<div align="center"><font color="#FFFFFF">邮政编码</font></div>
</td>
<td width="15%" nowrap>
<div align="center"><font color="#FFFFFF">详细信息</font></div>
</td>
</tr>
<%
dim rsID
i=1
if not (rs.eof or err) then rs.move (page-1)*maxPerPage
do while not (rs.eof or err)
user_yes=rs("user_yes")
user_regtime=rs("user_regtime")
rsID=rs("user_id")
user_company=rs("user_company")
comdate=datediff("d",user_regtime,date())
%>
<tr>
<td width="12%"><%=rs("user_name")%> </td>
<td width="10%"><%=rs("user_tel")%> </td>
<td width="22%"><%=rs("user_mail")%> </td>
<td width="31%"><%=rs("user_adds")%> </td>
<td width="10%"><%=rs("user_postcode")%> </td>
<td width="15%">
<a title="查看具体信息" style="cursor:hand" onClick="Javascript:window.location='memberMod.asp?id=<%=rs("user_id")%>'">查看详细信息</a></td>
</tr>
<%
i=i+1
if i>maxPerPage then exit do
rs.moveNext
loop
%>
<tr bgcolor="#4296E7">
<td colspan="6">
<div align="right"><font color=#FFFFFF><%=rs.recordCount%> 项 第<%=page%>/<%=rs.pageCount%>
页 </font>
<%if page>1 then%>
<input type="button" name="Submit3" value="首页" onClick="Javascript:jumpTo(1)">
<input type="submit" name="Submit4" value="上页" onClick="Javascript:jumpTo(2)">
<%else%>
<input type="button" name="Submit3" value="首页" disabled>
<input type="submit" name="Submit4" value="上页" disabled>
<%end if
if rs.recordCount>page*maxPerPage then%>
<input type="submit" name="Submit5" value="下页" onClick="Javascript:jumpTo(3)">
<input type="submit" name="Submit6" value="末页" onClick="Javascript:jumpTo(4)">
<%else%>
<input type="submit" name="Submit5" value="下页" disabled>
<input type="submit" name="Submit6" value="末页" disabled>
<%end if%>
</div>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -