เรามาคุยเรื่องเว็บไซต์ดีกว่าครับ ซึ่งผมมีหลายอย่างอยากที่จะนำเสนอให้ท่านทราบ เรื่องของการเขียนเว็บ และเขียนโปรแกรมถ้าท่านเข้ามาแล้วก็ช่วยแนะนำกันบ้าง ส่งสัยก็ถามได้นะครับ ขอบคุณครับ
การเขียนข้อความลง Text file
<%
Const FroWriting=2
Const Create=True
Dim MyFile
Dim FSO
Dim TSO
MyFile = Server.MapPath("Textfile.Txt")
Set FSO =Server.CreateObject("Scripting.FileSystemObject")
Set TS=FSO.OpenTextFjile(Myfile, Forwriting, Create)
TS.write"ข้อความที่ 1 ในไฟล์" & vbcrlf
TS.write"ข้อความที่ 2 ในไฟล์" & vbcrlf
TS.writeLine""
Response.write"textfile.txt
Response.write"time" & Now()
TS.close
Set TS.Nothing
Set FSO=Nothing
%>
|
