ASP处理查询超时的解决函数

来源:互联网 时间:1970-01-01

通常用于ASP查询超时,做出超时提示,稍候重试的功能。主要应用了Response IsClientConnected这个关键代码..

IsClientConnected 属性只读,它指示自上次调用 Response.Write 之后,客户端是否与服务器相连。

该属性允许用户在客户端与服务器没有连接的情况下有更多的控制。例如,在从客户端提出请求起到服务器作出响应,其间要用去很长一段时间的情况下,这就可能有助于确保在继续处理脚本之前客户端仍是连通的。

Response IsClientConnected 属性可以在ASP运行之时,可以对服务端与客气端是否断开连接作出判断并返回true or false。这样也避免用户在访问较占用资源的页面时,因为用户的重新刷新或关闭页面时,服务端程序还在继续执行,而导致服务器资源没有被即时释放。

if IsConnectedAfter(10) then
Response.Write "<p class=itxt>查询超时,请稍后重试!</p>"
Response.End
End If

函数如下:

Function IsConnectedAfter(Seconds)
Dim StartTime
Dim PauseTime

IsConnectedAfter = True
StartTime = Now

Do While DateDiff("s", StartTime, Now) < Seconds
PauseTime = Now
Do While DateDiff("s", PauseTime, Now) < 1
'Do Nothing
Loop
Response.Write ""
If Response.IsClientConnected = False then
IsConnectedAfter = False
Exit Function
End If

Loop
End Function

相关阅读:
Top