<div style="text-indent: 2em;">
在ASP中读取文本文件的方法。一种是用FileSystemObject,一种是用ADODB.Stream。
' 读取文本文件 Function ReadTextFile(sFilePath) Dim oFS, oFile, sFileContent Set oFS = Server.CreateObject("Scripting.FileSystemObject") ' 1 - ForReading ' -2 - TristateUseDefault 使用系统默认的格式打开文件 Set oFile = oFS.OpenTextFile(sFilePath, 1, False, -2)sFileContent = oFile.ReadAll Set oFile = Nothing Set oFS = Nothing ReadTextFile = sFileContent End Function ' 读取指定编码格式的文本文件 Function ReadEncodedTextFile(sFilePath, sCharset) Dim oStream, s s = "" Set oStream = Server.CreateObject("ADODB.Stream") ' 以文本模式读取 oStream.Type = 2 oStream.Mode = 3 If Len(sCharset) > 0 Then On Error Resume Next oStream.Charset = sCharset If Err.number <> 0 Then oStream.Charset = "_autodetect_all" 's = s & "指定的编码 " & sCharset & " 未得到 ReadEncodedTextFile() 函数的支持,已自动以 " & oStream.Charset & " 编码格式读取文件。" & vbCrLf & vbCrLf s = s & "The specified charset (" & sCharset & ") is not supported by Function ReadEncodedTextFile(), the charset specified is automatically changed to (" & oStream.Charset & ")." & vbCrLf & vbCrLf End If On Error Goto 0 End If oStream.Open oStream.LoadFromFile sFilePath s = s & oStream.ReadText oStream.Close Set oStream = Nothing ReadEncodedTextFile = s End Function