<div style="text-indent: 2em;">
有时候使用 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 %>