求助XMLHTTP,100分

[yestar2000]

dim Retrieval
function GetPage(url)
set Retrieval=server.createobject("MSXML2.XMLHTTP")
Retrieval.open "GET",url,false
Retrieval.send()
if Retrieval.readystate<>4 then
exit function
end if
GetPage=BytesToBstr(Retrieval.responseBody)
set Retrieval=nothing
if err.number<>0 then err.Clear
end function

上面的代码我在我本机执行抓取文件的时候正确
但是把代码传到服务器上就不行了，提示Retrieval.send()代码错误
服务器是win2000server

高手帮忙啊，100分

[IMarksman]

看看你服务器的msxml的版本是多少？
如果版本低于3，安装高版本msxml

[ChinaOk]

服务器上最好用ServerXMLHttp

[孟子E章]

http://dotnet.aspx.cc/ShowDetail.aspx?id=6DDF3C72-F29C-43D3-C2A8-2444CF98FBED