源码网商城,靠谱的源码在线交易网站 我的订单 购物车 帮助

源码网商城

如何做一个文本书写器?

  • 时间:2020-07-12 12:12 编辑: 来源: 阅读:
  • 扫一扫,手机访问
摘要:如何做一个文本书写器?
<% 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>
  • 全部评论(0)
联系客服
客服电话:
400-000-3129
微信版

扫一扫进微信版
返回顶部