1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
|
' Set start information.
Dim start_info As New ProcessStartInfo
start_info.FileName = Server.MapPath("CPF.EXE")
start_info.Arguments = RuleToPerform
start_info.UseShellExecute = False
start_info.CreateNoWindow = True
start_info.RedirectStandardOutput = True
start_info.RedirectStandardError = True
' Make the process and set its start information.
Dim proc As New Process()
proc.StartInfo = start_info
Dim url As String = "Report.htm"
Dim largeur As Integer = 400
Dim hauteur As Integer = 100
Dim x As Integer = 20
Dim y As Integer = 20
Response.Write("<body><script> popwin=window.open(""" & url & """,""_blank"",""width=" & largeur & ",height=" & hauteur & ",top=" & x & "resizable=yes,scrollbars=yes,left=" & y & """);</script></body>")
proc.Start()
While proc.StandardOutput.EndOfStream = False
Response.Write("<script>popwin.document.write('" & proc.StandardOutput.ReadLine() & "')</script>")
Response.Write("<script>popwin.focus</script>")
End While
proc.WaitForExit() |
Partager