<% Function getHTTPPage(url) dim objXML set objXML=server.createobject("MSXML2.XMLHTTP") objXML.open "GET",url,false On Error Resume Next objXML.send() If objXML.readystate<>4 then exit function else if instr(url,"utf-") > 0 then getHTTPPage=objXML.ResponseText else getHTTPPage=BytesToBstr(objXML.responseBody) end if set objXML=nothing End If if err.number<>0 then err.Clear End Function Function BytesToBstr(body) 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 = "GB2312" BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function Dim Url,Html Url = "http://www.100lian.net/user/30050.html" response.write(getHTTPPage(Url)) %> 站长统计： 友情链接100链 中小企业信息台 七台河信息网 百度 新浪 腾讯 中国移动 人人网 好123之家 非诚勿扰 珠海雨阳广告公司 搜狐网
起点 中关村在线 猫扑社区 淘宝网 实用查询 百度MP3 百度贴吧 百度地图 百度视频星魂黄页网

51Yes网站流量统计 ： 站长统计：