ASP SaveToDisk方法需要很多時間

Question

這是ASP Classic中將文件保存到磁盤的一種方法。這需要很長時間，但我不知道爲什麼。通常情況下，我不介意這麼多，但它處理的文件非常大，所以需要這個需求比100kB快一秒的存儲。嚴重緩慢。 （舊的遺留系統，創可貼修復，直到它被替換...）

Public Sub SaveToDisk(sPath) 
     Dim oFS, oFile 
     Dim nIndex 

     If sPath = "" Or FileName = "" Then Exit Sub 

     If Mid(sPath, Len(sPath)) <> "\" Then sPath = sPath & "\" '" 

     Set oFS = Server.CreateObject("Scripting.FileSystemObject") 
     If Not oFS.FolderExists(sPath) Then Exit Sub 

     Set oFile = oFS.CreateTextFile(sPath & FileName, True) 

     For nIndex = 1 to LenB(FileData) 
      oFile.Write Chr(AscB(MidB(FileData,nIndex,1))) 
     Next 

     oFile.Close 
    End Sub 

我這麼問是因爲有很多WTF的在這個代碼，所以我打的火災而獲得這些的人一些幫助。

Answer 1

我沒有在代碼中的任何地方看到「FileData」的定義 - 這是從哪裏來的？你是否有理由一次將它寫入磁盤一個字符？我懷疑這是你的問題 - 編寫100K的數據需要100K次循環，這可能是你減速的原因。用一個語句來一次全部寫入文件

For nIndex = 1 to LenB(FileData) 
    oFile.Write Chr(AscB(MidB(FileData,nIndex,1))) 
Next 

：你爲什麼不能更換底部的寫循環？

oFile.Write FileData 

Answer 2

你應該做的是閱讀的二進制請求轉換成ADODB.Stream對象並將其轉換爲ASCII純文本在一個快速的一步。

Set objStream = Server.CreateObject("ADODB.Stream") 

    objStream.Type = 1 
    objStream.Open 
    objStream.Write Request.BinaryRead(Request.TotalBytes) 
    objStream.Position = 0 
    objStream.Type = 2 
    objStream.Charset = "ISO-8859-1" 

    FormData = objStream.ReadText 

    objStream.Close 

Set objStream = Nothing 

請注意，變量FormData現在如何將表單數據包含爲文本。然後解析這些文本並找到每個文件的開始和長度，並使用ADODB.Stream CopyTo方法來提取文件的特定部分並將其保存爲磁盤。