index.asp

. 缓存处理技术

<!--#include file="shophead.asp"-->
<!-- #include file="Sql_Function.asp" -->

<%
Function ShopMenu()
 With ReSponse
  .Write"<table width=98% border=0 align=center cellpadding=0 cellspacing=0>"& vbcrlf
  .Write" <tr> "& vbcrlf
  .Write"  <td colspan=2 width=100% align=center height=2 class=menutdbg_1></td> "& vbcrlf
  .Write" </tr> "& vbcrlf
  .Write" <tr height=32> "& vbcrlf
  .Write"  <td width=100% colspan=2 background="""& SKINS_FOLDER &"/GrayBg.gif"">&nbsp;<img src=""../Skins/"& Skins_Folder &"/Go.gif"" border=""0""><a href=""../Index.asp"" class=menuColor_1><b>"& Sys_WebName &"</b></a>&gt;&gt;&gt; <a href=""Index.asp?ShopId="& Sid &""" class=menuColor_1><b>"& RsShop("ShopName") &"</b></a>&gt;&gt;&gt; <b>商品列表</b> </td>"& vbcrlf
  .Write"  </tr>"& vbcrlf
  .Write"</table>" & Vbcrlf
 End With
End Function




Function Cnbbr_AucCommend()
   
   Dim Cnbbr_RowNum,Cnbbr_perRowNum,Cnbbr_AucCommendStr
   Cnbbr_RowNum=1
   Cnbbr_PerRowNum=8

 Dim RsShopCom
 sql="select top 20 * from auctions where aucended='N' and AucItemOwner="& RsShop("ShopOwnerID") &" and BBR_SellerCommend=1 and aucimageurl>0 and auctype In (" & SYS_MODEL & ") order by BBR_SellerCommend Desc,AucClick Desc"
 set RsShopCom=server.createobject("ADODB.recordset")
 RsShopCom.open sql,conn,1,1
 CnbbrConnTimes
 if Not( RsShopCom.eof or RsShopCom.bof) then
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"<table cellpadding=0 cellspacing=0 border=0 width="""& Sys_BodyCenterWidth &""" height=120 align=center class=td>"
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"<TR>"
   i=0
   Do while not RsShopCom.eof

    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"<TD width=""88"">"
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"<table cellpadding=0 cellspacing=0 border=0 width=100% align=center style=""TABLE-LAYOUT: fixed;"">"
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"<TR>"
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"<TD width=""100%"" height=""88"" align=""center"">"
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr & BBRAucSmallImage(RsShopCom("AucID"),0,1,"../Skins/"& SKins_Folder &"/nopic.gif")
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"</TD>"
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"</TR>"
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"<TR>"
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"<TD width=""100%"" height=""58"" align=""center"" style=""table-layout: fixed; word-break: break-all"">"
    k=interceptString(RsShopCom("aucItemtitle"),23)
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"<a href=""../aucinfo.asp?aucid="& RsShopCom("aucid") &""" title="& RsShopCom("aucItemtitle") &">"& k &"</a><BR>"
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"￥"& FormatNumber(RsShopCom("AucCurrentBid"),0,-1) & Vbcrlf
    if RsShopCom("BBR_AlipayStatus")=1 then Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &" &nbsp;<img border=""0"" src=""../Images/AlipayStatus.gif"" alt=""支持支付宝付款"" title=""使用支付宝付款，放心又省钱"" />"& Vbcrlf
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"</TD>"
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"</TR>"
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"</table>"
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"</TD>"

   i=i+1
   RsShopCom.MoveNext
   if i>=Cnbbr_RowNum*Cnbbr_PerRowNum then Exit Do
   if i mod Cnbbr_PerRowNum=0 then
      Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"</TR>"
      Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"<TR>"
   End if
   Loop


   j=Cnbbr_PerRowNum-(i mod Cnbbr_PerRowNum)
   if j>0 and j<Cnbbr_PerRowNum then
    For i=1 to j
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"<TD width=""88"">"
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"<table cellpadding=0 cellspacing=0 border=0 width=100% align=center style=""TABLE-LAYOUT: fixed;"">"
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"<TR>"
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"<TD width=""100%"" height=""88"" class=""white_bg"" align=""center"">"
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"<img src=""../SKINS/"& SKINS_FOLDER &"/nopic.gif"" border=""0"" width=""72"" height=""72"">"
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"</TD>"
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"</TR>"
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"<TR>"
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"<TD width=""100%"" height=""32"">"
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"·暂无商品"
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"</TD>"
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"</TR>"
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"</table>"
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"</TD>"
    Next
   end if
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"</TR>"
    Cnbbr_AucCommendStr=Cnbbr_AucCommendStr &"</table>"

 end if


    Cnbbr_AucCommend=Cnbbr_AucCommendStr

End Function

