<p><br />
简单实例：<br />
使用这个组件十分简单<br />
1.创建对象<br />
2.设定一些属性<br />
3.调用GetUrl方法<br />
<br />
下面是<a class="link_keyword" href="http://www.qqread.com/keywords/vbscript.html" target="_blank">vbscript</a>使用AspHTTP的示例代码<br />
<br />
Set HttpObj = Server.CreateObject("AspHTTP.Conn")<br /><table border="0" align="left" class=ppc_download_ad_frame cellspacing=0 cellpadding=0 width="1%" style="margin-top:10px;margin-right:7px;margin-bottom:3px;margin-left:0px">
<tr>
<td id=a><img height=9 width=9></td>
<td id=b width="100%"><img height=1 width=1></td>
<td id=c><img height=9 width=9></td>
</tr>
<tr>
<td id=d><img height=1 width=1></td>
<td id=e valign=top height="100%"><!-- frame contents -->
<table cellspacing=0 cellpadding=0 border=0>
<tr>
<td><div id="w_hzh"></div></td>
</tr>
</table>
<!-- /frame contents --></td>
<td id=f><img height=1 width=1></td>
</tr>
<tr>
<td id=g><img height=9 width=9></td>
<td id=h><img height=1 width=1></td>
<td id=i><img height=9 width=9></td>
</tr>
</table>
HttpObj.Url = "http://www.myfinancialpage.com/qrtresults.html"<br />
strResult = HttpObj.GetURL<br />
变量strResult现在包含一个字符串从http://www.myfinancialpage.com/qrtresults.html<br />
GET获得的文档结果<br />
<br />
实例：获得GIF文件<br />
<%<br />
rem This demo pulls a GIF image from www.microsoft.com<br />
Server.ScriptTimeout = 240<br />
Set HttpObj = Server.CreateObject("AspHTTP.Conn")<br />
HttpObj.Url = "http://www.microsoft.com/library/images/gifs/toolbar/write.gif"<br />
HttpObj.FollowRedirects = false<br />
HttpObj.RequestMethod = "GET"<br />
HttpObj.UserAgent = "Mozilla/2.0 (compatible; MSIE 3.0B; <a class="link_keyword" href="http://www.qqread.com/keywords/windows.html" target="_blank">Windows</a> NT)"<br />
HttpObj.SaveFileTo = "c:write.gif"<br />
HttpObj.GetURL<br />
Response.Write "<hr><h3>Headers Received</h3><pre>" & HttpObj.Headers & "</pre>"<br />
%><br />
<br />
实例：处理和显示URL包含的HREF<br />
<html><br />
<body><br />
<%<br />
Server.ScriptTimeout = 240<br />
Set HttpObj = Server.CreateObject("AspHTTP.Conn")<br />
HttpObj.Url = "http://www.genusa.com/asp/tools.html"<br />
HttpObj.RequestMethod = "GET"<br />
HttpObj.UserAgent = "Mozilla/2.0 (compatible; MSIE 3.0B; Windows NT)"<br />
strResult = HttpObj.GetURL<br />
Response.Write "<h2>A HREF List</h2>"<br />
varHREFArray = HttpObj.GetHREFs<br />
intHREFArrayLimit = UBound(varHREFArray) -1<br />
For I = 0 to intHREFArrayLimit<br />
Response.Write varHREFArray(I) & "<br>" & VBCrLF<br />
Next<br />
%><br />
</body><br />
</html><br />
</p>
</div>
</div>
