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.

108 lines
1.8 KiB

  1. <%
  2. @LANGUAGE = VBScript
  3. %>
  4. <HTML>
  5. <HEAD>
  6. <META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
  7. <META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
  8. <TITLE>MSMQ ASP Lab Home Page</TITLE>
  9. <SCRIPT LANGUAGE="VBScript" >
  10. Sub CreateQ
  11. document.all.form1.action="createq.asp"
  12. document.all.form1.submit
  13. End Sub
  14. Sub OpenQ
  15. document.all.form1.action="openq.asp"
  16. document.all.form1.submit
  17. End Sub
  18. Sub SendMsg
  19. document.all.form1.action="sendmsg.asp"
  20. document.all.form1.submit
  21. End Sub
  22. Sub RecvMsg
  23. document.all.form1.action="recvmsg.asp"
  24. document.all.form1.submit
  25. End Sub
  26. Sub CloseQ
  27. document.all.form1.action="closeq.asp"
  28. document.all.form1.submit
  29. End Sub
  30. Sub DeleteQ
  31. document.all.form1.action="deleteq.asp"
  32. document.all.form1.submit
  33. End Sub
  34. Sub ListQ
  35. document.all.form1.action="listq.asp"
  36. document.all.form1.submit
  37. End Sub
  38. </SCRIPT>
  39. </HEAD>
  40. <BODY>
  41. <H1>MSMQ ASP Sample Home Page</H1>
  42. <FORM ID=form1 METHOD="GET">
  43. <TABLE>
  44. <TR>
  45. <TD COLSPAN=3>
  46. <INPUT TYPE=Button VALUE="List Queues" onclick=ListQ>
  47. </TD>
  48. </TR>
  49. <TR>
  50. <TD>Queue Name</TD>
  51. <TD>
  52. <INPUT TYPE=Text VALUE="<%=Session ("qname")%>" NAME="QNAME">
  53. </TD>
  54. </TR>
  55. <TR>
  56. <TD>Machine Name</TD>
  57. <TD>
  58. <INPUT TYPE=Text VALUE="<%=Session ("mname")%>" NAME="MACHNAME">
  59. </TD>
  60. </TR>
  61. <TR>
  62. <TD>
  63. <INPUT TYPE=Button VALUE="Create Queue" onclick=CreateQ >
  64. </TD>
  65. <TD>
  66. <INPUT TYPE=Button VALUE="Delete Queue" onclick=DeleteQ>
  67. </TD>
  68. </TR>
  69. <TR>
  70. </TR>
  71. <TR>
  72. <TD>
  73. <INPUT TYPE=Button VALUE="Open Queue " onclick=OpenQ>
  74. </TD>
  75. <TD>
  76. <INPUT TYPE=Button VALUE="Close Queue " onclick=CloseQ>
  77. </TD>
  78. </TR>
  79. <TR>
  80. </TR>
  81. <TR>
  82. <TD>
  83. <INPUT TYPE=Button VALUE="Send Message" onclick=SendMsg>
  84. </TD>
  85. <TD><INPUT TYPE=Text VALUE="" NAME="SendMsgText"></TD>
  86. </TR>
  87. <TR>
  88. <TD>
  89. <INPUT TYPE=Button VALUE="Recv Message" onclick=RecvMsg>
  90. </TD>
  91. </TR>
  92. </TABLE>
  93. </FORM>
  94. </BODY>
  95. </HTML>