<%
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
dim docnum
docnum = 101
do while docnum <> 111
Response.Write docnum
HTTPObj.Url = "http://www.intels.net/date.asp?songID="&docnum
HttpObj.RequestMethod = "GET"
strResult = HTTPObj.GetURL
Response.Write strResult
docnum=docnum + 1
Response.Write "<br>"
loop
%>
本文章来源于网络,作者是:,由代码部落进行采编,如涉及侵权请联系删除!转载请注明出处:https://daimabuluo.cc/biancheng10000wen/1032.html