使用 MSXML2.XMLHTTP时 遇到的一个问题

[blueonly]

用下列代码获取网页的html,可是用着用着就会出现卡死的情况,即一直都不返回程序停在那不动了

也不报错

这可能是什么原因,应该怎么解决?

private function getBody(surl)
'获取URL的HTML代码
dim xmlHttp
set xmlHttp=server.createobject("MSXML2.XMLHTTP")
xmlHttp.open "GET",surl,false
xmlHttp.send
if xmlHttp.readystate<>4 then
getBody=""
set xmlHttp=nothing
exit function
end if
getBody=xmlhttp.responsebody
set xmlHttp=nothing
end function

[喜受写代码的小强]

到我的网站上找找看

[tigerwen01]

if xmlHttp.readystate<>4 then
getBody=""
set xmlHttp=nothing
exit function
end if
去掉上面那段代码试试，看是不是问题出在这里。

[lisoon]

if xmlhttp.status=200 then
getBody=xmlhttp.responsebody
else
'连接失败
end if

[victor888]

这类问题不提供URL是无法解决的。

[blueonly]

我的代码是用在服务器端运行的,后台我在查看MSXML4 sdk时
发现有另一个对象serverxmlhttp,简单看了介绍发现其实应该用着个声明,可是在网上看的许多小偷程序确用的是 microsoft.xmlhttp ,并且很多人多讨论发生死锁的现象.
是不是由于用错了对象?改用serverxmlhttp就好了?

_______________________
The HTTP client stack offers longer uptimes. WinInet features that are not critical for server applications, such as URL caching, auto-discovery of proxy servers

这句话意味着serverxmlhttp 不支持URL caching和auto-discovery of proxy servers?

[blueonly]

serverxmlhttp 是xmlhttp的一个替代对象吗?他们的关系是什么?

[孟子E章]

serverxmlhttp功能与xmlhttp类似，但SServerXmlhttp更安全，也扩充了功能，如超时
getOption, setOption, waitForResponse, and setTimeouts等
可参考
http://msdn.microsoft.com/library/en-us/xmlsdk/html/7e91f3de-d21c-404d-966a-95c148b22e98.asp

[孟子E章]

http://support.microsoft.com/kb/290761/zh-cn

[孟子E章]

参考

http://www.kbalertz.com/kbNamed_872788/Fixes.problem.that.causes.waitForResponse.method.ServerXMLHTTP.class.fail.when.there.redirect.request.another.Contains.hotfix.this.aspx

[jspadmin]

我也的好好补补xml课了,惭愧

[blueonly]

谢谢上面给出的信息
再重申一下问题

我的代码是用在服务器端运行的,后台我在查看MSXML4 sdk时
发现有另一个对象serverxmlhttp,简单看了介绍发现其实应该用着个声明,可是在网上看的许多小偷程序确用的是 microsoft.xmlhttp ,并且很多人多讨论发生死锁的现象.
是不是由于用错了对象?改用serverxmlhttp就好了?

_______________________
The HTTP client stack offers longer uptimes. WinInet features that are not critical for server applications, such as URL caching, auto-discovery of proxy servers

这句话意味着serverxmlhttp 不支持URL caching和auto-discovery of proxy servers?

[blueonly]

用下列代码获取网页的html,可是用着用着就会出现卡死的情况,即一直都不返回程序停在那不动了,我知道许多人遇到这中情况,可以排除程序脚本的错误,
虽然后台我已用serverxmlhttp + settimeout解决了问题
但是 这到底是什么原因造成的 ?

[blueonly]

up -_-b

[lliei]

<%
Function GetHTTPPage(url)
Response.Write url & "<p>"
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "get", url, False
.Send
GetHTTPPage = .responseText
End With
Set Retrieval = Nothing
End Function


wstr=getHTTPPage("http://search.half.ebay.com/ws/web/HalfSearch?m=books&submit=Search&isbn=0619268158")
response.write wstr
%>

我怎么拿不到这个网页阿，帮我看一下吧，谢谢阿

[blueonly]

up :D

[epjack]

http://www.wewill.cn/default.asp?action=article&ID=216