这是 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,所以我正在扑灭这些大火,同时获得一些帮助。