search.asp

来自「网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。」· ASP 代码 · 共 39 行

<!--#include file="../inc/Conn.asp"-->
<!--#include file="../Inc/Cls.Common.asp"-->
<%
  If Int(UserFlag(6)) < 1 Then Call WRMPS.ErrView("·您没有权限使用此功能", 0)
  Dim City,SearchUrl
  Key = WRMPS.CheckStr(Request("Key"),0)
  City = WRMPS.CheckStr(Request("City"),1)
  ClassID = WRMPS.CheckStr(Request("ClassID"),1)
  
  If Key ="" Then Call WRMPS.ErrView("·请输入搜索关键字<meta http-equiv=refresh content='1;URL=Index.asp'>", 0)
  
  Key = WRMPS.GetReplace(Key,"[","")
  Key = WRMPS.GetReplace(WRMPS.GetReplace(Key," ","+"),"&nbsp;","+")
  If Len(Key) > 100 Then Key = Left(Key,100)

  Select Case WRMPS.CheckStr(Request("Type"),0)
    Case "Class"
	  SearchUrl = "C/?Key="&escape(Key)
	  If City <> "" Then SearchUrl = SearchUrl & "&City="&City
	  If ClassID <> "" Then SearchUrl = SearchUrl & "&ClassID="&ClassID
	Case "Article"
	  SearchUrl = "A/?Key="&escape(Key)
	Case "Company"
	  SearchUrl = "Y/?Key="&escape(Key)
	  If City <> "" Then SearchUrl = SearchUrl & "&City="&City
	  If ClassID <> "" Then SearchUrl = SearchUrl & "&ClassID="&ClassID
	Case "Coupon"
	  SearchUrl = "S/?Key="&escape(Key)
	  If City <> "" Then SearchUrl = SearchUrl & "&City="&City
	  If ClassID <> "" Then SearchUrl = SearchUrl & "&ClassID="&ClassID
	Case "Map"
	  SearchUrl = WR_Setting(3)&"Company/Map/?Key="&escape(Key)
	  If City <> "" Then SearchUrl = SearchUrl & "&City="&City
	  If ClassID <> "" Then SearchUrl = SearchUrl & "&Sort="&ClassID
  End Select
  Call WRMPS.Loading("内容搜索完成，正在转向结果页面 ...")
  Call WRMPS.ErrView("<script>Loading.style.display='';Loading.style.bottom=100;</script><meta http-equiv=refresh content='3;URL="&SearchUrl&"'>", 2)
  Call ClassEnd()
%>