ASP處理查詢逾時的解決函數

通常用於ASP查詢逾時，做出逾時提示，稍候重試的功能。主要應用了Response IsClientConnected這個關鍵代碼..

IsClientConnected 屬性唯讀，它指示自上次調用 Response.Write 之後，用戶端是否與伺服器相連。

該屬性允許使用者在用戶端與伺服器沒有串連的情況下有更多的控制。例如，在從用戶端提出請求起到伺服器作出響應，其間要用去很長一段時間的情況下，這就可能有助於確保在繼續處理指令碼之前用戶端仍是連通的。

Response IsClientConnected 屬性可以在ASP運行之時，可以對服務端與客氣端是否中斷連線作出判斷並返回true or false。這樣也避免使用者在訪問較佔用資源的頁面時，因為使用者的重新重新整理或關閉頁面時，服務端程式還在繼續執行，而導致伺服器資源沒有被即時釋放。

if IsConnectedAfter(10) then
Response.Write "<div class=itxt>查詢逾時，請稍後重試！</DIV>"
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