<%@ Import Namespace="System.IO"%> <%@ Page Language="VB" %> <script runat="server"> Sub Page_Load(sender As Object, e As EventArgs) Dim StrWer As StreamWriter Try StrWer = File.CreateText(Server.MapPath("MyFiles/") & "thaicreate.txt") StrWer.Write("www.ThaiCreate.Com") StrWer.Write("Version 2009") StrWer.WriteLine("") StrWer.WriteLine("www.ThaiCreate.Com") StrWer.WriteLine("Version 2009") StrWer.Close() Me.lblStatus.Text = "Files Writed." Catch ex As Exception Me.lblStatus.Text = "Write failed. ("& ex.Message &")" End Try End Sub </script> <html> <head> <title>ThaiCreate.Com ASP.NET - Write Text Files</title> </head> <body> <form runat="server"> <asp:Label id="lblStatus" runat="server"></asp:Label> </form> </body> </html>
StrWer.Write("www.ThaiCreate.Com" & vbTab & "www.ThaiCreate.Com")
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง