📄 shop_check.asp
字号:
<!--#include file="conn.asp"--><!--#include file="Check.asp"-->
<html>
<head>
<title>网站管理</title>
<STYLE>BODY {
FONT-SIZE: 10pt
}
TD {
FONT-SIZE: 10pt
}
a { text-decoration: none; color: #6600CC }
a:hover { text-decoration: underline; color: #0000FF }
</STYLE>
<script language="javascript">
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body background="../pic/user/bg.jpg" topmargin="10">
<%
dim page,search
page=request("page")
PageSize = 14
search=request("search")
set rs=server.createobject("adodb.recordset")
up=request("up")
select case up
case "搜索"
sqltext="select * from shop where shop_name2 like '%"&search&"%' order by id desc"
case "未验证"
sqltext="select * from shop where dredge='no' order by id desc"
case "已验证"
sqltext="select * from shop where dredge='yes' order by id desc"
case "推荐"
sqltext="select * from shop where index_tj=1 order by tjTime desc"
case "普通"
sqltext="select * from shop where Rank='普通网店' order by id desc"
case "黄金"
sqltext="select * from shop where Rank='黄金网店' order by id desc"
case "钻石"
sqltext="select * from shop where Rank='钻石网店' order by id desc"
case else
sqltext="select * from shop order by id desc"
end select
rs.open sqltext,conn,1,1
'---------------定义分页属性---------------------------------
rs.PageSize=PageSize
totalfilm=rs.recordcount
pgnum=rs.Pagecount
if page="" or clng(page)<1 then page=1
if clng(page) > pgnum then page=pgnum
if pgnum>0 then rs.AbsolutePage=page
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="2">
<tr>
<td><div align="center"> <a href="shop_check.asp">全部网店</a> <a href="shop_check.asp?up=未验证">未验证网店</a>
<a href="shop_check.asp?up=已验证">已验证网店</a> <a href="shop_check.asp?up=推荐">首页推荐网店</a>
<a href="shop_check.asp?up=普通">普通网店</a> <a href="shop_check.asp?up=黄金">黄金网店</a>
<a href="shop_check.asp?up=钻石">钻石网店</a> </div></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="2">
<tr bgcolor="#00CCFF" class=main1>
<td height="20" align="center"><font color="#FFFFFF">网 店 名 称</font></td>
<td height="20" align="center"><font color="#FFFFFF">负责人</font></td>
<td align="center"><font color="#FFFFFF">进入系统</font></td>
<td align="center"><font color="#FFFFFF">已传商品</font></td>
<td align="center"><font color="#FFFFFF">限制件数</font></td>
<td align="center"><font color="#FFFFFF">验证</font></td>
<td align="center"><font color="#FFFFFF">推荐</font></td>
<td align="center"><font color="#FFFFFF">类型</font></td>
<td align="center"><font color="#FFFFFF">管理</font></td>
<td height="20" align="center"><font color="#FFFFFF">删除</font></td>
</tr>
<%
If rs.eof and rs.bof then
response.write"<tr bgcolor=#E8E8E8><td height=20 colspan=10 align=center>没 有 相 关 网 店</td></tr> "
%>
<%
else
count=0
do while not (rs.eof or rs.bof) and count<rs.PageSize
%>
<tr bgcolor="#E8E8E8" class=main1>
<td height="24" align="center" bgcolor="#E8E8E8"><a href="../<%=rs("shop_name1")%>/" target="_blank"><font color="#6600CC"><%=rs("shop_name2")%></font></a></td>
<td height="24" align="center"><%=rs("Name")%></td>
<td align="center"><%=rs("goincount")%><font color="#666666">(次)</font></td>
<%
sp_name=rs("shop_name1")
set Product_rs=server.createobject("adodb.recordset")
sql="select Class_2 from Product where p_shop='"&sp_name&"'"
Product_rs.open sql,conn,1,1
P_cou=Product_rs.recordcount
Product_rs.close
%>
<td align="center"><%=P_cou%><font color="#666666">(件)</font></td>
<td align="center"><%=rs("P_count")%><font color="#666666">(件)</font></td>
<td align="center">
<%
if rs("dredge")="no" then
response.write "<a href='dredge.asp?up="&up&"&dredge=yes&id="&rs("id")&"&page="&page&"'><font color=#0000FF>未开通</font></a>"
else
response.write "<a href='dredge.asp?up="&up&"&dredge=no&id="&rs("id")&"&page="&page&"'><font color=#FF0000>已开通</font></a>"
end if
%>
</td>
<td align="center">
<%
if rs("index_tj")=0 then
response.write "<a href='index_tuijian.asp?up="&up&"&tuijian=1&id="&rs("id")&"&page="&page&"'><font color=#0000FF> / </font></a>"
else
response.write "<a href='index_tuijian.asp?up="&up&"&tuijian=0&id="&rs("id")&"&page="&page&"'><font color=#FF0000>推荐</font></a>"
end if
%>
</td>
<td align="center"><%=left(rs("Rank"),2)%></td>
<td align="center"><a href="admin_shop.asp?id=<%=rs("id")%>&up=<%=up%>&page=<%=page%>">进入</a></td>
<td height="24" align="center"><a href="del_shop.asp?id=<%=rs("id")%>&up=<%=up%>&page=<%=page%>&shop_name1=<%=rs("shop_name1")%>" onClick="return confirm('注意：你即将删除该商店的所有商品及全部注册资料，你确认删除吗？')">DEL</a> </td>
</tr>
<%
rs.movenext
count=count+1
loop
end if
%>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="2">
<form method="post" action="?up=搜索" name="form1" >
<tr>
<td height="22" align="center" bgcolor="#00CCFF"> [<b><%=rs.pagecount%></b>/<%=page%>页]
[共<%=totalfilm%>个]
<%if page=1 then%>
[首 页] [上一页]
<% else %>
[<a href="?up=<%=up%>&page=1">首 页</a>] [<a href="?up=<%=up%>&page=<%=page-1%>">上一页</a>]
<%end if%>
<%if rs.pagecount-page<1 then%>
[下一页] [尾 页]
<%else%>
[<a href="?up=<%=up%>&page=<%=page+1%>">下一页</a>] [<a href="?up=<%=up%>&page=<%=rs.pagecount%>">尾
页</a>]
<%end if%>
</td>
<td align="center" bgcolor="#00CCFF">网店:
<input name="search" type="text" size="12">
<input type="submit" name="Submit" value="查询">
</td>
</tr>
</form>
</table>
<%
rs.close
conn.close
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -