<% Option Explicit %> <html> <head> <title>ThaiCreate.Com ASP & aspSmartUpload</title> </head> <body> <% Dim mySmartUpload,file,a a="txt,pdf" '*** Create Object ***' Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload") mySmartUpload.AllowedFilesList=a '*** Upload Files ***' mySmartUpload.Upload If mySmartUpload.Files=a Then '*** Upload file1 ***' If mySmartUpload.Files("file1").FileName <> "" Then mySmartUpload.Files("file1").SaveAs(Server.MapPath("uploads/" & mySmartUpload.Files("file1").FileName)) Response.write mySmartUpload.Files("file1").Name & " Uploaded." End If Else response.write("<script>alert('อัพไฟล์ให้ถูกหน่อยสิโว้ย');window.location.history.back();</script>") End if '*** Properties ***' 'Response.Write("Name = " & mySmartUpload.Files("file1").Name & "<BR>") 'Response.Write("Size = " & mySmartUpload.Files("file1").Size & "<BR>") 'Response.Write("FileName = " & mySmartUpload.Files("file1").FileName & "<BR>") 'Response.Write("FileExt = " & mySmartUpload.Files("file1").FileExt & "<BR>") 'Response.Write("FilePathName = " & mySmartUpload.Files("file1").FilePathName & "<BR>") 'Response.Write("ContentType = " & mySmartUpload.Files("file1").ContentType & "<BR>") 'Response.Write("ContentDisp = " & mySmartUpload.Files("file1").ContentDisp & "<BR>") 'Response.Write("TypeMIME = " & mySmartUpload.Files("file1").TypeMIME & "<BR>") 'Response.Write("SubTypeMIME = " & mySmartUpload.Files("file1").SubTypeMIME & "<BR>") Set mySmartUpload = Nothing %> </body> </html>
mySmartUpload.Files("file1").FileExt
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง
Load balance : Server 05
Load balance : Server 05
