| {\rtf1\ansi\ansicpg1252\deff0\deflang1044{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}} \viewkind4\uc1\pard\f0\fs17 The HTML in this example is for illustration purposes only \par \par <% \par function WriteToFile(FileName, Contents, Append) \par 'on error resume next \par \par if Append = true then \par iMode = 8 \par else \par iMode = 2 \par end if \par set oFs = server.createobject("Scripting.FileSystemObject") \par set oTextFile = oFs.OpenTextFile(FileName, iMode, True) \par oTextFile.Write Contents \par oTextFile.Close \par set oTextFile = nothing \par set oFS = nothing \par \par end function \par \par %> \par \par \par \par \par <% \par \par WriteToFile "C:\\Test1.txt", "Hello How are you", True \par WriteToFile "C:\\Test2.txt", "Hello How are you", false \par WriteToFile "C:\\Test1.txt", chr(13) & chr(10) & "I am fine", true \par WriteToFile "C:\\Test2.txt", chr(13) & chr(10) & "I am fine", false \par 'Test1.txt contains: \par 'Hello How are you \par 'I am fine \par \par 'Test2.text contains: \par \par 'I am fine \par %> \par Write to File test is complete \par India web developer web development India | India web development company India ecommerce web developer \par \par } |
Write text to a file in ASP |