display_class.asp

. 缓存处理技术

<!-- #include file="top_Cnbbr.asp" -->
<!-- #include file="inc/Sql_Function.asp" -->
<SCRIPT src="Js/cnBBR_Compare.js" language="JavaScript"></SCRIPT>
<%
Response.write Cnbbr_Head

 Dim cnBBR_S1,cnBBR_S2,cnBBR_S3,cnBBR_S4,cnBBR_CatPath,cnBBR_CurPath,Cur_ClassID
 cnBBR_CatPath=CheckStr(Trim(Rst("BBRPath")))
 cnBBR_CurPath=cnBBR_CatPath
 if Len(cnBBR_CatPath)>0 then
    Dim iiclass1,iiclass2
    cnBBR_CatPath=Split(cnBBR_CatPath,"|")
    iiclass2=Ubound(cnBBR_CatPath)
    For iiclass1=0 to iiclass2
	if Not IsNum(cnBBR_CatPath(iiclass1)) then Call AlertInfo("对不起，参数传递有误，请检查所需查询的分类！","",0)
    Next
    Cur_ClassID=Cnbbr_CatPath(iiclass2)
 end if
 if Not IsNum(Cur_ClassID) then Call AlertInfo("对不起，参数传递有误，请检查所需查询的分类！","",0)
 if i>=0 then
    Call SqlClass(cnBBR_CurPath)
 else
    Call AlertInfo("对不起，参数传递有误，请检查所需查询的分类！","",0)
 end if

   Public ClassStr

   Function SqlClass(ClassID)
   Dim kk
   ClassID=Replace(ClassID," ","")
   ClassID=Replace(ClassID,"|",",")
   DIm RsClassPath
   Sql="select ClassID,ClassName,Upid,AucAmount from aucclass where ClassID in ("& ClassID &") order by Classid Asc"
   set RsClassPath=Conn.execute(sql)
   CnbbrConnTimes
   if RsClassPath.Eof then
      Call AlertInfo("对不起，没有找到所需查询的分类！","",0)
   else
      Dim TempClassPath,TempCpi,TempStrC
      TempClassPath=Split(ClassID,",")
      For TempCpi=0 to Ubound(TempClassPath)
	TempStrC=TempStrC &"|"& TempClassPath(TempCpi)
	if TempCpi=0 then TempStrC=Right(TempStrC,Len(TempStrC)-1)
 	ClassStr=ClassStr & "||[menu]||Display_Class.asp?BBRpath="& Server.URLEncode(TempStrC) &"|[menu]|"& RsClassPath("ClassName") & "["& RsClassPath("AucAmount") &"]"
        RsClassPath.MoveNext
      Next
   end if
   RsClassPath.Close
   set RsClassPath=nothing
   End Function

With Response
	Dim SiteMenu_Width,SiteMenu_Left,SiteMenu_Right
	SiteMenu_Width=SYS_BodyCenterWidth
	SiteMenu_Left="Auc_Class_BBR.asp|[menu]|商品分类"& ClassStr
	SiteMenu_Right=""
	Response.Write CnbbrSiteMenu(SiteMenu_Width,SiteMenu_Left,SiteMenu_Right)

    .write"<table width="""& SYS_BodyCenterWidth &""" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""td"">"
    .write"<tr class=td>"
    .write"<td>"
    .Write "<Table width=98% cellpadding=0 cellspacing=0 border=0 align=center>" & Vbcrlf
    .Write "<TR>" & Vbcrlf

   Dim RsSonClass
   Set RsSonClass=conn.execute("Select ClassID,CLassName,AucAmount from AucClass where UpID="&Cur_ClassID)
   CnbbrConnTimes
   If RsSonClass.Eof then
     .Write "<TD height=28 align=left> &nbsp; </TD>" & Vbcrlf
   else
     i=1
     Do While Not RsSonClass.Eof
	 .Write "<TD height=28 align=left>"& Vbcrlf
         .Write "<a href=""Display_Class.asp?BBRPath="& Server.URLEncode(Rst("BBRPath") &"|"& RsSonClass("ClassID")) &""">"& RsSonClass("ClassName") &" ["& RsSonClass("AucAmount") &"]</a>"& Vbcrlf
	 .Write "</Td>"& Vbcrlf
	if i mod 8=0 then 
	    .Write "</TR>"& Vbcrlf
	    .Write "<TR>"& Vbcrlf
 	end if
     i=i+1
     RsSonClass.MoveNext
     Loop
   End if
   RsSonClass.Close
   Set RsSonClass=nothing
    .Write "</TR>" & Vbcrlf
    .Write "</Table>" & Vbcrlf

    .write"</td>"
    .write"</tr>"
    .write"</table>"

End with

Function Disp_AucAdminMenu()
  Dim TempStr
  TempStr="<input name=compare type=button value=""比较选定商品"" class=""ButtonInput"" OnClick=""comparecheck('Cnbbr_compareAuc.asp');"">"
  Disp_AucAdminMenu=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 &" 显示方式："& Vbcrlf
	TempDispAndOrder=TempDispAndOrder &" <a href="&Page_QueryStr&"DispInfoType=0&page="&page&"><img src=""skins/"& SKINS_FOLDER &"/BBR_ListMode.gif"" border=""0"" width=18 height=15 align=""absmiddle"" alt=""图片方式""></a> "& Vbcrlf
	TempDispAndOrder=TempDispAndOrder &" <a href="&Page_QueryStr&"DispInfoType=1&page="&page&"><img src=""skins/"& SKINS_FOLDER &"/BBR_TextMode.gif"" border=""0"" width=18 height=15 align=""absmiddle"" alt=""文字方式""></a> "& Vbcrlf
	TempDispAndOrder=TempDispAndOrder &" 每页数量："& Vbcrlf
	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 &" 排序方式："& 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 CurDispInfoType
	  Case 0: TempDispAndOrder=Replace(TempDispAndOrder,"BBR_ListMode.gif","BBR_CListMode.gif")
	  Case 1: TempDispAndOrder=Replace(TempDispAndOrder,"BBR_TextMode.gif","BBR_CTextMode.gif")
	  Case else:
	End Select
	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


 Disp_AucSearch

Response.Write Cnbbr_Bottom 
%>