sql_userfunction.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 SearchUserLockStr,UserLockStr

 SearchUserLockStr=CheckStr(Trim(Rst("SearchUserLockStr")))
 if Not isNum(SearchUserLockStr) then
    UserLockStr=" RegID>=0"
 else
  if SearchUserLockStr=1 then
    UserLockStr=" regAdmin='Y'"
  else
    UserLockStr=" regAdmin='N'"
  end if
 end if 


 Dim BBR_UserName
 BBR_UserName=Trim(Rst("BBR_UserName"))
 BBR_UserName=Replace(Replace(Replace(Replace(Replace(BBR_UserName,",","|||"),"，","|||")," ","|||"),";","|||"),";","|||")
 BBR_UserName=InterceptString(CheckStr(BBR_UserName),45)


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


 Dim BBR_UserCredit_Small,BBR_UserCredit_Large
 BBR_UserCredit_Small=CheckStr(Trim(Rst("BBR_UserCredit_Small")))
 BBR_UserCredit_Large=CheckStr(Trim(Rst("BBR_UserCredit_Large")))
 if Not isNum(BBR_UserCredit_Small) then BBR_UserCredit_Small=0
 if Not isNum(BBR_UserCredit_Large) then BBR_UserCredit_Large=0


 Dim BBR_UserPlace_Prov,BBR_UserPlace_City,BBR_UserPlace
 BBR_UserPlace_Prov=CheckStr(Trim(Rst("TPL_prov")))
 BBR_UserPlace_City=CheckStr(Trim(Rst("TPL_City")))
 BBR_UserPlace=CheckStr(Trim(Rst("Place")))


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


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

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


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




 Dim Sql_SearchStr
 Sql_SearchStr="Select Regid,regAdmin,regValidated,regUserName,regEmail,regName,regAddress1,regAddress2,regCity,regState,regtime,credit,regsex,regtel,degrade,userqq from Users Where"& UserLockStr

 Dim TempTs
 if instr(BBR_UserName,"|||")>1 then
    Dim TempT,TempT2,Tii
    TempT=BBR_UserName
    TempT=Split(TempT,"|||")
    For Tii=0 to Ubound(TempT)
      TempT2=TempT2 &" and AucItemTitle like '%"& TempT(Tii) &"%'"
    Next
    TempTs=TempT2
 else
    TempTs=" and regUserName like '%"& BBR_UserName &"%'"
 end if
 Sql_SearchStr=Sql_SearchStr & TempTs
 if BBR_UserEmail<>"" then Sql_SearchStr=Sql_SearchStr &" and RegEmail like '%"& BBR_UserEmail &"%'"
 if cdbl(BBR_UserCredit_Small)<>0 then Sql_SearchStr=Sql_SearchStr &" and credit>="& BBR_UserCredit_Small 
 if cdbl(BBR_UserCredit_Large)<>0 then Sql_SearchStr=Sql_SearchStr &" and credit<="& BBR_UserCredit_Large
 if Cstr(BBR_UserPlace_Prov)<>"" then Sql_SearchStr=Sql_SearchStr & " and RegState like '%"& BBR_UserPlace_Prov &"%'"
 if Cstr(BBR_UserPlace_City)<>"" then Sql_SearchStr=Sql_SearchStr & " and RegCity like '%"& BBR_UserPlace_City &"%'"
 if Cstr(BBR_UserPlace)<>"" then Sql_SearchStr=Sql_SearchStr & " and regAddress2 like '%"& BBR_UserPlace &"%'"
 if Cstr(BBR_UserDegrade)<>"" then Sql_SearchStr=Sql_SearchStr & " and degrade='"& BBR_UserDegrade &"'"
 if IsSqlDataBase=1 then
    if BBR_UserRegTime<>0 then Sql_SearchStr=Sql_SearchStr & " and DateDiff(d,RegTime,"&SqlNowString&")<"&BBR_UserRegTime
 else
    if BBR_UserRegTime<>0 then Sql_SearchStr=Sql_SearchStr & " and DateDiff('d',RegTime,"&SqlNowString&")<"&BBR_UserRegTime
 end if


 Select Case BBR_UserOrder
   Case 1: Sql_SearchStr=Sql_SearchStr &" order by regTime Asc"
   Case 2: Sql_SearchStr=Sql_SearchStr &" order by credit Desc"
   Case else:
 End Select


 Page_QueryStr="BBR_UserName="& BBR_UserName
 Page_QueryStr=Page_QueryStr &"&BBR_UserEmail="& BBR_UserEmail
 Page_QueryStr=Page_QueryStr &"&BBR_UserCredit_Small="& BBR_UserCredit_Small
 Page_QueryStr=Page_QueryStr &"&BBR_UserCredit_Large="& BBR_UserCredit_Large 
 Page_QueryStr=Page_QueryStr &"&TPL_Prov="& BBR_UserPlace_Prov &"&TPL_City="& BBR_UserPlace_City
 Page_QueryStr=Page_QueryStr &"&Place="& BBR_UserPlace
 Page_QueryStr=Page_QueryStr &"&BBR_UserDegrade="& BBR_UserDegrade
 Page_QueryStr=Page_QueryStr &"&BBR_UserRegTime="& BBR_UserRegTime
 Page_QueryStr=Page_QueryStr &"&BBR_UserOrder="& BBR_UserOrder
 Page_QueryStr=Page_QueryStr &"&SearchUserLockStr="& SearchUserLockStr
 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_UserSearch()

With Response

	.Write"<table width=98% border=0 align=center cellpadding=0 cellspacing=0>"& vbcrlf
	.Write"  <tr height=28 class=td>"& vbcrlf
	.Write"   <td width=""60%"" align=left>"& Disp_UserAdminMenu &"</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
	.Write "<td colspan=3 width=100% height=26 align=Left background=""../skins/"& SKINS_FOLDER &"/GrayBg.Gif"" border=""0"">"& Vbcrlf


	.Write DispAndOrder

	.Write "</td>" & Vbcrlf
	.Write "</TR>" & Vbcrlf
	.Write "<TR height=1>" & Vbcrlf
	.Write "<td width=1% align=center class=td></td><td width=98% align=center class=menutdbg_2> </td><td width=1% align=center class=td></td>" & Vbcrlf
	.Write "</TR>" & Vbcrlf
	.Write "</Table>" & Vbcrlf

	.Write"   </td>"& vbcrlf
	.Write"  </tr>"& vbcrlf
	.Write"</table>"& vbcrlf

End With











 Call Disp_PageUser(Sql_SearchStr)

End Function