<% 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+1开奖结果查询表近100期 山东11选5讨论群 天津快乐十分走势图牛 陕西高频十一选五推荐号 海南4+1玩法中奖缴税 专业股票配资公司 吉林快3走势图 快乐双彩开奖结果彩吧助手