shoporder.asp

购物系统(本版为正式商业版

			rs.absoluteposition=4
		    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="style2"><%=i%></span>.
                    <%response.write "<a href=list.asp?id="&rs("shopid")&" title=此商品已成功销售"&rs("chengjiaocount")&"次 target=_blank>"
					  if len(trim(rs("shopname")))>240 then
					  response.write left(trim(rs("shopname")),240)&"..."
					  else
					  response.write trim(rs("shopname"))
					  end if
					  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>&nbsp;&nbsp;<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>l then exit do
			rs.movenext
			loop
			end if%>
          </table></td>
        </tr>
      </table>
      <%end if%>
    </td>
  </tr>
  <tr>
    <td height="30" valign=bottom><b>商品浏览排行榜
          <%if request.QueryString("id")="" then%>
          <a href="shoporder.asp?sx=0">
          <%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> &nbsp;&nbsp;
          <%if request.QueryString("id")="" then%>
          <a href="shoporder.asp?sx=1">
          <%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></td>
  </tr>
  <tr valign="top">
    <td height="225" bgcolor="#FFFFFF"><%
	anclassid=request.QueryString("id")
	sx=request.QueryString("sx")
		l=request.QueryString("l")
	if l="" then
	l=20
	end if
	set rs=server.CreateObject("adodb.recordset")
	set rs2=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 liulancount desc",conn,1,1
	else
	rs.open "select top "&l&" shopid,shopzz,huiyuanjia,shopchuban,shopname,chengjiaocount,pingji,pingjizong,pingpai from shop_snsn order by liulancount asc",conn,1,1
	end if
	else
	'yaosxia
     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 liulancount 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 liulancount 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="style2 style1"><strong><%=i%></strong></span>.
                      <%response.write "<a href=list.asp?id="&rs("shopid")&" title=此商品已成功销售"&rs("chengjiaocount")&"次 target=_blank>"
					  if len(trim(rs("shopname")))>240 then
					  response.write left(trim(rs("shopname")),240)&"..."
					  else
					  response.write trim(rs("shopname"))
					  end if
					  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>&nbsp;&nbsp;<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
			rs.absoluteposition=4
		    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="style2"><%=i%></span>.
                      <%response.write "<a href=list.asp?id="&rs("shopid")&" title=此商品已成功销售"&rs("chengjiaocount")&"次 target=_blank>"
					  if len(trim(rs("shopname")))>240 then
					  response.write left(trim(rs("shopname")),240)&"..."
					  else
					  response.write trim(rs("shopname"))
					  end if
					  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>&nbsp;&nbsp;<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>l then exit do
			rs.movenext
			loop
			end if%>
            </table></td>
          </tr>
        </table>
        <%end if%></td>
  </tr>
</table>
<!--#include file="copyright.asp"-->
</body>
</html>