有时候使用 ASP 的 Scripting.FileSystemObject 对象来保存文件,会受到服务器的安全限制,在保存.asp文件时没有权限而失败。这时可以尝试使用ADODB.Stream对象来保存文件。
<%
' 保存文本文件
Function SaveEncodedTextFile(sFilePath, sCharset, s)
Dim oStream
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"
End If
On Error Goto 0
End If
oStream.Open
oStream.WriteText s
' 2 - adSaveCreateOverwrite
On Error Resume Next
oStream.SaveToFile sFilePath, 2
If Err.number <> 0 Then
SaveEncodedTextFile = False
Else
SaveEncodedTextFile = True
End If
On Error Goto 0
Set oStream = Nothing
End Function
%>