📄 shop_check.asp
字号:
<%
if request.cookies("汕头商城")<>"9988" then
response.redirect "../default.asp"
end if
%>
<!--#include file="conn.asp"-->
<html>
<head>
<title>商家资料</title>
<link href="../IMAGES/css.css" rel="stylesheet" type="text/css">
<STYLE type=text/css>
.main {
FONT-SIZE: 12px
}
.main1 {
FONT-SIZE: 14px
}
.main2 {
FONT-SIZE: 16px
}
.main3 {
FONT-SIZE: 7px
}
.main4 {
FONT-SIZE: 10px
}
A:link {
COLOR: #000000;
TEXT-DECORATION: none;
font-size: 9pt;
}
A:visited {
COLOR: #ffffff; TEXT-DECORATION: none
}
A:active {
COLOR: #ff0000; TEXT-DECORATION: none
}
A:hover {
COLOR: #aa0000; TEXT-DECORATION: underline
}
.style2 {color: #FFFFFF}
.body {
font-family: "宋体";
font-size: 9pt;
color: #000000;
text-decoration: none;
}
</STYLE>
<script language="javascript">
function confirmdel(id,page){
if (confirm("真的要删除这个用户?"))
window.location.href="del_shop.asp?id="+id+"&page="+page
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftmargin="0" topmargin="0">
<table width="750" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><iframe src=top.htm noresize scrolling=no frameborder=0 width=778 height=50 hspace="0" vspace="0" marginheight="0"></iframe>
</td>
</tr>
</table>
<br>
<div align="center">
<center>
<%
set rs=server.createobject("adodb.recordset")
sqltext="select * from shop order by id desc"
rs.open sqltext,conn,1,1
dim MaxPerPage
MaxPerPage=20
'假如没有数据时
If rs.eof and rs.bof then
call showpages
response.write "<p align='center'><font color='#ff0000'>还没任何用户资料</font></p>"
response.end
End if
'取得页数,并判断用户输入的是否数字类型的数据，如不是将以第一页显示
dim text,checkpage
text="0123456789"
Rs.PageSize=MaxPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next
If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
call showpages
call list
If Rs.recordcount > MaxPerPage then
call showpages
end if
'显示帖子的子程序
Sub list()%>
<TABLE cellSpacing=1 cellPadding=4 width=776 bgColor=#416327 height="136" align="center">
<TBODY>
<TR vAlign=top bgColor=#e6e4c4>
<TD class=main1 width="827" height="10" bgcolor="#6D8E4D"></TD>
</TR>
<TR vAlign=top bgColor=#e6e4c4>
<TD class=main1 width="827" height="18">用户审查--</TD>
</TR>
<TR vAlign=top bgColor=#e6e4c4>
<TD class=main1 width="827" height="15">
<table border="1" cellpadding="0" cellspacing="0" width="764" bordercolorlight="#6D8E4D" bordercolordark="#E6E4C4">
<tr class=main1>
<td width="59" bgcolor="#6D8E4D" align="center" height="20"><font color="#FFFFFF">密码</font></td>
<td width="155" bgcolor="#6D8E4D" align="center" height="20"><font color="#FFFFFF">商店全称</font></td>
<td width="86" bgcolor="#6D8E4D" align="center" height="20"><div align="center"><font color="#FFFFFF">电子信箱</font></div></td>
<td width="114" bgcolor="#6D8E4D" align="center" height="20"><font color="#FFFFFF">联系电话</font></td>
<td width="33" bgcolor="#6D8E4D" align="center" height="20"><font color="#FFFFFF">入数</font></td>
<td width="176" bgcolor="#6D8E4D" align="center" height="20"><font color="#FFFFFF">公司地址</font></td>
<td width="33" bgcolor="#6D8E4D" align="center" height="20"><font color="#FFFFFF">DEL</font></td>
<td width="32" bgcolor="#6D8E4D" align="center"><span class="style2">审核</span></td>
<td width="56" align="center" bgcolor="#6D8E4D"><span class="style2">审核操作</span></td>
</tr>
<%
if not rs.eof then
i=0
do while not rs.eof
%>
<tr class=main1>
<td width="59" align="center" height="25"><a href="goto_shop.asp?shop_name=<%=rs("shop_name1")%>" target="_blank"><font color="#6600CC"><%=rs("PassWD")%></font></a></td>
<td width="155" align="center" height="25"><a href="../shop/default.asp?shop_name=<%=rs("shop_name1")%>" target="_blank"><font color="#6600CC"><%=rs("shop_name1")%></font></a></td>
<td width="86" align="center" height="25"><%=rs("Email")%></td>
<td width="114" align="center" height="25"><%=rs("Phone")%></td>
<td width="33" align="center" height="25"><%=rs("goincount")%></td>
<td width="176" align="center" height="25"><%=rs("Address")%> </td>
<td width="33" align="center" height="25">
<%response.write "<a href='javascript:confirmdel(" & rs("Id") & ","& CurrentPage&")'><font color=#0000FF>删</font></a>"
%>
</td>
<td width="32" align="center"><%if rs("Passed")=1 then response.write "是" else response.write "否" end if%></td>
<td width="56" align="center"><%if rs("passed")=1 then%><a href=audit_false.asp?id=<%=rs("id")%>><font color=red>已审</font></a>
<%else%>
<a href=audit.asp?id=<%=rs("id")%>>待审</a>
<%end if%></td>
</tr>
<%
i=i+1
if i >= MaxPerpage then exit do
rs.movenext
loop
end if
%>
</table>
</TD></TR>
<TR bgColor=#e6e4c4>
<TD class=main1 width="827" height="27">
<p align="center">
</TD></TR>
<TR bgColor=#e6e4c4>
<TD class=main1 width="827" height="4" bgcolor="#6D8E4D"></TD>
</TR></TBODY></TABLE><br>
<%
End sub
rs.close
conn.close
%> </center>
</div>
<div align="center">
<center>
<%
'显示翻页的子程序
sub showpages()%>
<table bgColor="#f8e8a0" border="0" cellPadding="0" cellSpacing="0" width="776" >
<tr><td width="695">
<%
response.write "<form method=Post action='shop_check.asp'>"
%>
<table bgColor="#6D8E4D" border="0" cellPadding="0" cellSpacing="0" width="776" height="30">
<tr>
<td bgcolor="#E6E4C4" class=main1>
<font color="#000000">
<p align="center">
<%
Response.write "<font color='#000000'>分页-</font>"
If currentpage > 1 Then
response.write "<a href='shop_check.asp?&page="+cstr(1)+"'><font color='#000000'>首页</font></a><font color='#ffffff'><b>-</b></font>"
Response.write "<a href='shop_check.asp?page="+Cstr(currentpage-1)+"'><font color='#000000'>前页</font></a><font color='#ffffff'><b>-</b></font>"
Else
Response.write "<font color='#000000'>首页-</font>"
Response.write "<font color='#000000'>前页-</font>"
End if
If currentpage < Rs.PageCount Then
Response.write "<a href='shop_check.asp?page="+Cstr(currentPage+1)+"'><font color='#000000'>后页</font></a><font color='#ffffff'><b>-</b></font>"
Response.write "<a href='shop_check.asp?page="+Cstr(Rs.PageCount)+"'><font color='#000000'>尾页</font></a> "
Else
Response.write "<font color='#000000'>后页-</font>"
Response.write "<font color='#000000'>尾页</font> "
End if
Response.write "<font color='#000000'>页次:</font>" & "<font color=#FF0000>" & Cstr(CurrentPage) & "</font>" & "<font color='#000000'>/" & Cstr(rs.pagecount) & "</font> "
Response.write "<font color=#ff0000>" & Cstr(MaxPerPage) & "</font>" & "<font color='#000000'>个用户/页 " & "共</font>" & "<font color=#FF0000>" & Cstr(Rs.RecordCount) & "</font>" & "<font color='#000000'>个用户</font> "
response.write "</td><td align='right'>"
response.write "<font color='#000000' class=main1>转到：</font><input type='text' name='page' size=4 maxlength=4 class=smallInput value="&Currentpage&"> "
response.write "<input class=buttonface type='submit' value='Go' name='cndok' style='background-color: #E6E4C4'></span> "
%>
</font>
</td>
</tr>
</table>
</center>
</td></tr>
</table>
</form>
<%end sub%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -