sql_shop_function.asp

. 缓存处理技术

<%
ON Error Resume Next

Public Page_QueryStr
  

 Dim Per_Page:Per_Page=CheckStr(Trim(Rst("CnPerBBrPage")))

 if isNum(Per_Page) then Session("CnPerBBrPage")=Per_Page
 if isNum(Session("CnPerBBrPage")) then	JsPerPage=Clng(Session("CnPerBBrPage"))
 
 Dim TempKey
 TempKey=CheckStr(Trim(Rst("sKey")))
 if TempKey="" then
    TempKey=CheckStr(Trim(Rst("BBR_ShopName")))
 end if
 Dim BBR_ShopName
 BBR_ShopName=TempKey
 BBR_ShopName=Replace(Replace(Replace(Replace(Replace(BBR_ShopName,",","|||"),"，","|||")," ","|||"),";","|||"),";","|||")
 BBR_ShopName=InterceptString(CheckStr(BBR_ShopName),45)


 Dim BBR_ShopOwner
 BBR_ShopOwner=CheckStr(Trim(Rst("BBR_ShopOwner")))
 if Not isNum(BBR_ShopOwner) then
    if BBR_ShopOwner="" then
       BBR_ShopOwner=0
    else
	Dim RsU1
       	Sql="select RegId,RegUserName from users where RegUserName='"&BBR_ShopOwner&"'"
        Set RsU1=Server.CreateObject("Adodb.RecordSet")
	RsU1.Open Sql,conn,1,1
	if RsU1.Eof or RsU1.Bof then
	   BBR_ShopOwner=0
	else
	   BBR_ShopOwner=RsU1("RegId")
	end if
	RsU1.Close
	Set RsU1=nothing
    end if
 else
    BBR_ShopOwner=Clng(BBR_ShopOwner)
 end if


 Dim BBR_ShopFlag
 BBR_ShopFlag=CheckStr(Trim(Rst("BBR_ShopFlag")))
 if Not isNum(BBR_ShopFlag) then BBR_ShopFlag=0

 Dim BBR_ShopStatus
 BBR_ShopStatus=CheckStr(Trim(Rst("BBR_ShopStatus")))
 if Not isNum(BBR_ShopStatus) then BBR_ShopStatus=0


 Dim BBR_S1,BBR_S2,BBR_S3,BBR_S4,BBR_ClassPath,cnBBR_ClassPath
 BBR_S1=CheckStr(Trim(Rst("S1")))
 BBR_S2=CheckStr(Trim(Rst("S2")))
 BBR_S3=CheckStr(Trim(Rst("S3")))
 BBR_S4=CheckStr(Trim(Rst("S4")))
 if Not isNum(BBR_S1) then BBR_S1=0
 if Not isNum(BBR_S2) then BBR_S2=0
 if Not isNum(BBR_S3) then BBR_S3=0
 if Not isNum(BBR_S4) then BBR_S4=0

 BBR_ClassPath=Cstr(BBR_S1&"|"&BBR_S2&"|"&BBR_S3&"|"&BBR_S4)
 BBR_ClassPath=Replace(BBR_ClassPath,"|0","")

 cnBBR_ClassPath=CheckStr(Trim(Rst("BBRpath")))
 cnBBR_ClassPath=Replace(cnBBR_ClassPath,"|0","")
 if len(cnBBR_ClassPath)>0 then BBR_ClassPath=cnBBR_ClassPath
 if Cstr(BBR_ClassPath)="0" then BBR_ClassPath=""




 Dim BBR_ShopPlace_Prov,BBR_ShopPlace_City,BBR_ShopPlace
 BBR_ShopPlace_Prov=CheckStr(Trim(Rst("TPL_prov")))
 BBR_ShopPlace_City=CheckStr(Trim(Rst("TPL_City")))
 BBR_ShopPlace=CheckStr(Trim(Rst("Place")))


 Dim BBR_ShopRegTime
 BBR_ShopRegTime=CheckStr(Trim(Rst("BBR_ShopRegTime")))

 if Not isNum(BBR_ShopRegTime) then
    BBR_ShopRegTime=0
 else
    BBR_ShopRegTime=Clng(BBR_ShopRegTime)
 end if


 Dim BBR_ShopCloseTime
 BBR_ShopCloseTime=CheckStr(Trim(Rst("BBR_ShopCloseTime")))
 if Not isNum(BBR_ShopCloseTime) then
    BBR_ShopCloseTime=0
 else
    BBR_ShopCloseTime=Clng(BBR_ShopCloseTime)
 end if


 Dim BBR_ShopOrder
 BBR_ShopOrder=CheckStr(Trim(Rst("CnShopBBrOrder")))
 if Not isNum(BBR_ShopOrder) then
    BBR_ShopOrder=0
 else
    Session("CnShopBBrOrder")=Clng(BBR_ShopOrder)
 end if
 if isNum(Session("CnShopBBrOrder")) then BBR_ShopOrder=Session("CnShopBBrOrder")




 Dim Sql_SearchStr
 Sql_SearchStr="Select Shops.ShopID,Shops.ShopName,Shops.ShopOwnerId,Shops.ShopImage,Shops.ShopClassPath,Shops.ShopRegTime,Shops.ShopCloseTime,Shops.ShopIntroduce,Shops.ShopHelp,Shops.ShopCredit,Shops.ShopGongGao,Shops.ShopFlag,Shops.ShopCheck,Shops.ShopStatus,Shops.BBR_ShopCommend,Shops.BBR_ShopComBId,Shops.BBR_ShopComEndTime,Shops.ShopImageWidth,Shops.ShopImageHeight,Users.RegAdmin,Users.RegUserName,Users.RegState,Users.Regcity,Users.Userqq,Users.BBR_UserqqSkins,Users.BBR_UserqqMsg from Shops Left join Users On Shops.ShopOwnerid=Users.RegID Where Shops.ShopCheck=1 and Users.RegAdmin='N'"

 Dim TempTs
 if instr(BBR_ShopName,"|||")>1 then
    Dim TempT,TempT2,Tii
    TempT=BBR_ShopName
    TempT=Split(TempT,"|||")
    For Tii=0 to Ubound(TempT)
      TempT2=TempT2 &" and Shops.ShopName like '%"& TempT(Tii) &"%'"
    Next
    TempTs=TempT2
 else
    TempTs=" and Shops.ShopName like '%"& BBR_ShopName &"%'"
 end if
 Sql_SearchStr=Sql_SearchStr & TempTs

 if BBR_ShopOwner<>0 then Sql_SearchStr=Sql_SearchStr &" and Shops.ShopOwnerID="& BBR_ShopOwner
 if cdbl(BBR_ShopFlag)<>0 then Sql_SearchStr=Sql_SearchStr &" and Shops.ShopFlag>="& BBR_ShopFlag 
 if cdbl(BBR_ShopStatus)<>0 then Sql_SearchStr=Sql_SearchStr &" and Shops.ShopStatus="& BBR_ShopStatus
 if len(BBR_ClassPath)>0 then Sql_SearchStr=Sql_SearchStr &" and Shops.ShopClassPath like ('"& BBR_ClassPath &"%')"

 if Cstr(BBR_ShopPlace_Prov)<>"" then Sql_SearchStr=Sql_SearchStr & " and Users.RegState like '%"& BBR_ShopPlace_Prov &"%'"
 if Cstr(BBR_ShopPlace_City)<>"" then Sql_SearchStr=Sql_SearchStr & " and Users.RegCity like '%"& BBR_ShopPlace_City &"%'"
 if Cstr(BBR_ShopPlace)<>"" then Sql_SearchStr=Sql_SearchStr & " and (Users.RegState like '%"& BBR_ShopPlace &"%' or Users.RegCity like '%"& BBR_ShopPlace &"%')"
 if IsSqlDataBase=1 then
    if BBR_ShopRegTime<>0 then Sql_SearchStr=Sql_SearchStr & " and DateDiff('d',Shops.ShopRegTime,"&SqlNowString&")<"&BBR_ShopRegTime
    if BBR_ShopCloseTime<>0 then Sql_SearchStr=Sql_SearchStr & " and DateDiff('d',"&SqlNowString&",Shops.ShopCloseTime)<"&BBR_ShopCloseTime
 else
    if BBR_ShopRegTime<>0 then Sql_SearchStr=Sql_SearchStr & " and DateDiff(""d"",Shops.ShopRegTime,"&SqlNowString&")<"&BBR_ShopRegTime
    if BBR_ShopCloseTime<>0 then Sql_SearchStr=Sql_SearchStr & " and DateDiff(""d"","&SqlNowString&",Shops.ShopCloseTime)<"&BBR_ShopCloseTime
 end if

 Select Case BBR_ShopOrder
   Case 1: Sql_SearchStr=Sql_SearchStr &" order by Shops.ShopFlag Asc"
   Case 2: Sql_SearchStr=Sql_SearchStr &" order by Shops.ShopStatus Desc"
   Case 3: Sql_SearchStr=Sql_SearchStr &" order by Shops.ShopRegTime Asc"
   Case 4: Sql_SearchStr=Sql_SearchStr &" order by Shops.ShopClick Desc"
   Case else: Sql_SearchStr=Sql_SearchStr &" order by Shops.BBR_ShopCommend Desc,Shops.ShopFlag Desc,Shops.ShopID Desc"
 End Select


 Page_QueryStr="BBR_ShopName="& BBR_ShopName &"&BBR_ShopOwner="& BBR_ShopOwner
 Page_QueryStr=Page_QueryStr &"&BBR_ShopFlag="& BBR_ShopFlag
 Page_QueryStr=Page_QueryStr &"&BBR_ShopStatus="& BBR_ShopStatus 
 Page_QueryStr=Page_QueryStr &"&BBRPath="& BBR_ClassPath
 Page_QueryStr=Page_QueryStr &"&TPL_Prov="& BBR_ShopPlace_Prov &"&TPL_City="& BBR_ShopPlace_City
 Page_QueryStr=Page_QueryStr &"&Place="& BBR_ShopPlace
 Page_QueryStr=Page_QueryStr &"&BBR_ShopRegTime="& BBR_ShopRegTime
 Page_QueryStr=Page_QueryStr &"&BBR_ShopCloseTime="& BBR_ShopCloseTime
 Page_QueryStr=Page_QueryStr &"&BBR_ShopOrder="& BBR_ShopOrder
 Page_QueryStr=Page_QueryStr &"&"





 Dim Page:Page=rst("page")
 if Page="" then Page=1
 if Not IsNum(Page) then Page=1
 Dim Page_Url
 Page_Url=Cnbbr_CurrentPath
 dim strAnd
 if instr(Page_Url,"?")=0 then
    strAnd = "?"
 else
    strAnd = "&"
 end if

 Page_QueryStr=Replace(Page_QueryStr,",","|")
 Page_QueryStr=Page_Url & StrAnd & Page_QueryStr


























Function Disp_ShopSearch()

With Response


	Dim DispAndOrder
	DispAndOrder=" <img src=""skins/"& SKINS_FOLDER &"/search_mirror.gif"" border=""0"" width=15 height=15 align=""absmiddle"">"
	DispAndOrder=DispAndOrder &" 显示方式： <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
	DispAndOrder=DispAndOrder &" <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
	DispAndOrder=DispAndOrder &" <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
	DispAndOrder=DispAndOrder &" 排序方式： <a href="&Page_QueryStr&"cnShopBBrOrder=1&page="&page&"><img src=""skins/"& SKINS_FOLDER &"/Order_price_Up.gif"" border=""0"" width=24 height=15 align=""absmiddle"" alt=""按店铺现价升序排列""></a> "& Vbcrlf
	DispAndOrder=DispAndOrder &" <a href="&Page_QueryStr&"cnShopBBrOrder=2&page="&page&"><img src=""skins/"& SKINS_FOLDER &"/Order_price_Down.gif"" border=""0"" width=24 height=15 align=""absmiddle"" alt=""按店铺现价降序排列""></a> "& Vbcrlf
	DispAndOrder=DispAndOrder &" <a href="&Page_QueryStr&"cnShopBBrOrder=3&page="&page&"><img src=""skins/"& SKINS_FOLDER &"/Order_time_Up.gif"" border=""0"" width=24 height=15 align=""absmiddle"" alt=""按结束时间升序排列""></a> "& Vbcrlf
	DispAndOrder=DispAndOrder &" <a href="&Page_QueryStr&"cnShopBBrOrder=4&page="&page&"><img src=""skins/"& SKINS_FOLDER &"/Order_time_Down.gif"" border=""0"" width=24 height=15 align=""absmiddle"" alt=""按结束时间降序排列""></a> "& Vbcrlf
	DispAndOrder=DispAndOrder &" <a href="&Page_QueryStr&"cnShopBBrOrder=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: DispAndOrder=Replace(DispAndOrder,"Order_Amount_20.gif","Order_CAmount_20.gif")
	  Case 40: DispAndOrder=Replace(DispAndOrder,"Order_Amount_40.gif","Order_CAmount_40.gif")
	  Case 80: DispAndOrder=Replace(DispAndOrder,"Order_Amount_80.gif","Order_CAmount_80.gif")
	  Case else:
	End Select
	Select Case BBR_ShopOrder
	  Case 1: DispAndOrder=Replace(DispAndOrder,"Order_price_Up.gif","Order_Cprice_Up.gif")
	  Case 2: DispAndOrder=Replace(DispAndOrder,"Order_price_Down.gif","Order_Cprice_Down.gif")
	  Case 3: DispAndOrder=Replace(DispAndOrder,"Order_time_Up.gif","Order_Ctime_Up.gif")
	  Case 4: DispAndOrder=Replace(DispAndOrder,"Order_time_Down.gif","Order_Ctime_Down.gif")
	  Case 5: DispAndOrder=Replace(DispAndOrder,"Order_click_Down.gif","Order_Cclick_Down.gif")
	  Case else:
	End Select


	.Write"<table width="""& SYS_BodyCenterWidth &""" border=0 align=center cellpadding=0 cellspacing=0>"& vbcrlf
	.Write"  <tr height=28 class=td>"& vbcrlf
	.Write"   <td width=380 align=left>&nbsp;</td>"& vbcrlf
	.Write"   <td align=right>"& vbcrlf

	.Write "<TABLE cellSpacing=0 cellPadding=0 width=98% align=right border=0>" & Vbcrlf
	.Write "<TR>" & Vbcrlf
	.Write "<td colspan=3 width=100% height=1 align=center class=menutdbg_1> </td>" & Vbcrlf
	.Write "</TR>" & Vbcrlf
	.Write "<TR>" & Vbcrlf