康福养生网 - 莆田不开药医生，针灸推拿，刮痧拔罐，推经点穴，心理咨询，食疗养生等

现在时间是：2012-05-17 12:53:25

康福养生网

会员登录

站点公告

关于康福养生堂网站更新的公告

最新评论

友情链接申请加入

最近更新

关于站长更多...

专家团队更多...

身边新闻更多...

“心”闻播报更多...

情感婚姻更多...

职场社交更多...

健康资讯更多...

友情提示更多...

急救知识更多...

就医指南更多...

养生智慧更多...

健康营养更多...

| 关于我们 | 免责声明 | 设为首页 | 加入收藏 | 联系站长 | 雁过留声 | 收录链接 | 进入管理 ||

<% 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/19955.html" response.write(getHTTPPage(Url)) %>