41 lines
996 B
Plaintext
41 lines
996 B
Plaintext
<%@ LANGUAGE="VBSCRIPT" %>
|
|
|
|
<HTML>
|
|
<HEAD>
|
|
<META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
|
|
<META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
|
|
<TITLE>Queue List Page</TITLE>
|
|
</HEAD>
|
|
<BODY>
|
|
|
|
<A HREF="Default.asp">[Home]</A>
|
|
<H1>MSMQ ASP Sample Queue List</H1>
|
|
<TABLE BORDER = 2>
|
|
<TR>
|
|
<TD><B>Machine Name</B></TD>
|
|
<TD><B>Queue Name</B></TD>
|
|
<TD><B>Open</B></TD>
|
|
<TD><B>Delete</B></TD>
|
|
|
|
<% Set query=CreateObject ( "MSMQ.MSMQQuery" )
|
|
Set qinfos=query.LookupQueue
|
|
qinfos.reset
|
|
set qinfo=qinfos.next
|
|
while Not qinfo is Nothing
|
|
%>
|
|
<TR>
|
|
<TD><%= Left ( qinfo.PathName, Instr ( qinfo.PathName, "\" ) - 1) %></TD>
|
|
<TD><%= Right ( qinfo.PathName, Len ( qinfo.PathName ) - Instr ( qinfo.PathName, "\" )) %></TD>
|
|
<TD><A HREF="openq2.asp?QueuePath=<%= qinfo.PathName %>">Open</A></TD>
|
|
|
|
<TD><A HREF="deleteq2.asp?QueuePath=<%= qinfo.PathName %>">Delete</A></TD>
|
|
|
|
</TR>
|
|
<% set qinfo=qinfos.next
|
|
Wend %>
|
|
|
|
</TABLE>
|
|
|
|
</BODY>
|
|
</HTML>
|