<script runat="server"> Sub btnUpload_OnClick(sender As Object, e As EventArgs) If Me.FileUpload1.HasFile Then Me.FileUpload1.SaveAs(Server.MapPath("FileUpload/" & FileUpload1.FileName)) Me.lblText.Text = FileUpload1.FileName & " Uploaded.<br>" Me.Image1.ImageUrl = "FileUpload/" & FileUpload1.FileName Me.ShowFileInfo(FileUpload1) End If End Sub Function ShowFileInfo(FileUpload1) Dim objFSO, objFile Dim Info As New FileInfo("FileUpload/" & FileUpload1.FileName) objFSO = Server.CreateObject("Scripting.FileSystemObject") objFile = objFSO.GetFile(Server.MapPath("FileUpload/" & FileUpload1.FileName)) Label1.Text = ("Attributes : " & objFile.Attributes & "<br>") Label2.Text = ("Name : " & objFile.Name & "<br>") Label3.Text = ("ShortName : " & objFile.ShortName & "<br>") Label4.Text = ("Size : " & objFile.Size & " bytes <br>") Label5.Text = ("Type : " & objFile.Type & "<br>") Label6.Text = ("DateCreated : " & objFile.DateCreated & "<br>") Label7.Text = ("DateLastAccessed : " & objFile.DateLastAccessed & "<br>") Label8.Text = ("DateLastModified : " & objFile.DateLastModified & "<br>") Label9.Text = ("DateTaken : " & objFile.DateTime & "<br>") objFSO = Nothing objFile = Nothing End Function </script>
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง