关于一个操作CMD的例子

本来有一个完全的文件，但机器坏了。这部分是昨天写的。
部分函数要求2。0

 

<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" Debug="true" %>
<%@ import Namespace =namespace="system.Diagnostics"%>
<%@ import Namespace =namespace="system.IO"%>
<%@ import Namespace =namespace="System.ComponentModel"%>
<script runat="server">
   Sub page_load()sub page_load
       'Response.Expires=0
       'Dim returnValue As String
       'returnValue = Directory.GetCurrentDirectory
       'response.Write("本文件当前工作目录是:"& returnvalue &",("& server.MapPath(".") &")<p />")
   
       'Dim path As String
       'Dim creationTime As DateTime

       'Directory.SetCreationTime(path, creationTime)

       'read_comp() 
       'c_drvice()
   
   
       'set_writetime()        '调用修改属性的函数，

       'response.Write("<p />")
       'write_times()          '调用写文件
   end sub
   
    Sub c_drvice()Sub c_drvice()
            Dim allDrives() As DriveInfo = DriveInfo.GetDrives()
    
            Dim d As DriveInfo
            For Each d In allDrives
                response.Write("<p />  驱动器名: "& d.Name)
                response.Write("<p />  驱动器类型: " )
                if d.DriveType=1 then
                   response.write("此驱动器是一个 RAM 磁盘")
                elseif d.DriveType=2 then
                   response.write("此驱动器是一个固定磁盘")
                elseif d.DriveType=3 then
                   response.write("此驱动器是一个网络驱动器")
                elseif d.DriveType=4 then
                   response.write("此驱动器没有根目录。")
                elseif d.DriveType=5 then
                   response.write("此驱动器是一个光盘设备，如 CD 或 DVD-ROM")
                elseif d.DriveType=6 then
                   response.write("此驱动器是一个可移动存储设备，如软盘驱动器或 USB 闪存驱动器")
                elseif d.DriveType=7 then
                   response.write("驱动器类型未知")
                else
                   response.write("驱动器类型未知")
                end if
                If d.IsReady = True Then
                    response.Write("<p />  获取或设置驱动器的卷标: "& d.VolumeLabel)
                    response.Write("<p />  文件系统: "& d.DriveFormat)
                    response.write("<p />可用空间:"& d.AvailableFreeSpace/1024/1024/1024 &" G" )
                    response.Write("<p />  驱动器上的可用空闲空间总量:"& d.TotalFreeSpace/1024/1024/1024 &" G")
                    response.Write("<p />  驱动器上存储空间的总大小: "& d.TotalSize/1024/1024/1024 &" G <hr />")
                End If
          Next
    End Sub
   
   
   
   
   Sub set_writetime()Sub set_writetime()
      Dim n As String = "C:\cctv\新建 文本文档.txt"
      'Create two variables to use to set the time.
      Dim dtime1 As New DateTime(2002, 1, 3)
      Dim dtime2 As New DateTime(1999, 1, 1)
      
      'Create the directory.
      Try
         Directory.CreateDirectory(n)
      Catch e As IOException
         response.Write(e.tostring())
      End Try
      
      'Set the creation and last access times to a variable DateTime value.
      Directory.SetCreationTime(n, dtime1)
      Directory.SetLastAccessTimeUtc(n, dtime1)
      
      response.Write("<p />创建时间: "& Directory.GetCreationTime(n))
      response.Write("<p />UTC创建时间: "& Directory.GetCreationTimeUtc(n))
      response.Write("<p />最后访问时间是: "& Directory.GetLastWriteTime(n))
      response.Write("<p />UTL的最后访问时间: "& Directory.GetLastWriteTimeUtc(n))
      response.Write("<p />最后通过时间:"& Directory.GetLastAccessTime(n))
      response.Write("<p />UTC最后通过时间: "& Directory.GetLastAccessTimeUtc(n))
      
            
      'Set the last write time to a different value.
      Directory.SetLastWriteTimeUtc(n, dtime2)
      Console.WriteLine("Changed last write time: {0}", Directory.GetLastWriteTimeUtc(n))
   End Sub   
   
   
   Sub write_times()sub write_times()
        Try
            Dim path As String = "C:\sqj"
            If Directory.Exists(path) = False Then
                Directory.CreateDirectory(path)
            Else
                ' Take an action that will affect the write time.
                Directory.SetLastWriteTime(path, New DateTime(1985, 4, 3))
            End If
            
            response.write("<p />目录的创建日期和时间："& directory.GetCreationTime(path) &"<p />")

            'Get the last write time of a well-known directory.
            Dim dt As DateTime = Directory.GetLastWriteTime(path)
            response.Write("这个目录的最后写入时间是 "& dt &"")

            'Update the last write time.
            Directory.SetLastWriteTime(path, DateTime.Now)
            dt = Directory.GetLastWriteTime(path)
            response.Write("目录最的写入时间是 "& dt &"")

        Catch e As Exception
            response.Write("The process failed: "& e.ToString())
        End Try
    End Sub
   
   
   
   Function read_comp()function read_comp()    '取得盘符列表函数

       Dim returnValue As String()
       returnValue = Directory.GetLogicalDrives   '取得盘符列表，返回以数组形式
       dim i as integer=0
       for i=0 to ubound(returnValue)
           response.Write(returnValue(i))
       next

   end function
   
   Sub enter_click()sub enter_click(s as object,e as eventargs)
   
       try
        Dim myProcess As New Process()
        'Dim myProcessStartInfo As New ProcessStartInfo("cmd.exe")
        Dim myProcessStartInfo As New ProcessStartInfo("cmd.exe")
        myProcessStartInfo.UseShellExecute = False
        myProcessStartInfo.RedirectStandardOutput = true
        myProcess.StartInfo = myProcessStartInfo
        myprocessstartinfo.WorkingDirectory="c:\"
        myProcessStartInfo.Arguments="/c "& cmd_message.text
        myProcess.Start()
        Dim myStreamReader As StreamReader = myProcess.StandardOutput
        Dim myString As String = myStreamReader.Readtoend()
        myProcess.Close()
        result.text="<pre>"& cmd_message.text &":" & vbcrlf & "" & mystring & ".<br /></pre>"      
      catch exp as exception
        response.write(exp.tostring())
      end try
   
   end sub
</script>
<html>
<head>
  <title>操作服务器端的CMD</title>
  <style type="text/css">
     body{font-size:12px;}
     .div1{width:778px; margin:0 auto; border:#eaeaea dashed 1px;list-style: none; }
     ul{ul{list-style:none; margin-top:0px; text-align:left;} }
     li{margin:0px;}
  </style>
</head>
<body>
<asp:Label runat="server" ID="result" />

<form runat="server">
<div Class =class="div1">
   <ul>
     <li>dfgdf</li>
   </ul>

</div>
    <asp:TextBox runat="server" ID="cmd_message" />
    <asp:button runat="server" Text="执行" OnClick="enter_click" />
    
<!--input 禁止输入中文的文本框  onkeyup="value=value.replace(/[\W]/g,'')" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))"-->     
</form>
</body>
</html>