📄 shengji.asp
字号:
<%
if session("admin_name")="" then response.end
%>
<!--#include file="conn.asp"-->
<%set rs=server.createobject("adodb.recordset")
if request("action")="pass" then
sql="select * from member where user_id="&request("user_id")
rs.open sql,conn,3,3
if rs.eof then
response.write "没有这个商店的信息,请确认通过了申请"
response.end
else
rs("user_yes")=true
rs("user_regtime")=date()
rs.update
response.write "<center>"
response.write "<font color=red>已经通过确认!</font>"
end if
rs.close
end if
%>
<%
dim rs,sql
dim page,maxPerPage
maxPerPage=10 '每页显示的记录数
page=Request("page")
if (page="" or isempty(page)) then page=1
thisUrl="shengji.asp?true=1"
session("adminOldUrl")=thisUrl&"&page="&page
sql="select * from member where user_yes=false and user_company<>''"
sql=sql&" order by user_id desc"
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="99%" border="1" bordercolordark=#9CC7EF bordercolorlight=#145AA0 cellspacing="0" cellpadding="4" align="center">
<tr bgcolor="#4296E7">
<form method="post" action="memberList.asp" name="form1">
<td colspan="7" height="28">
<div align="center"><font color="#FFFFFF">商店管理</font></div>
</td>
</form>
</tr>
<tr bgcolor="#5EA5E6">
<td width="10%" nowrap>
<div align="center"><font color="#FFFFFF">用户名</font></div>
</td>
<td width="48%" nowrap>
<div align="center"><font color="#FFFFFF">商店名</font></div>
</td>
<td width="7%" nowrap>
<div align="center"><font color="#FFFFFF">联系电话</font></div>
</td>
<td width="30%" nowrap>
<div align="center"><font color="#FFFFFF">E-mail</font></div>
</td>
<td width="5%" 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_id=rs("user_id")
user_regtime=rs("user_regtime")
comdate=datediff("d",user_regtime,date())
%>
<tr>
<td width="10%" title="点击查看会员信息" style="cursor:hand" onClick="Javascript:window.location='memberMod.asp?id=<%=user_id%>'" bgcolor="#0099FF" nowrap>
<div align="center"><%=rs("user_name")%></div>
</td>
<td width="48%" title="点击查看商店具体信息" style="cursor:hand" onClick="Javascript:window.location='comlist.asp?user_company=<%=rs("user_company")%>'"><%=rs("user_company")%> </td>
<td width="7%" nowrap><%=rs("user_tel")%></td>
<td width="30%"><%=rs("user_mail")%></td>
<td width="5%"><input type="button" name="Submit3" value="通过" onClick="deleteMe1()"><script language=Javascript>
<!--
function deleteMe1(){
if (confirm("确定通过该商店?")==1){
window.location="shengji.asp?user_id=<%=rs("user_id")%>&action=pass";
}
}
//-->
</script></td>
</tr>
<%
i=i+1
if i>maxPerPage then exit do
rs.moveNext
loop
%>
<tr bgcolor="#4296E7">
<td colspan="7">
<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 + -