Function DispAndOrder()


	Dim TempDispAndOrder
	TempDispAndOrder=" <img src=""../skins/"& SKINS_FOLDER &"/search_mirror.gif"" border=""0"" width=15 height=15 align=""absmiddle"">"
	TempDispAndOrder=TempDispAndOrder &" 显示方式： <a href="&Page_QueryStr&"CnPerBBrPage=20&page="&page&"><img src=""../skins/"& SKINS_FOLDER &"/Order_Amount_20.gif"" border=""0"" width=18 height=15 align=""absmiddle"" alt=""每页显示20条记录""></a> "& Vbcrlf
	TempDispAndOrder=TempDispAndOrder &" <a href="&Page_QueryStr&"CnPerBBrPage=40&page="&page&"><img src=""../skins/"& SKINS_FOLDER &"/Order_Amount_40.gif"" border=""0"" width=18 height=15 align=""absmiddle"" alt=""每页显示40条记录""></a> "& Vbcrlf
	TempDispAndOrder=TempDispAndOrder &" <a href="&Page_QueryStr&"CnPerBBrPage=80&page="&page&"><img src=""../skins/"& SKINS_FOLDER &"/Order_Amount_80.gif"" border=""0"" width=18 height=15 align=""absmiddle"" alt=""每页显示80条记录""></a> "& Vbcrlf
	TempDispAndOrder=TempDispAndOrder &" 排序方式： <a href="&Page_QueryStr&"cnAucBBrOrder=1&page="&page&"><img src=""../skins/"& SKINS_FOLDER &"/Order_price_Down.gif"" border=""0"" width=24 height=15 align=""absmiddle"" alt=""按商品现价降序排列""></a> "& Vbcrlf
	TempDispAndOrder=TempDispAndOrder &" <a href="&Page_QueryStr&"cnAucBBrOrder=2&page="&page&"><img src=""../skins/"& SKINS_FOLDER &"/Order_price_Up.gif"" border=""0"" width=24 height=15 align=""absmiddle"" alt=""按商品现价升序排列""></a> "& Vbcrlf
	TempDispAndOrder=TempDispAndOrder &" <a href="&Page_QueryStr&"cnAucBBrOrder=3&page="&page&"><img src=""../skins/"& SKINS_FOLDER &"/Order_time_Up.gif"" border=""0"" width=24 height=15 align=""absmiddle"" alt=""按结束时间升序排列""></a> "& Vbcrlf
	TempDispAndOrder=TempDispAndOrder &" <a href="&Page_QueryStr&"cnAucBBrOrder=4&page="&page&"><img src=""../skins/"& SKINS_FOLDER &"/Order_time_Down.gif"" border=""0"" width=24 height=15 align=""absmiddle"" alt=""按结束时间降序排列""></a> "& Vbcrlf
	TempDispAndOrder=TempDispAndOrder &" <a href="&Page_QueryStr&"cnAucBBrOrder=5&page="&page&"><img src=""../skins/"& SKINS_FOLDER &"/Order_click_Down.gif"" border=""0"" width=24 height=15 align=""absmiddle"" alt=""按商品点击率降序排列""></a>"& vbcrlf



	Select Case JsPerPage
	  Case 20: TempDispAndOrder=Replace(TempDispAndOrder,"Order_Amount_20.gif","Order_CAmount_20.gif")
	  Case 40: TempDispAndOrder=Replace(TempDispAndOrder,"Order_Amount_40.gif","Order_CAmount_40.gif")
	  Case 80: TempDispAndOrder=Replace(TempDispAndOrder,"Order_Amount_80.gif","Order_CAmount_80.gif")
	  Case else:
	End Select
	Select Case BBR_AucOrder
	  Case 1: TempDispAndOrder=Replace(TempDispAndOrder,"Order_price_Down.gif","Order_Cprice_Down.gif")
	  Case 2: TempDispAndOrder=Replace(TempDispAndOrder,"Order_price_Up.gif","Order_Cprice_Up.gif")
	  Case 3: TempDispAndOrder=Replace(TempDispAndOrder,"Order_time_Up.gif","Order_Ctime_Up.gif")
	  Case 4: TempDispAndOrder=Replace(TempDispAndOrder,"Order_time_Down.gif","Order_Ctime_Down.gif")
	  Case 5: TempDispAndOrder=Replace(TempDispAndOrder,"Order_click_Down.gif","Order_Cclick_Down.gif")
	  Case else:
	End Select

  	DispAndOrder=TempDispAndOrder
End Function


%>
<%















%>
<!-- 模板内容添加 -->

<table cellpadding=0 cellspacing=0 width=<%=Sys_BodyCenterWidth%>  border=0 align=center>
  <tr>
    
    <td width=100% align=left>
	<!--#include file="shopinfo.asp"-->
    </td>
    
  </tr>
</table>

<%
if ShopStatus>0 then Response.Write Cnbbr_AucCommend
%>

<table cellpadding=0 cellspacing=0 width=<%=Sys_BodyCenterWidth%>  border=0 align=center>
  <tr>
    
    <td width=100% align=left>
	<table cellpadding=0 cellspacing=0 width=100% border=0 align=center>
	  <tr>
		<td width=198 align=center valign=top>
		<%=DispShopLeft%>
		</td>
		<td align=center valign=top>
		<%=ShopMenu%>

		<table cellpadding=0 cellspacing=0 width=100% border=0 align=center>
		   <tbody>
		   <tr height=25>
			<td width=100%><br><%=Disp_AucSearch%></TD>
		   </tr>
		   </tbody>
		</table>

		</td>
	  </tr>
	</table>
    </td>
    
  </tr>
</table>
<!--#include file="shopbottom.asp"-->