ASP Source Code: iaspexecvb.asp

   ASP Script
   Comments
   HTML and Text

<%@ LANGUAGE=VBScript %>
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title></title>
<bgsound src="License.txt" loop="1">
</head>

<body bgcolor="#FFFF00">

<p align="center"><img src="Hc_bird.gif" width="387" height="133"><font
color="#FF00FF" size="6" ><em>iASP AspExec system</em></font></p>


<%  if (Request.form("application") = "") or (request.form("option")="") then %>
<p align="left"><font color="#000000" size="5" ><em>Please
enter parameters:</em></font></p>
<form action="iaspexec-vb.asp" method=post>
<p align="center"><font color="#000000" size="4" ><strong>Application:</strong></font>
<input type="text" size="24" name="application"></p>

<p align="center"><strong>Parameters:</strong><input type="text"
size="28" name="parameters"> </p>

     <p align="center"><strong>Timeout:</strong><input type="text"
     size="31" name="timeout"></p>
<p align="center"><strong>Please option enter 1 or 2 or 3:(1=ExecuteDosApp,
   2=ExecuteWinApp,3=ExecuteWinAppAndWait)</strong>
   <input type="text"size="28" name="option"> </p>

      <p align="center"> <input type="submit" name="B2"
     value="Enter"> <input type="reset" name="B1" value="Reset"></p>
</form>

<%  else
      dim option1,strResult
      Set Executor = Server.CreateObject("ASPExec.Execute")
      Executor.Application =request.form("application")
      Executor.Parameters =request.form("parameters")
     
      option1=request.form("option")
      if option1=1 then
      strResult = Executor.ExecuteDosApp
      else if option1=2 then
      strResult = Executor.ExecuteWinApp
           else Executor.Timeout=request.form("timeout")
           strResult = Executor.ExecuteWinAppAndWait
           end if
      end if
%>

<p align="left"><font color="#000000" size="5" ><em>
Execute Result:</em></font></p>

<%
    Response.Write "<pre>" & strResult & "</pre>"
    end if
%>   

</body>
</html>


Copyright © 1998-2002, Halcyon Software Inc. All rights reserved.