Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,027

HOME > ASP > ASP Forum > ขอรบกวนนิดครับ พอดีผมมีปัญหาเรื่องการใช้ SmartUpload กับข้อความภาษาไทยครับ

ขอรบกวนนิดครับ พอดีผมมีปัญหาเรื่องการใช้ SmartUpload กับข้อความภาษาไทยครับ

เริ่มหัวข้อใหม่

Joe

โพสกระทู้ ( 7 )
บทความ ( 0 )

ผมมีปัญหาอยากได้คำชี้แนะเรื่องการใช้ SmartUpload กับข้อความภาษาไทยครับ
ค้นเรื่องเก่าเจอจากที่นี่ครับ https://www.thaicreate.com/asp/forum/069806.html
แต่ก็ยังไม่สามารถใช้ภาษาไทยได้ครับ ผมลองตั้งค่า CodePage แล้วครับ ก็ไม่สามารถแสดงผลภาษาไทยได้อยู่ดี

Code:

Code (ASP)

<%@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")

%>

Tag : ASP, VBScript

Date : 2011-12-07 08:59:23

By : kpirot

View : 2087

Reply : 3

No. 1

TC Admin

โพสกระทู้ ( 74,058 )
บทความ ( 838 )

SmartUpload ถ้าภาษาไทยควรจะเป็น Windows-874 ครับ มันเก่าแล้วครับ UTF-8 น่าจะคงไม่รองรับไทยได้หรือเปล่า

ผมใช้ Windows-874 ก็ถาษาไทยได้ปกติครับ

Date : 2011-12-07 09:07:01

By : webmaster

No. 2

Joe

โพสกระทู้ ( 7 )
บทความ ( 0 )

อ๋อครับ
แต่หน้าอื่่นผมใช้ UTF-8 หมดเลยนะครับ แสดงภาษาไทยได้ พอเปลี่ยนมาเป็น TIs-620 กลับอ่านไม่ออก
พอมาหน้านี้ ใช้ UTF-8 เลยมีปัญหา

ป.ล. พี่ครับ UTF-8 นี่ไม่รองรับภาษาไทยเหรอครับพี่

Date : 2011-12-07 09:10:55

By : kpirot

No. 3

Joe

โพสกระทู้ ( 7 )
บทความ ( 0 )

ลองเปลี่ยนเป็น Windows-874 ทั้งหน้าก็ยังไม่ได้ครับพี่

Date : 2011-12-07 09:24:51

By : kpirot

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : ขอรบกวนนิดครับ พอดีผมมีปัญหาเรื่องการใช้ SmartUpload กับข้อความภาษาไทยครับ

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก