search_shop.asp

. 缓存处理技术

<!-- #include file="top_Cnbbr.asp" -->
<!-- #include file="Inc/Sql_Shop_Function.asp" -->
<%
Response.Write Cnbbr_Head
	Dim SiteMenu_Width,SiteMenu_Left,SiteMenu_Right
	SiteMenu_Width=SYS_BodyCenterWidth
	SiteMenu_Left="Search.asp|[menu]|搜索中心||[menu]||###|[menu]|用户店铺列表"
	SiteMenu_Right=""
	Response.Write CnbbrSiteMenu(SiteMenu_Width,SiteMenu_Left,SiteMenu_Right)

 Dim cnBBR_S1,cnBBR_S2,cnBBR_S3,cnBBR_S4,cnBBR_CatPath,cncnBBR_ClassPath,Cur_ClassID,TempCatPath,TempCatPath2
 cnBBR_S1=CheckStr(Trim(Rst("S1")))
 cnBBR_S2=CheckStr(Trim(Rst("S2")))
 cnBBR_S3=CheckStr(Trim(Rst("S3")))
 cnBBR_S4=CheckStr(Trim(Rst("S4")))
 if Not isNum(cnBBR_S1) then cnBBR_S1=0
 if Not isNum(cnBBR_S2) then cnBBR_S2=0
 if Not isNum(cnBBR_S3) then cnBBR_S3=0
 if Not isNum(cnBBR_S4) then cnBBR_S4=0

 cnBBR_CatPath=Cstr(cnBBR_S1&"|"&cnBBR_S2&"|"&cnBBR_S3&"|"&cnBBR_S4)
 cnBBR_CatPath=Replace(cnBBR_CatPath,"|0","")

 cncnBBR_ClassPath=CheckStr(Trim(Rst("BBRpath")))
 cncnBBR_ClassPath=Replace(cncnBBR_ClassPath,"|0","")
 if len(cncnBBR_ClassPath)>0 then cnBBR_CatPath=cncnBBR_ClassPath
 if Cstr(cnBBR_CatPath)="0" then cnBBR_CatPath=""
 TempCatPath=cnBBR_CatPath
 TempCatPath2=cnBBR_CatPath


if cnBBR_CatPath<>"" then
 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("对不起，参数传递有误，请检查所需查询的分类1！","",0)
    Next
    Cur_ClassID=cnBBR_CatPath(iiclass2)
 end if

 if Not IsNum(Cur_ClassID) then Call AlertInfo("对不起，参数传递有误，请检查所需查询的分类2！","",0)
 if i>=0 then
    Call SqlClass(TempCatPath)
 else
    Call AlertInfo("对不起，参数传递有误，请检查所需查询的分类3！","",0)
 end if

   Public ClassStr

   Function SqlClass(ClassID)
   Dim kk
   ClassID=Replace(ClassID," ","")
   ClassID=Replace(ClassID,"|",",")
   Sql="select ClassName,Upid from Aucclass where ClassID in ("& ClassID &") order by Classid Desc"
   set Rs=Conn.execute(sql)
   CnbbrConnTimes
   if Rs.Eof then
      Call AlertInfo("对不起，没有找到所需查询的分类！","",0)
   else
      Do While Not Rs.Eof
   	ClassID=Replace(ClassID,",","|")

        ClassStr="&gt;&gt;&gt;<a href=""display_class.asp?BBRpath="& Server.URLEncode(ClassID) &""" Class=MenuFont_1>"& Rs("ClassName") &"</a>"& ClassStr & Vbcrlf
	i=Instr(ClassID,"|")
	kk=Len(ClassID)-i-1

	ClassID=left(ClassID,kk)
      Rs.MoveNext
      Loop
   end if
   End Function




  With Response
    .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 * 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(TempCatPath2 &"|"& RsSonClass("ClassID")) &""">"& RsSonClass("ClassName") &"</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
End if

 Disp_ShopSearch


Response.Write Cnbbr_Bottom 
%>