我的第一个数据采集程序

Posted on 2006-06-14 08:59 Flysky 阅读(296) 评论(1) 收藏举报

<%
function GetBody(weburl)
dim objXMLHTTP
set objXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP")
objXMLHTTP.Open "GET",weburl,false
objXMLHTTP.send
while objXMLHTTP.readyState<>4
objXMLHTTP.waitForResponse 1000
wend
GetBody=objXMLHTTP.responseBody
set objXMLHTTP=nothing
End Function