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方法来提取文件的特定部分并将其保存为磁盘。