如何做一个文本书写器?_编程10000问教程-查字典教程网
如何做一个文本书写器?
如何做一个文本书写器?
发布时间:2016-12-29 来源:查字典编辑
摘要:

<%

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:intelsTest1.txt", "中国水利水电出版社(www.waterpub.com.cn)——全国优秀出版社", True

WriteToFile "C:intelsTest2.txt", "中国水利水电出版社(www.waterpub.com.cn)——全国优秀出版社", false

WriteToFile "C:intelsTest1.txt", chr(13) & chr(10) & "随风起舞(www.intels.net)——时尚咨询的个人网站", true

WriteToFile "C:intelsTest2.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>

相关阅读
推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
  • 大家都在看
  • 小编推荐
  • 猜你喜欢
  • 最新编程10000问学习
    热门编程10000问学习
    编程开发子分类