如何做一個文本書寫器？
<%
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）——全國優(yōu)秀出版社", True
WriteToFile "C:\intels\Test2.txt", "中國水利水電出版社（www.waterpub.com.cn）——全國優(yōu)秀出版社", false
WriteToFile "C:\intels\Test1.txt", chr(13) & chr(10) & "隨風起舞（www.intels.net）——時尚咨詢的個人網(wǎng)站", true
WriteToFile "C:\intels\Test2.txt", chr(13) & chr(10) & "隨風起舞（www.intels.net）——時尚咨詢的個人網(wǎng)站", false
'Test1.txt contains:
' 中國水利水電出版社（www.waterpub.com.cn）——全國優(yōu)秀出版社
' 隨風起舞（www.intels.net）——時尚咨詢的個人網(wǎng)站
'Test2.text contains:
' 隨風起舞（www.intels.net）——時尚咨詢的個人網(wǎng)站
%>
Write to File test is complete
</body></html>
相關文章
這篇文章主要介紹了分析概述IPv6與IPv4區(qū)別，通過給大家舉例IPv6與IPv4在我們網(wǎng)絡生活工作中的運用，來給大家做出簡要的分析概述，希望可以對大家有所幫助2021-08-08
如何用表單在線建立目錄？...2006-11-11
如何控制彈出一個NTLM驗證窗口？...2006-11-11
如何創(chuàng)建Word文件？...2006-11-11
如何更好地保護我的網(wǎng)頁？...2006-11-11
如何防止未經(jīng)注冊的用戶繞過注冊界面直接進入應用系統(tǒng)？
如何防止未經(jīng)注冊的用戶繞過注冊界面直接進入應用系統(tǒng)？...2006-11-11
如何實現(xiàn)電子郵件的自動發(fā)送？...2006-11-11
如何用變量實現(xiàn)群聊和悄悄話？...2006-11-11
這篇文章主要為大家介紹了web面試中面試官會經(jīng)常問到的http緩存問題，本文來為大家極大為什么要有http緩存?http緩存之強制緩存，協(xié)商緩存中的資源標識等問題2021-09-09
如何上傳一個單純的HTML文件？...2006-11-11