<% 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 新朋股份股票 怎么看股票k线图 广西十一选五开奖结果查询 陕西11选五5开奖走势图 辽宁35选7开奖福彩网 体彩6十1中奖概率 山东黄金股票行情 排列三玩法 黑龙江22选5开奖视频 每日涨停板股票推荐