如何做一个文本书写器
我们有下面的的函数，可做“文本书写器”：
%
function WriteToFile(FileName, Contents, Append)
on error resume ne_t
if Append = true then
iMode = 8
else
iMode = 2
end if
set oFs = XXX("XXX")
set oTe_tFile = XXX(FileName, iMode, True)
XXX Contents
XXX
set oTe_tFile = nothing
set oFS = nothing
end function
%
HTML
BODY
%
WriteToFile "C:XXX", "中国XX（.cn）――全国优秀出版社", True
WriteToFile "C:XXX", "中国XX（.cn）――全国优秀出版社", false
WriteToFile "C:XXX", chr(13) chr(10) "随风起舞（）――时尚咨询的个人网站", true
WriteToFile "C:XXX", chr(13) chr(10) "随风起舞（）――时尚咨询的个人网站", false
'XXX contains:
'中国XX（.cn）――全国优秀出版社 '随风起舞（）――时尚咨询的个人网站
'XXX contains:
'随风起舞（）――时尚咨询的个人网站
%
Write to File test is complete
/BODY
/HTML