ASP HTTP 使用范例
日期：2010-12-21 浏览次数：21303 次
简单实例：
使用这个组件十分简单
1.创建对象
2.设定一些属性
3.调用GetUrl方法
下面是vbscript使用AspHTTP的示例代码
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
HttpObj.Url = "http://www.myfinancialpage.com/qrtresults.html"
strResult = HttpObj.GetURL
变量strResult现在包含一个字符串从http://www.myfinancialpage.com/qrtresults.html
GET获得的文档结果
实例：获得GIF文件
<%
rem This demo pulls a GIF image from www.microsoft.com
Server.ScriptTimeout = 240
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
HttpObj.Url = "http://www.microsoft.com/library/images/gifs/toolbar/write.gif"
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 = "http://www.genusa.com/asp/tools.html"
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>
使用这个组件十分简单
1.创建对象
2.设定一些属性
3.调用GetUrl方法
下面是vbscript使用AspHTTP的示例代码
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
HttpObj.Url = "http://www.myfinancialpage.com/qrtresults.html"
strResult = HttpObj.GetURL
变量strResult现在包含一个字符串从http://www.myfinancialpage.com/qrtresults.html
GET获得的文档结果
实例：获得GIF文件
<%
rem This demo pulls a GIF image from www.microsoft.com
Server.ScriptTimeout = 240
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
HttpObj.Url = "http://www.microsoft.com/library/images/gifs/toolbar/write.gif"
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 = "http://www.genusa.com/asp/tools.html"
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>
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
