📄 shoporder.asp
字号:
<!--
┌─9911.com.cn────────────┐
│ 动感购物 WWW.9911.com.cn 版权所有 │
│ 动感购物2005Vb 联系：web@snsn.net │
└───────────9911.com.cn──┘
-->
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<!--#include file="fuction.asp" -->
<html>
<head>
<title><%=webname%>--商品排行</title>
<link rel="SHORTCUT ICON" href="/shortcut.ico">
<meta name="generator" content="snsn-shop">
<meta name=keywords content="<%=webgjz%>">
<meta name="description" content="<%=webmx%>">
<meta name="MSSmartTagsPreventParsing" content="TRUE">
<meta http-equiv="MSThemeCompatible" content="Yes">
<link href="/css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onMouseOver="window.status='【<%=webname%>】<%=weburl%> 如果您喜欢本站,别忘了把本站介绍给您的好友哦！：）';return true">
<!--#include file="webtop.asp" -->
<table width="940" align="center" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="6" colspan="3"></td>
</tr>
<tr>
<td width="17"><img src="/img/index_1.gif" width="15" height="16"></td>
<td valign="bottom">您现在的位置是：<a href="<%=weburl%>"><%=webname%></a> -> <span class="table-shangxia">商品销售排行榜</span></td>
<td valign="bottom">
</td>
</tr>
<tr>
<td height="6" colspan="3"></td>
</tr>
</table>
<table width="940" border="0" align="center" cellpadding="0" cellspacing="0" class="table-xia">
<tr>
<td height="27"> <div align="center">
<% l=request.QueryString("l")
if l="" then
l=20
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_anclass order by anclassidorder",conn,1,1
if rs.eof and rs.bof then
response.write "目前还没有分类"
else%>
<a href="shoporder.asp?id=0">查讯总体排行</a> <%do while not rs.eof%>
<a href="shoporder.asp?id=<%=rs("anclassid")%>"><%=trim(rs("anclass"))%></a> <%rs.movenext
loop
end if
rs.close
set rs=nothing
%>
</div></td>
</tr>
</table>
<table width="945" border="0" align="center" cellpadding="0" cellspacing="0" class="sm_debrown">
<tr>
<td colspan="3" height="4" bgcolor="ffffff"></td>
</tr>
<tr>
<td width="926" height="1" align="center" valign="middle" background="img/skin<%=cssid%>/bott_nav_bj.gif" class="sm_debrown"></td>
</tr>
<tr>
<td colspan="3" height="4" bgcolor="ffffff"></td>
</tr>
</table>
<table width="940" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td height="30" valign=bottom><b>销售排行榜
<%if request.QueryString("id")="" then%>
<a href="shoporder.asp?sx=0&l=<%=l%>">
<%else%>
</a><a href="shoporder.asp?id=<%=request.QueryString("id")%>&sx=0&l=<%=l%>">
<%end if%>
<img src="img/s.gif" alt="由高到低" width="15" height="15" border="0"></a>
<%if request.QueryString("id")="" then%>
<a href="shoporder.asp?sx=1&l=<%=l%>">
<%else%>
</a><a href="shoporder.asp?id=<%=request.QueryString("id")%>&sx=1&l=<%=l%>">
<%end if%>
<img src="img/x.gif" alt="由低到高" width="15" height="15" border="0"></a> </b>
<%if request.QueryString("id")="" then%>
<a href="shoporder.asp?sx=0&l=20">
<%else%>
</a><a href="shoporder.asp?id=<%=request.QueryString("id")%>&sx=0&l=20">
<%end if%>
前二十条</a>
<%if request.QueryString("id")="" then%>
<a href="shoporder.asp?sx=0&l=50">
<%else%>
</a><a href="shoporder.asp?id=<%=request.QueryString("id")%>&sx=0&l=50">
<%end if%>
前五十条</a>
<%if request.QueryString("id")="" then%>
<a href="shoporder.asp?sx=0&l=100">
<%else%>
</a><a href="shoporder.asp?id=<%=request.QueryString("id")%>&sx=0&l=100">
<%end if%>
前一百条</a>
<%if request.QueryString("id")="" then%>
<a href="shoporder.asp?sx=0&l=200">
<%else%>
</a><a href="shoporder.asp?id=<%=request.QueryString("id")%>&sx=0&l=200">
<%end if%>
前二百条</a></td>
</tr>
<tr valign="top">
<td height="225" bgcolor="#FFFFFF">
<%
anclassid=request.QueryString("id")
sx=request.QueryString("sx")
set rs=server.CreateObject("adodb.recordset")
if anclassid=0 or anclassid="" then
if sx=0 then
rs.open "select top "&l&" shopid,shopzz,huiyuanjia,shopchuban,shopname,chengjiaocount,pingji,pingjizong,pingpai from shop_snsn order by chengjiaocount desc",conn,1,1
else
rs.open "select top "&l&" shopid,shopzz,huiyuanjia,shopchuban,shopname,chengjiaocount,pingji,pingjizong,pingpai from shop_snsn order by chengjiaocount asc",conn,1,1
end if
else
if Not isChkInteger(anclassid) then
%>
<script language=javascript>
alert("参数错误！");
window.close();
</script>
<%
response.end
end if
if sx=0 then
rs.open "select top "&l&" shopid,shopzz,huiyuanjia,shopchuban,shopname,chengjiaocount,pingji,pingjizong,pingpai from shop_snsn where anclassid="&anclassid&" order by chengjiaocount desc",conn,1,1
else
rs.open "select top "&l&" shopid,shopzz,huiyuanjia,shopchuban,shopname,chengjiaocount,pingji,pingjizong,pingpai from shop_snsn where anclassid="&anclassid&" order by chengjiaocount asc",conn,1,1
end if
end if
if rs.eof and rs.bof then
response.write "<div align=center>目前还没有任何商品</div>"
else
i=0
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td width="44%" valign="top">
<table width="99%" border="0" cellpadding="0" cellspacing="1" class="table-xia">
<%i=0
rs.movefirst
do while not rs.eof
i=i+1%>
<tr onMouseOver='JavaScript:this.style.backgroundColor="#f1f1f1"' onMouseOut='JavaScript:this.style.backgroundColor=""'>
<td height="21" style="padding-left:20px"> <span class="style3 style1"><b><%=i%></b></span>.
<%response.write "<a href=list.asp?id="&rs("shopid")&" title=此商品已成功销售"&rs("chengjiaocount")&"次 target=_blank>"
response.write rs("shopname")
response.write "</a>"
%>
</td>
<td width="100" style="padding-left:20px">售价：<%=formatnumber(rs("huiyuanjia"),2)%> </td>
<td width="140" style="padding-left:20px">星级：
<%if rs("pingjizong")>0 and rs("pingji")>0 then
xx=rs("pingjizong")\rs("pingji")
else
xx=5
end if
response.write "<img src=img/pingji/"&xx&".gif alt=评论星级 align=top>"
%></td>
<td width="140" style="padding-left:20px"><a href="gouwu.asp?id=<%=rs("shopid")%>&action=add"><img src="img/gm.gif" width="32" height="17" border="0"></a> <a href="shoucang.asp?id=<%=rs("shopid")%>&action=add"><img src="img/sc.gif" width="32" height="17" border="0"></a> </td>
</tr>
<tr>
<td height="1" background="img/lf_directgo_boxdotline.gif"></td>
<td height="1" background="img/lf_directgo_boxdotline.gif"></td>
<td height="1" background="img/lf_directgo_boxdotline.gif"></td>
<td height="1" background="img/lf_directgo_boxdotline.gif"></td>
</tr>
<%
if i=3 then exit do
rs.movenext
loop%>
</table></td>
</tr>
</table>
<br>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr bgcolor="#FFFFFF">
<td width="44%" valign="top">
<table width="99%" border="0" cellpadding="0" cellspacing="1" class="table-xia">
<%i=3
if rs.recordcount>=4 then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -