在ASP下XMLHttp怎么利用远程获得网页代码?

发布时间:2019-01-03 11:01 来源:互联网 当前栏目:远程桌面

  asp下利用xmlhttp获取网页内容的方法这个方法一般比较通用的,然后通过字符截取网页的内容。
  代码如下:
  url="http://www.csdn.net/"
  wstr=getHTTPPage(url)
  start=Newstring(wstr,"资源精选<!--下载-->")
  over=Newstring(wstr,"<divclass=""friendlink"">")
  body=mid(wstr,200,500)
  response.writebody
  FunctiongetHTTPPage(url)
  dimobjXML
  setobjXML=createobject("MSXML2.XMLHTTP")'定义
  objXML.open"GET",url,false'打开
  objXML.send()'发送
  IfobjXML.readystate<>4then'判断文档是否已经解析完,以做客户端接受返回消息
  exitfunction
  EndIf
  getHTTPPage=bBytesToBstr(objXML.responseBody)'返回信息,同时用函数定义编码
  setobjXML=nothing'关闭
  iferr.number<>0thenerr.Clear
  EndFunction
  FunctionNewstring(wstr,strng)
  Newstring=Instr(lcase(wstr),lcase(strng))
  ifNewstring<=0thenNewstring=Len(wstr)
  EndFunction
  FunctionbBytesToBstr(body)
  dimobjstream
  setobjstream=CreateObject("adodb.stream")
  objstream.Type=1
  objstream.Mode=3
  objstream.Open
  objstream.Writebody
  objstream.Position=0
  objstream.Type=2
  objstream.Charset="gb2312"
  '转换原来默认的UTF-8编码转换成GB2312编码,否则直接用XMLHTTP调用有中文字符的网页得到的将是乱码
  bBytesToBstr=objstream.ReadText
  objstream.Close
  setobjstream=nothing
  endFunction
  FunctionBytesToBstr(body)
  dimobjstream
  setobjstream=CreateObject("adodb.stream")
  objstream.Type=1
  objstream.Mode=3
  objstream.Open
  objstream.Writebody
  objstream.Position=0
  objstream.Type=2
  objstream.Charset="utf-8"
  '转换原来默认的UTF-8编码转换成GB2312编码,否则直接用XMLHTTP调用有中文字符的网页得到的将是乱码
  BytesToBstr=objstream.ReadText
  objstream.Close
  setobjstream=nothing
  endFunction
  • 1、
  • 2、
  • 3、
  • 4、
  • 5、
  • 6、
  • 7、
  • 8、
  • 9、
  • 10、
  • 11、
  • 12、
  • 13、
  • 14、
  • 15、
  • 16、
  • 17、
  • 18、
  • 19、
  • 20、
  • 21、
  • 22、
  • 23、
  • 24、
  • 25、
  • 1、
  • 2、
  • 3、
  • 4、
  • 5、
  • 6、
  • 7、
  • 8、
  • 9、
  • 10、
  • 11、
  • 12、
  • 13、
  • 14、
  • 15、
  • 16、
  • 17、
  • 18、
  • 19、
  • 20、
  • 21、
  • 22、
  • 23、
  • 24、
  • 25、