Source code of Windows XP (NT5)
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

33 lines
974 B

  1. <%@ LANGUAGE="VBSCRIPT" %>
  2. <HTML>
  3. <HEAD>
  4. <META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
  5. <META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
  6. <TITLE>MSMQ ASP Sample Close Queue Page</TITLE>
  7. </HEAD>
  8. <BODY>
  9. <H1>MSMQ ASP Sample Close Queue Page</H1>
  10. <H2>Closing open queue<br>
  11. <% Set qs=Session ( "SendQueue" )
  12. Set qr=Session ( "RecvQueue" )
  13. on error resume next
  14. qs.Close
  15. if err.number <> 0 then
  16. response.write "<font color=""#FF0000"">Error</font> closing send handle: 0x" & Hex(Err.Number) & " - " & Err.Description & "<br><br>"
  17. else
  18. on error resume next
  19. qr.Close
  20. if err.number <> 0 then
  21. response.write "<font color=""#FF0000"">Error</font> closing receive handle: 0x" & Hex(Err.Number) & " - " & Err.Description & "<br><br>"
  22. else
  23. response.write "Queue closed.<br>"
  24. end if
  25. end if
  26. Set Session ( "SendQueue" )=Nothing
  27. Set Session ( "RecvQueue" )=Nothing
  28. %>
  29. </H2>
  30. <A HREF="Default.asp">[Home]</A>
  31. </BODY>
  32. </HTML>