作者： 字體：[增加 減小] 類型：轉載

    <%

    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 "
"

    loop

    %>