服务器端利用xmlhttp生成网页静态文件时假死

[Equn]

Function getHTTPPage(url)
dim objXML
set objXML=server.createobject("MSXML2.XMLHTTP")'定义
objXML.open "POST",url,false'打开
objXML.send()'发送
If objXML.readystate<>4 then '判断文档是否已经解析完，以做客户端接受返回消息
exit function
End If
getHTTPPage=BytesToBstr(objXML.responseBody)'返回信息，同时用函数定义编码
set objXML=nothing'关闭
if err.number<>0 then err.Clear
End Function

使用以上函数来把动态网页转化为静态的html页面，但经常随机性的加载某个页面时假死，只有重新启动IIS才能恢复正常。
就好像是MSXML2.XMLHTTP组件被堵死了一样。

这是在windows2003的服务器端运行的。

[zhuyongzhao]

是不是服务器升级过？

[zhuyongzhao]

Function getHTTPPage(url)
dim objXML
set objXML=server.createobject("MSXML2.XMLHTTP")'定义
objXML.open "POST",url,false'打开
objXML.send()'发送
If objXML.readystate =4 then '判断文档是否已经解析完，以做客户端接受返回消息
if objXML.status=0 or objXML.status=200 then
getHTTPPage=BytesToBstr(objXML.responseBody)'返回信息，同时用函数定义编码
end if
else
exit function
End If

set objXML=nothing'关闭
if err.number <>0 then err.Clear
End Function

[ttt2]

if err.number <>0 then err.Clear 把这句去啦,在看看有没有on error resume next语句注释掉试试

[Equn]

[Quote=引用 1 楼 zhuyongzhao 的回复:]
是不是服务器升级过？
[/Quote]

服务器不是我管理，不大清楚。请问是否有这种情况？使用xmlhttp访问网站假死后，整个网站打不开，必需重启IIS才行。

[Equn]

[Quote=引用 2 楼 zhuyongzhao 的回复:]
Function getHTTPPage(url)
dim objXML
set objXML=server.createobject("MSXML2.XMLHTTP")'定义
objXML.open "POST",url,false'打开
objXML.send()'发送
If objXML.readystate =4 then '判断文档是否已经解析完，以做客户端接受返回消息
if objXML.status=0 or objXML.status=200 then
getHTTPPage=BytesToBstr(objXML.responseBody)'返回信息，同时用函数定义编码
…
[/Quote]

一样的。

[Equn]

[Quote=引用 3 楼 ttt2 的回复:]
if err.number <>0 then err.Clear 把这句去啦,在看看有没有on error resume next语句注释掉试试
[/Quote]

调试时，注释掉on error resume next语句后。这句就无用了。

[Equn]

up

[搬运工865]

on error resume next 加一个错误处理吧~~