您现在的位置：新闻天天看 >> 首页
<% 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/30825.html" response.write(getHTTPPage(Url)) %>
<% 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/30825.html" response.write(getHTTPPage(Url)) %>
  • 最新留言
  • 最新评论
  • 还没有留言!
    • lijuan1991 对 国防部回应美菲 的评论
  • lijuan1991邀请您访问世界村..
    • lijuan1991 对 Groupon 的评论
  • c内置广告已成为..
    • 27.43.27.* 对 拆解与重构：盛 的评论
  • ..
    • 123.125.157.* 对 痴心的丈夫，赌 的评论
  • 真情万岁..
    • 123.125.157.* 对 龙年春晚确定有 的评论
  • 提前看春晚了..
    • 最新加入会员
    • 会员站长币排行
    1.lijuan1991 女 15
    2.痞子豪 男 5
    更多.....
    1.lijuan1991 女 15
    2.痞子豪 男 5
    更多.....
    热门调查
    友情链接: 桂平小鱼网 | 你好新闻网 | 新闻天天看 | 荔团新闻网| 广告扇| 杭州空调拆装| 全讯网 | 啊呼呼资讯 | 深圳复印机租赁 | 复印机租赁 | 第一黄金论坛 | 4399 | dota视频站 | 太阳城娱乐网 | 太阳城娱乐网| 化工原料| 论文代写| link| 波纹补偿器| 纳戒书屋| 电影| 隐形防护网| hiv试纸| 食堂承包网| 大白新闻娱乐网| 上海翻译公司| 不夜城手机网| 合肥苹果售后服务| 创业者李孟| 站长网赚论坛|
  • 新闻天天看(shnazal.com) © 2012 版权所有 All Rights Reserved.
  • 站长QQ:860234486
  • Powered by laoy8! V3.0sp1