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

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

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

　　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