Sub fso_write(ByVal fpath, ByVal ftext) On Error Resume Next Dim fso, fout Set fso = Server.CreateObject("Scripting.FileSystemObject") 'Set fout = fso.CreateTextFile(Server.MapPath(fpath)) Set fout = fso.CreateTextFile(Server.MapPath(fpath), True, true) 'CreateTextFile(Filename,overwrite,unicode)overwrite:表示是否可覆盖,逻辑型默认假 unicode:是否为双字节的统一码,逻辑型默认假为ASCII fout.write ftext fout.Close Set fout = Nothing Set fso = Nothing If Err Then Call client_alert("创建文件失败,可能是您的服务器不支持FSO权限而导致的!", "?type=manage") End If End Sub