<% 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 中国全民彩票app 幸运飞艇冠亚单最高倍率平台 2011排列5走势图 山东十一运夺金遗漏 体彩安徽11选5开奖结果 湖北快三开奖结果图表 广东快乐10分走势图 诺安股票320003 时时彩软件哪个最好 广东36选7彩票开奖