Microsoft VBScript 运行时错误 错误 '800a0005' 无效的过程调用或参数

[bnabinge]

Microsoft VBScript 运行时错误 错误 '800a0005'

无效的过程调用或参数

F:\SITE\BINGE_CONTROL\NEWS\../../InterFace/Refresh_Function.asp，行 552


Sub FSOSaveFile(f_Content,f_LocalFileName)
Dim f_FILE_OBJ,f_FILE_PIONTER_OBJ
Set f_FILE_OBJ = Server.CreateObject(G_FS_FSO)
Set f_FILE_PIONTER_OBJ = f_FILE_OBJ.CreateTextFile(Server.MapPath(f_LocalFileName),True)
f_FILE_PIONTER_OBJ.Write f_Content 'Replace(f_Content,Webdomain,"") 552行
f_FILE_PIONTER_OBJ.Close
Set f_FILE_PIONTER_OBJ = Nothing
Set f_FILE_OBJ = Nothing
End Sub

这是什么问题呀

[liuwei_IT_love]

<%
Sub FSOSaveFile(f_Content,f_LocalFileName)
Dim f_FILE_OBJ,f_FILE_PIONTER_OBJ
Set f_FILE_OBJ = Server.CreateObject("Scripting.FileSystemObject")//改成这试试
Set f_FILE_PIONTER_OBJ = f_FILE_OBJ.CreateTextFile(Server.MapPath(f_LocalFileName),True)
f_FILE_PIONTER_OBJ.Write f_Content 'Replace(f_Content,Webdomain,"") 552行
f_FILE_PIONTER_OBJ.Close
Set f_FILE_PIONTER_OBJ = Nothing
Set f_FILE_OBJ = Nothing
End Sub
%>

[liuwei_IT_love]

这好像是文件操作对象的创建方法

[bnabinge]

还是不行

[bnabinge]

Set f_FILE_PIONTER_OBJ = f_FILE_OBJ.CreateTextFile(Server.MapPath(f_LocalFileName),True,true)
我把这多加了个True就没事 ....

[bnabinge]

原来是编码问题。。。。