<%
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
%>
文章评论
共有 位脚本之家网友发表了评论我来说两句