<% If Int(Mem(0)(1)) < 1 Then Call WRMPS.ErrView("","","
  • 您沒有權限使用此功能", 0) Dim City,SearchUrl,i Key = WRMPS.CheckStr(Request("Key"),0) City = WRMPS.CheckStr(Request("City"),1) ClassID = WRMPS.CheckStr(Request("ClassID"),1) If Key ="" Then Call WRMPS.ErrView("","Index.asp","
  • 請輸入搜索關鍵字", 0) Key = WRMPS.GetReplace(Key,"[","") Key = WRMPS.GetReplace(WRMPS.GetReplace(Key," ","+")," ","+") 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 "Product" SearchUrl = "P/?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 'yi begin Key = Split(Key,"+") For i=0 To UBound(Key) If SQL = "" Then SQL = "WM_Tag='"&Key(i)&"'" Else SQL = SQL & " or WM_Tag='"&Key(i)&"'" End If Next Call DBConnBegin() Set Rs = Conn.Execute("Select WM_Url From WM_SearchNonstop Where "&SQL&" and WM_Key = 1 and WM_EndTime>"&ConnTime) If Not rs.eof Then Response.redirect Rs(0) End If rs.close Set rs = Nothing Call DBConnEnd() 'yi end Call WRMPS.Loading("內容搜索完成,正在轉向結果頁面 ...") Call WRMPS.ErrView("","","", 2) Call ClassEnd() %>我爱玩山西麻将app pk10每期必中万能6码p 浙江2o选5走势图 2008上证指数最低点 河内五分彩基本走势图 股票配资平台 一直牛 天津十一选五今天第45 黑龙江36选7开奖 广东11选5计划_人工版 江苏十一选五直播视 澳门皇家88app