|
在運用程序中 MSMQ 可以有很多的運用，但是最普遍的運用是卸載另一個線程中的進程。 ( 例如和 MSMQ 在同一臺機器上的 IIS) 或則是另外一臺機器上的 IIS. 通過卸載這些阻塞的進程，就能夠使得 ASP 程序能夠繼續運行下去了。
一般來說，判斷是否需要卸載任務進程要做兩件事：
一是根據該進程運行的時間。
二是根據用戶是否有回應（例如聊天室里面某個用戶幾個小時都沒說話了）。
例如：如果服務端的一個 Web 網頁的任務花費了太長的時間 , 用戶會得到一個網頁超時的錯誤信息，我們一般可以通過重新單擊刷新或者簡單的放棄這個網頁。但現在可以改變一下處理方式，例如進行后臺處理，而不是簡單的靠增加處理網頁的時間方式。要知道，后臺處理方式也能夠提高網站性能的。
MSMQ 還有一個功能，就是能夠控制消息的 body 中特定的一個 COM 對象。只要該對象支持 IDispatch 和 IPersist (IPersistStream or IPersistStorage ) 接口就行。
其中最常用的，能支持的兩個就是 ADODB.Recordset ( 或 ADOR.Recordset ) 和 Word.Document 。在下面我們舉一個處理 ADODB.Recordset 例子。
例：如何處理 ADODB.Recordset ：
Public Sub SendRecordsetInMessage()
Dim objQInfo As New MSMQ.MSMQQueueInfo
Dim objQSend As MSMQ.MSMQQueue
Dim objMessage As New MSMQ.MSMQMessage
Dim objRS As New ADOR.Recordset
Dim a As New MSMQQueue
With objRS
.CursorLocation = adUseClient
.Fields.Append "FN", adVarChar, 25
.Fields.Append "LN", adVarChar, 25
.Open
.AddNew
.Fields("FN") = "Chris"
.Fields("LN") = "Blexrud"
.Update
.AddNew
.Fields("FN") = "Shayna"
.Fields("LN") = "Blexrud"
.Update
End With
objQInfo.PathName = ".\test"
Set objQSend = objQInfo.Open(MQ_SEND_ACCESS, MQ_DENY_NONE)
objMessage.Label = "Recordset State!!!!"
objMessage.Body = objRS
objMessage.Send objQSend
objQSend.Close
Set objQInfo = Nothing
Set objQSend = Nothing
Set objMessage = Nothing
Set objRS = Nothing
End Sub
了解了 MSMQ 么？我想現在對于 ASP 的進程死鎖，你已經有了很好的解決方法了吧！希望大家能通過以上文字，真正了解 MSMQ ，及通過 MSMQ 控制 ASP 進程的方法！
|
