ASP HTTP 使用范例

网络整理 - 08-16

简单实例：
  使用这个组件十分简单
  1.创建对象
  2.设定一些属性
  3.调用GetUrl方法

  下面是vbscript使用AspHTTP的示例代码

  Set HttpObj = Server.CreateObject("AspHTTP.Conn")
  HttpObj.Url = ""
  strResult = HttpObj.GetURL
  变量strResult现在包含一个字符串从
  GET获得的文档结果

  实例：获得GIF文件
  <%
  rem This demo pulls a GIF image from
  Server.scriptTimeout = 240
  Set HttpObj = Server.CreateObject("AspHTTP.Conn")
  HttpObj.Url = ""
  HttpObj.FollowRedirects = false
  HttpObj.RequestMethod = "GET"
  HttpObj.UserAgent = "Mozilla/2.0 (compatible; MSIE 3.0B; Windows NT)"
  HttpObj.SaveFileTo = "c:\write.gif"
  HttpObj.GetURL
  Response.Write "<hr><h3>Headers Received</h3><pre>" & HttpObj.Headers & "</pre>"
  %>

  实例：处理和显示URL包含的HREF
  <html>
  <body>
  <%
  Server.scriptTimeout = 240
  Set HttpObj = Server.CreateObject("AspHTTP.Conn")
  HttpObj.Url = ""
  HttpObj.RequestMethod = "GET"
  HttpObj.UserAgent = "Mozilla/2.0 (compatible; MSIE 3.0B; Windows NT)"
  strResult = HttpObj.GetURL
  Response.Write "<h2>A HREF List</h2>"
  varHREFArray = HttpObj.GetHREFs
  intHREFArrayLimit = UBound(varHREFArray) -1
  For I = 0 to intHREFArrayLimit
    Response.Write varHREFArray(I) & "<br>" & VBCrLF
  Next
  %>
  </body>
  </html>

原作者：不详
来源：不详