search_result.asp

. 缓存处理技术

<!-- #include file="Conn_And_Config.asp" -->
<%
Dim Flag
Flag=CheckStr(trim(Request.Form("Flag")))

if Not isNum(Flag) then Response.Redirect "Search_Auction.asp"


Dim Skey : Skey=CheckStr(trim(Request.Form("skey")))
Select Case Flag
  Case 1: Response.Redirect "Search_Auction.asp?BBR_AucName="& Server.URLEncode(Skey)
  Case 2: 
	Sql="Select Regid from users where regusername='"& Skey &"'"
	Set Rs=Conn.Execute(Sql)
	if Rs.Eof then
	   Call AlertInfo("出错了，没有找到你搜索的用户！","",0)
	else
	   Response.Redirect "Search_Auction.asp?BBr_AucOwner="& Rs("RegId")
	end if
  Case 3: Response.Redirect "Search_Shop.asp?BBR_Shopname="& Server.URLEncode(Skey)
  Case else: Response.Redirect "Search.asp"
End Select
%>