search_link.asp

. 缓存处理技术

<!--#include file="top_cnbbr.asp"-->
<!--#include file="chksession.asp"-->
<!-- #include file="chkUserShop.asp" -->

<!--#include file="Cnbbr_UserCenter_Left.asp"-->
<!-- #include file="Inc/Sql_Link_Function.asp" -->
<script src="js/CheckAll.js"></script>
<script src="js/DelTrue.js"></script>
<%
Response.Write Cnbbr_head
With ReSponse
	.Write "<table width="""& Sys_BodyCenterWidth &""" border=""0"" cellspacing=""0"" cellpadding=""0""  align=""center"" class=""td"">" & Vbcrlf
	.Write "  <tr>" & Vbcrlf
	.Write "   <td width=""150"" align=""left"" valign=""top"" class=td>" & Vbcrlf
	 Disp_CnbbrCenterLeft
	.Write "   </td>" & Vbcrlf
	.Write "   <td align=""left"" valign=""top"" class=td>" & Vbcrlf

	Dim SiteMenu_Width,SiteMenu_Left,SiteMenu_Right
	SiteMenu_Width="98%"
	SiteMenu_Left="BBRhome.asp|[menu]|个人面板||[menu]||###|[menu]|店铺管理||[menu]||Search_Link.asp|[menu]|店铺友情链接管理"
	SiteMenu_Right="ShopLinkAdd.asp|[menu]|添加链接"
	Response.Write CnbbrSiteMenu(SiteMenu_Width,SiteMenu_Left,SiteMenu_Right)


  	Disp_LinkSearch

    	.Write "</td>" & Vbcrlf
   	.Write "</tr>" & Vbcrlf
   	.Write "</table>" & Vbcrlf
End With

Response.Write Cnbbr_Bottom

Function Disp_LinkAdminMenu()
  Dim TempStr
  TempStr="<input name=deltrue type=button value=""确定删除"" OnClick=""return DelTrue(document.searchform,'del.asp')"">"
  Disp_LinkAdminMenu=TempStr
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_Up.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_Down.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_Up.gif","Order_Cprice_Up.gif")
	  Case 2: TempDispAndOrder=Replace(TempDispAndOrder,"Order_price_Down.gif","Order_Cprice_Down.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
%>