?? shop_check.asp
字號:
<!--#include file="conn.asp"--><!--#include file="Check.asp"-->
<html>
<head>
<title>網(wǎng)站管理</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 "未驗(yàn)證"
sqltext="select * from shop where dredge='no' order by id desc"
case "已驗(yàn)證"
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='普通網(wǎng)店' order by id desc"
case "黃金"
sqltext="select * from shop where Rank='黃金網(wǎng)店' order by id desc"
case "鉆石"
sqltext="select * from shop where Rank='鉆石網(wǎng)店' 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">全部網(wǎng)店</a> <a href="shop_check.asp?up=未驗(yàn)證">未驗(yàn)證網(wǎng)店</a>
<a href="shop_check.asp?up=已驗(yàn)證">已驗(yàn)證網(wǎng)店</a> <a href="shop_check.asp?up=推薦">首頁推薦網(wǎng)店</a>
<a href="shop_check.asp?up=普通">普通網(wǎng)店</a> <a href="shop_check.asp?up=黃金">黃金網(wǎng)店</a>
<a href="shop_check.asp?up=鉆石">鉆石網(wǎng)店</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">網(wǎng) 店 名 稱</font></td>
<td height="20" align="center"><font color="#FFFFFF">負(fù)責(zé)人</font></td>
<td align="center"><font color="#FFFFFF">進(jìn)入系統(tǒng)</font></td>
<td align="center"><font color="#FFFFFF">已傳商品</font></td>
<td align="center"><font color="#FFFFFF">限制件數(shù)</font></td>
<td align="center"><font color="#FFFFFF">驗(yàn)證</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>沒 有 相 關(guān) 網(wǎng) 店</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%>">進(jìn)入</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('注意：你即將刪除該商店的所有商品及全部注冊資料，你確認(rèn)刪除嗎？')">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%>個(gè)]
<%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">網(wǎng)店:
<input name="search" type="text" size="12">
<input type="submit" name="Submit" value="查詢">
</td>
</tr>
</form>
</table>
<%
rs.close
conn.close
%>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -