Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 107,503

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





 

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

 



Topic : 069981



โพสกระทู้ ( 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







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2011-12-07 08:59:23 By : kpirot View : 1599 Reply : 3
 

 

No. 1



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

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

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

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






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-12-07 09:07:01 By : webmaster
 


 

No. 2



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



สถานะออฟไลน์


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

ป.ล. พี่ครับ UTF-8 นี่ไม่รองรับภาษาไทยเหรอครับพี่
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-12-07 09:10:55 By : kpirot
 

 

No. 3



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



สถานะออฟไลน์


ลองเปลี่ยนเป็น Windows-874 ทั้งหน้าก็ยังไม่ได้ครับพี่
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-12-07 09:24:51 By : kpirot
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : ขอรบกวนนิดครับ พอดีผมมีปัญหาเรื่องการใช้ SmartUpload กับข้อความภาษาไทยครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

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

Notice

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

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: Voake, Comcube, รับทำเว็บไซต์ รับเขียนโปรแกรม

Load balance : Server 01
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2019 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 , 08-9968-0655 อัตราราคา คลิกที่นี่