fso向文件写汉字时的问题

[deninghe]

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objWriteText = objFSO.OpenTextFile(strFile,2,True)
objWriteText.WriteLine(strContent)
－－－－－－－－－－
当strContent中有汉字时会产生如下错误：
Microsoft VBScript 运行时错误 错误 '800a0005'
无效的过程调用或参数
--------objWriteText.WriteLine(strContent)
是不是IIS的问题，请问如何解决？

[z109876543210]

set oStream = Server.CreateObject("adodb.stream")
试下这个，兼容好

[hookee]

加个参数0,用ascii方式打开试试看
Set objWriteText = objFSO.OpenTextFile(strFile,2,True,0)

[deninghe]

又经测试如下文件保存到另一文件1.asp竟能正确保存
看来不是IIS或者FSO的问题
郁闷
xmlbody="<?xml version=""1.0"" encoding=""GB2312""?>"
xmlbody=xmlbody&"<rss version=""2.0"">"
xmlbody=xmlbody&"<channel>"
xmlbody=xmlbody&"<title>游友网-旅游信息</title>"
xmlbody=xmlbody&"<image><title>www.59766.com</title><link>http://www.59766.com</link><url>http://www.59766.com/peruser/images/logo.gif</url></image>"
xmlbody=xmlbody&"<description>信息资讯中心</description>"
xmlbody=xmlbody&"<link>http://www.59766.com/</link>"
xmlbody=xmlbody&"<language>zh-cn</language>"
xmlbody=xmlbody&"<docs>http://www.59766.com/index.htm</docs>"
xmlbody=xmlbody&"<generator>WWW.59766.COM</generator>"
xmlbody=xmlbody&"<ttl></ttl>"
filename=Server.MapPath("/today.xml")
w2f filename, xmlbody, false

Sub w2f(strFile, strContent, blnAppend)
' strFile 文件名(路径) , strContent 写入的内容, blnAppend 是否追加
'On Error Resume Next
'response.write strContent
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If blnAppend Then
Set objWriteText = objFSO.OpenTextFile(strFile,8,True)
Else
Set objWriteText = objFSO.OpenTextFile(strFile,2,True)
End If
'response.write VarType(objWriteText)
objWriteText.WriteLine(strContent)

Set objWriteText = Nothing
Set objFSO = Nothing

End sub

[cloudgamer]

编码问题