<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <Html> <Head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> </Head> <% '======== Response.CharSet = "utf-8" Dim myMail,HTML,strTo,strSubject,strDescription,strFileName Dim mySmartUpload '*** Create Object ***' Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload") mySmartUpload.CodePage = "utf-8" '*** Upload Files ***' mySmartUpload.Upload '*** Upload file1 ***' If mySmartUpload.Files("FileAtt").FileName <> "" Then mySmartUpload.Files("FileAtt").SaveAs(Server.MapPath("FilesAttach/" & mySmartUpload.Files("FileAtt").FileName)) End If strFrom = mySmartUpload.Form("From") strSubject = mySmartUpload.Form("Subject") strDescription = Replace(mySmartUpload.Form("Message"),vbCrLf,"<br>") strFileName = Server.MapPath("FilesAttach/"&mySmartUpload.Files("FileAtt").FileName) Dim TextBody HTML = "" HTML = HTML & "<html>" HTML = HTML & "<head>" HTML = HTML & "<title>" & subject & "</title>" HTML = HTML & "<meta http-equiv=Content-Type content=text/html; charset=utf-8 />" HTML = HTML & "</head>" HTML = HTML & "<body>" HTML = HTML & "<br><Font Face=Tahoma Size=3 Color=#333333><b>From: " & strFrom & "</b></Font>" HTML = HTML & "<br><Font Face=Tahoma Size=3 Color=#333333><b>Subject: " & strSubject & "</b></Font>" HTML = HTML & "<br><Font Face=Tahoma Size=3 Color=#333333><b>Message: " & strDescription & "</b></Font>" HTML = HTML & "</body>" HTML = HTML & "</html>" Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.taradmovie.com" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objCDOSYSCon.Fields.Update 'Update the CDOSYS Configuration Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.BodyPart.Charset = "utf-8" objCDOSYSMail.From = Trim(strFrom) 'Request("EmailAddr") objCDOSYSMail.To = "[email protected]" objCDOSYSMail.BCC = "" 'Request("EmailAddr") objCDOSYSMail.Subject = Trim(Subject) 'Request("EmailAddr") 'objCDOSYSMail.HTMLBody = HTML objCDOSYSMail.HTMLBody = HTML 'objCDOSYSMail.TextBody = Message objCDOSYSMail.AddAttachment strFileName Response.Write(strFrom) Response.Write(strSubject) Response.Write(strDescription) objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing Set mySmartUpload = Nothing '======== ' Response.Redirect("../Web/contactus.asp") %>
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง
