A!SP处理查询超时的解决函数

 　　IsClient

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

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

　　if IsConnectedAfter(10) then

　　Response.Write "

"

　　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