首页 相关文章 XMLHTTP获取web访问头信息和网页代码

XMLHTTP获取web访问头信息和网页代码

  %

  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

  url=request.form("url")
  if trim(url)"" then
   set xml = Server.CreateObject("MSXML...[ 查看全文 ]

2016-02-19 标签:

XMLHTTP获取web访问头信息和网页代码的相关文章

手机页面
收藏网站 回到头部