<% Dim gopage,gourl,gourl0 Hidd=ConvertNum(Request.QueryString("Hidd")) gopage = Request.QueryString("go") if gopage<> "" then gopage = LCase(gopage) gourl0 = "" select case gopage case "e_introduction" gourl = "/e_Introduction" case "introduction" gourl = "/Introduction" case "e_contact" gourl = "/e_Contact" case "contact" gourl = "/Contact" case "e_jobs" gourl = "/e_Jobs" case "jobs" gourl = "/Jobs" case "e_news" gourl = "/e_News" case "news" gourl = "/News" case "e_tradeinfo" gourl = "/e_TradeInfo" case "tradeinfo" gourl = "/TradeInfo" case "e_product" gourl = "/e_Product" case "product" gourl = "/Product" gourl0 = "product.asp" case "e_index" gourl = "/e_Index" case "index" gourl = "" case else gourl = "" end select end if IF Hidd>0 Then Set rs=server.createobject("adodb.recordset") sql="Select mb,Click,htype,webname From UserInfo Where [ShengP]=1 AND Hidd="&Hidd rs.open sql,conn,1,3 IF not rs.eof Then Rs("Click")=Rs("Click")+1 IF Cint(rs("htype"))=9 then response.Redirect("http://www.ofgqgto.com.cn/HuiyInfo/all_f/zpqy.asp?hidd="&hidd) response.End() end if mbNo=Rs("mb") WName=Rs("webname") rs.update 'IF mbNo=0 THEN mbNo=1 dim urltogo urltogo = "/" b = chkchs(WName) if b then else WName = "id-"&hidd end if select case mbNo case "1","2","3","22","29","30","31","32" urltogo = "http://c.fsjiaju.com/"&WName&gourl case else urltogo = "http://www.ofgqgto.com.cn/HuiyInfo/mb"&mbNo&"/"&gourl0&"?hidd="&hidd end select if instr(WName,"&")>0 then urltogo = "http://www.ofgqgto.com.cn/HuiyInfo/mb"&mbNo&"/"&gourl0&"?hidd="&hidd Url301(urltogo) 'Url301("http://www.ofgqgto.com.cn/HuiyInfo/mb"&mbNo&"/?hidd="&Hidd ) Else 'Url301("http://www.ofgqgto.com.cn/?link-audit-0") response.write "" End if rs.close set rs=nothing Set Conn=Nothing Else Url301("http://www.ofgqgto.com.cn/?link-404") End IF function chkchs(str) if not isnull(str) then set regex = new regexp regex.pattern = "^[^\u4E00-\u9FA5]+$" regex.ignorecase=true regex.global=true matches=regex.test(str) chkchs = matches end if end function %>重庆时时彩老版本下款 指数公司怎么赚钱呢 斑马省钱能赚钱吗 微博写作能赚钱 辉煌棋牌辅助软件 喜乐彩玩法 北京赛车pk拾买法技巧 极速十一选五基本走势图 晓游棋牌比赛 世界杯最全即时赔率 真人捕鱼比赛游戏厅 浙江十一选五的走势图 辽宁快乐12开奖结果查询 188即时足球比分 金凤凰彩票群 广州恒大新浪体育 大富豪棋牌官网