分享你我的心得.
共乘一片美好网络.

关于Microsoft.xmlhttp send 永无响应的奇怪问题

服务器是 win2016 iis asp 属性中勾了 启用服务器端测试  和 启用客户端测试  改为true  结果原来正常的程序 调用send 方法时,一直永无反应,还造成了 iis宕机,真是郁闷到极点。当时是网上查阅了http://bbs.csdn.net/topics/290003905 才搞明白,但上面说的是2003后来参考win2008 选项才知道怎么设置

这影响到生成页面函数,如下测试代码

<%Function GetURL(URL)
'下载主函数
const TimeInterval=60
'设定时间间隔
'如果下载时间很慢,就写成120秒
'Response.LCID=2052
const lResolve=6
'解析域名超时时间,秒
const lConnect=6
'连接站点超时时间,秒
const lSend=6
'发送数据请求超时时间,秒
const lReceive=40
'下载数据超时时间,秒
on error resume Next
Dim http
Set http = Server.CreateObject("Msxml2.ServerXMLHTTP")
http.setTimeouts lResolve*1000,lConnect*1000,lSend*1000,lReceive*1000
http.Open "GET",URL,False
http.Send
Select Case http.readyState
Case 0
GetURL="对象初始化失败"
Err.Clear
set http=nothing
Exit Function
Case 1
GetURL="域名分析超时/连接站点超时"
Err.Clear
set http=nothing
Exit Function
Case 2
GetURL="发送数据请求超时,是不是服务器出故障了"
Err.Clear
set http=nothing
Exit Function
Case 3
GetURL="数据下载超时/等待反馈时间超时"
Err.Clear
set http=nothing
Exit Function
Case 4
'下载成功
End Select
If http.status<>200  then
GetURL="下载失败"&Err.description
Err.Clear
set http=nothing
Exit Function
END IF
If http.status="200" then
GetURL=http.ResponseText
'GetURL=SaveFile()
End If
set http=nothing
End Function
%>
未经允许不得转载:小叶白龙博客 » 关于Microsoft.xmlhttp send 永无响应的奇怪问题
分享到: 更多 (0)

评论 抢沙发

评论前必须登录!

 

辽ICP备15008671号-1