当前位置：主页 > 查看内容

如何做一个文本书写器？

发布时间：2021-04-16 00:00| 有 位朋友查看

简介：% function WriteToFile(FileName, Contents, Append) on error resume next if Append = true then iMode = 8 else iMode = 2 end if set oFs = server.createobject("Scripting.FileSystemObject") set oTextFile = oFs.OpenTextFile(FileName, iMode, Tru……

<%
function WriteToFile(FileName, Contents, Append)
on error resume next

if Append = true then
  iMode = 8
else
  iMode = 2
end if
set oFs = server.createobject("Scripting.FileSystemObject")
set oTextFile = oFs.OpenTextFile(FileName, iMode, True)
oTextFile.Write Contents
oTextFile.Close
set oTextFile = nothing
set oFS = nothing

end function

%>

<html>
<body>

<%
WriteToFile "C:\intels\Test1.txt", "中国水利水电出版社（www.waterpub.com.cn）——全国优秀出版社", True
WriteToFile "C:\intels\Test2.txt", "中国水利水电出版社（www.waterpub.com.cn）——全国优秀出版社", false
WriteToFile "C:\intels\Test1.txt", chr(13) & chr(10) & "随风起舞（www.intels.net）——时尚咨询的个人网站", true
WriteToFile "C:\intels\Test2.txt", chr(13) & chr(10) & "随风起舞（www.intels.net）——时尚咨询的个人网站", false

'Test1.txt contains:
' 中国水利水电出版社（www.waterpub.com.cn）——全国优秀出版社
' 随风起舞（www.intels.net）——时尚咨询的个人网站

'Test2.text contains:
' 随风起舞（www.intels.net）——时尚咨询的个人网站
%>
Write to File test is complete
</body></html>


本文转载自网络，原文链接：https://m.jb51.net/article/4714.htm
本站部分内容转载于网络，版权归原作者所有，转载之目的在于传播更多优秀技术内容，如有侵权请联系QQ/微信：153890879删除，谢谢！
上一篇：如何创建Word文件？ 下一篇：如何显示一个文本文件？

推荐图文

  • 周排行
  • 月排行
  • 总排行

随机推荐