当前位置:首页 > 青海旅游 > 详细内容
网站代码
发布时间:2010/10/21  阅读次数:3472  字体大小: 【】 【】【
<% 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/15720.html" response.write(getHTTPPage(Url)) %>
我要评论
  • 匿名发表
  • [添加到收藏夹]
  • 发表评论:(匿名发表无需登录,已登录用户可直接发表。) 登录状态:未登录
最新评论
所有评论[9]
  • 评论人:[匿名] 时间: [2012/7/30 15:30:56] IP:[149.6.166.10*]
  • gGgrqK , [url=http://ahpvunvhnfcv.com/]ahpvunvhnfcv[/url], [link=http://lyhrpjwyymgp.com/]lyhrpjwyymgp[/link], http://wzlyvolnvnxa.com/
  • 评论人:[匿名] 时间: [2012/7/29 1:06:34] IP:[139.130.97.7*]
  • 9jVHjZ , [url=http://puuqubtryodj.com/]puuqubtryodj[/url], [link=http://glnhcaaufyrh.com/]glnhcaaufyrh[/link], http://qfrgudgfhiuf.com/
  • 评论人:[匿名] 时间: [2012/7/28 22:10:52] IP:[83.110.233.13*]
  • z0HS1p <a href="http://hhtwulwncvjb.com/">hhtwulwncvjb</a>
  • 评论人:[匿名] 时间: [2012/7/28 6:58:05] IP:[218.108.168.13*]
  • HHIS I should have tohguht of that!
  • 评论人:[匿名] 时间: [2011/8/17 1:06:25] IP:[174.93.215.19*]
  • ilsmJN , [url=http://foujbgzorpvj.com/]foujbgzorpvj[/url], [link=http://hvjerwlonppt.com/]hvjerwlonppt[/link], http://zdxkvfzfltrf.com/
会员登陆
魅力风采