NEWSZW_HZH_BEGIN-->
<%
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
dim docnum
docnum = 101
do while docnum <> 111
Response.Write docnum
HTTPObj.Url = "http://HdhCmsTestintels.net/date.asp?songID="&docnum
HttpObj.RequestMethod = "GET"
strResult = HTTPObj.GetURL
Response.Write strResult
docnum=docnum + 1
Response.Write "
"
loop
%>
NEWSZW_HZH_END-->
声明:本文来自网络,不代表【好得很程序员自学网】立场,转载请注明出处:http://haodehen.cn/did27290