以前收集的一些資料---在ASP中使用MSMQ解決進程死結問題。

來源:互聯網
上載者:User
解決|進程|問題             在ASP中使用MSMQ
當ASP程式因為某個進程花費了過長的時間而導致在用戶端到期時,
當訪問者已經放棄了對你的網站的訪問而離開去了別的網站時。
或則你的伺服器上阻塞了大量的死隊列時,錯誤"Server is too busy"
發生了。
當你在設計網站的過程中碰到這些問題時,一個解決辦法就是使用
Microsoft Message Queue (MSMQ)來結束這些進程。

Microsoft Message Queue 的基本介紹:
MSMQ (代號又叫"Falcon") 是運行在Windows NT的服務,它提供運用程式之間
的非同步通訊。你可以在NT4 Option Pack中找到它。
MSMQ的基本概念非常的簡單:它可以被看成是運用程式之間的email.
一個訊息被打包到一個特定類型的容器中,並把這個訊息儲存到一個用與特別
作用的隊列中直到收信者接受該訊息為止。
這些隊列能夠確保MSMQ的傳送,而不管當前網路連接的狀況如何。
象所有的電子郵件一樣,MSMQ訊息有一個寄件者和一個接收者,其中的接收者
應該能夠訪問隊列。一個單一隊列中的一個單獨訊息,它擁有
多個接受者例如respinder。而訊息的寄件者通常是Web Server(IIS) 。

MSMQ也能夠和其他訊息系統進行通訊。例如:
Sun Solaris, HP-UNIX,OS/2, VMS, AS/400平台
象其他的BackOffice服務一樣,MSMQ有一個COM API ( mqoa.dll ) 提供給開發人員開發
程式。其中最常用的三個類為: MSMQQueueInfo, MSMQQueue, MSMQMessage.

MSQMQueueInfo
MSMQQueueInfo允許你建立,開啟,刪除隊列中的訊息.要和隊列建立聯絡首先需要設定
PathName,這是一個命名隊列的屬性,它告訴MSQM是哪台機器上的隊列。
    <%
     Dim objQueueInfo
     Dim objQueue
     Set objQueueInfo=Server.CreateObject("MSMQ.MSMQQueueInfo")
     objQueue.PathName = ".\MyQueue"
     Set objQueue = objQueueInfo.Open(MQ_SEND_ACCESS, MQ_DENY_NONE)
    %>
上面的代碼開啟一個叫MyQueue的本地隊列.如果隊列在另外一台伺服器上,代碼應該是這樣的
    objQueue.PathName = "SomeOtherComputer\MyQueue"
開啟隊列中有兩個參數:Access和ShareMode. Access表示將要對隊列執行什麼操作。
一般有三個操作:
MQ_PEEK_ACCESS (32), MQ_RECEIVE_ACCESS (1), MQ_SEND_ACCESS (2).
MQ_PEEK_ACCESS用來在特定的隊列中尋找訊息。但對該訊息不進行操作。
MQ_RECEIVE_ACCESS 用來在讀取隊列中的訊息後刪除它。
MQ_SEND_ACCESS is 用來在隊列中發送訊息,但不接收訊息.
注意的是使用開啟操作後返回了一個MSMQQueue對象.
下面是一個典型的建立和刪除操作:
    <%
     Dim objQueue
     Set objQueue = Server.CreateObject("MSMQ.MSMQQueueInfo")
     objQueue.PathName = ".\MyQueue"
     objQueue.Create
    %>

    <%
     Dim objQueue
     Set objQueue = Server.CreateObject("MSMQ.MSMQQueueInfo")
     objQueue.PathName = ".\MyQueue"
     objQueue.Delete
    %>

MSMQQueue
MSMQQueue類用來描述一個在MSMQ服務中開啟的隊列。該類提供了一個用來
在指標隊列中的訊息進行迴圈的功能。你不能夠開啟一個使用了MSMQQueue類的隊列
要這麼幹只能夠使用MSQMQueueInfo,見上
雖然許多ASP運用程式通常使用MSMQ來發訊息,但是很多時候也需要ASP來顯示這個訊息的具體內容。
擷取訊息的方式有兩種:同步方式,非同步方式,但是ASP只能夠使用同步方式。
這是因為ASP不能夠在服務端申明一個WithEvents變數。
下面先舉一個非同步方式使用MSMQ的例子(僅VB中)
  Option Explicit
  Dim m_objQueueInfo As New MSMQQueueInfo
  Dim m_objQueue As MSMQQueue
  Dim WithEvents m_objMSMQEvent As MSMQEvent

  Private Sub Form_Load()
    m_objQueueInfo.PathName = ".\MyQueue"
    m_objQueueInfo.Label = "My Sample Queue"
    On Error Resume Next
    m_objQueueInfo.Create
    On Error GoTo 0
    Set m_objQueue = m_objQueueInfo.Open(MQ_RECEIVE_ACCESS, MQ_DENY_NONE)

    Set m_objMSMQEvent = New MSMQEvent
    m_objQueue.EnableNotification m_objMSMQEvent, MQMSG_CURRENT, 1000
  End Sub

  Private Sub m_objMSMQEvent_Arrived(ByVal Queue As Object, ByVal Cursor As Long)
    Dim m_objMessage As MSMQMessage
    Set m_objMessage = Queue.PeekCurrent
    MsgBox "Message Received: " & m_objMessage.Label
    m_objQueue.EnableNotification m_objMSMQEvent, MQMSG_NEXT, 10000
  End Sub

  Private Sub m_objMSMQEvent_ArrivedError(ByVal Queue As Object, ByVal ErrorCode As Long, ByVal Cursor As Long)
    MsgBox "Error accorded: " & ErrorCode
  End Sub
這段代碼首先建立一個隊列(如果它還不存在的話)。
然後m_objMSMQEvent對象通過調用EnableNotification串連到MSMQQueue對象.
一旦串連到MSMQEvent對象,接下來需要做的僅僅是完成Arrived和Arrived_Error (可選的)事件.
Arrived事件當一個新的訊息到達隊列時將被觸發
該事件返回兩個指標,一個是指向隊列中應該從來開始讀訊息的位置,另外一個是當前的位置。
如果發生錯誤,將觸發ArrivedError事件
當同步擷取訊息時,會一直等到訊息可擷取或則逾時時程式才會不被掛起。
代碼如下:



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。