어떻게 텍스트 작성 기 를 만 듭 니까?

<%function WriteToFile(FileName, Contents, Append)on error resume nextif Append = true then  iMode = 8else   iMode = 2end ifset oFs = server.createobject("Scripting.FileSystemObject")set oTextFile = oFs.OpenTextFile(FileName, iMode, True)oTextFile.Write ContentsoTextFile.Closeset oTextFile = nothingset oFS = nothingend function%><%WriteToFile "C:\intels\Test1.txt","중국 수리 수전 출판사(www.waterpub.com.cn)―전국 우수 출판사",True WriteToFile"C:\intels\Test2.txt","중국 수리 수전 출판사(www.waterpub.com.cn)―전국 우수 출판사",falseWriteToFile"C:\intels\Test1.txt",chr(13)&chr(10)&"바람 에 춤 추 는(www.intels.net)―패션 컨설팅 개인 사이트",trueWriteToFile"C:\intels\Test2.txt",chr(13)&chr(10)&"바람 에 춤 추 는(www.intels.net)―패션 컨설팅 개인 사이트",false'test 1.txt contains:'중국 수리 수력발전 출판사(www.waterpub.com.cn)―전국 우수 출판사'바람 에 춤(www.intels.net)―패션 컨설팅 개인 사이트'test 2.text contains:'바람 에 춤(www.intels.net)―패션 컨설팅 개인 사이트%>Write to File test is complete

좋은 웹페이지 즐겨찾기