ASP, MySQL ทำไมเวลาผม insert จาก textbox ลงดาดต้าเบสเป็น ??? แต่พอฟิกค่ามันได้เป็นภาษาไทยอ่ะ
ผมเซ็ตหมดแล้วครับ
ผมใช้ tis620
แต่มันก็ยังไม่ได้อ่ะครับ
มันเป็นที่เครื่องคอมด้วยรึเปล่าครับ
Date :
2012-01-19 08:31:35
By :
Clamore
ลองเพิ่มข้อมูลเข้าไปใหม่ดูครับ ปัญหาคือ ตอนนี้ข้อมูลใน Database จะต้องเป็นภาษาไทยก่อนครับ ลองเปิดด้วย phpMyAdmin ดูครับ
Date :
2012-01-19 09:12:13
By :
webmaster
ถ้าฟิกปกติมันได้อ่ะครับ เช่น
insert into aa values('งง') อย่างงี้มันก็ขึ้นเป็นภาษาไทยให้ครับ
แต่ถ้ามันมาจากเท็กบอกซ์ที่เป็นภาษาไทย มันกลับไม่ขึ้นครับ
ส่วนข้อมูลทุกอย่างในดาต้าเบสเป็นภาษาไทย
Date :
2012-01-19 09:17:55
By :
Clamore
พี่ครับตอนนี้ผมเปลี่ยน tis620 มาเป็น utf8 แล้วก็ยังไม่ได้อ่ะ
นี่โค้ดครับ ผมทำผิดตรงไหนรึเปล่าอ่ะ ผมไปลองคีย์โค้ดแบบธรรมดาโดยที่ไม่ใช้ aspsmartupload มันก็ได้เป็นภาษาไทยอ่ะ แต่พอมาใช้กลับไม่ได้ มันผิดตรงไหนรึเปล่า
Code (insertnew.asp)
<%
session.CodePage ="65001"
if Session("user")="" then
Response.Redirect("../login.asp")
end if
%>
<!--#include file="userheader.asp"-->
<!--#include file="usermenu.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<script language="javascript">
function ints()
{
if (document.innew.txttitle.value == "")
{
alert('<% Response.Write ("¡ÃسÒãÊèËÑÇ¢éÍ´éÇÂ")%>');
document.innew.txttitle.focus();
return false;
}
if (document.innew.txtdetail.value == "")
{
alert('<% Response.Write ("¡ÃسÒãÊèÃÒÂÅÐàÍÕ´´éÇÂ")%>');
document.innew.txtdetail.focus();
return false;
}
if (document.innew.txtetc.value == "")
{
alert('<% Response.Write ("¶éÒäÁèãÊèËÁÒÂà赯 ¡ÃسÒãÊè - ´éÇÂ")%>');
document.innew.txtetc.focus();
return false;
}
if (document.innew.txttype.value == "")
{
alert('<% Response.Write ("¡ÃسÒàÅ×Í¡Êèǹ§Ò¹´éÇÂ")%>');
document.innew.txttype.focus();
return false;
}
document.innew.submit();
}
</script>
</head>
<td class="f2">
<form action="insertnews.asp" method="post" name="innew" onsubmit="javascript:return ints()" enctype="multipart/form-data" >
<table width="80%" border="1" style="width:50%">
<th colspan="2" align="center"><% Response.Write ("à¾ÔèÁ¢èÒÇãËÁè")%> </th>
<tr>
<td valign="top" width="200"><% Response.Write ("ËÑÇ¢éÍ")%></td>
<td><input name="txttitle" type="text" size="70" /> </td>
</tr>
<tr>
<td valign="top" width="200"><% Response.Write ("ÃÒÂÅÐàÍÕ´")%></td>
<td><textarea name="txtdetail" cols="70" rows="5"></textarea></td>
</tr>
<tr>
<td valign="top" width="200"><% Response.Write ("Êèǹ»ÃСÒÈ")%></td>
<td><select name="txtcall">
<option value="¢èÒÇ»ÃЪÒÊÑÁ¾Ñ¹¸ì" selected="selected"><% Response.Write ("¢èÒÇ»ÃЪÒÊÑÁ¾Ñ¹¸ì")%></option>
<option value="¢èÒÇ»ÃСÒÈ"><% Response.Write ("¢èÒÇ»ÃСÒÈ")%></option>
<option value="¢èÒÇ¡Ô¨¡ÃÃÁ"><% Response.Write ("¢èÒÇ¡Ô¨¡ÃÃÁ")%></option>
<option value="¢èÒÇ¡ÒÃÈÖ¡ÉÒ¡è͹»ÃÔÒ"><% Response.Write ("¢èÒÇ¡ÒÃÈÖ¡ÉÒ¡è͹»ÃÔÒµÃÕ")%></option>
<option value="¢èÒÇ¡ÒÃÈÖ¡ÉÒËÅѧ»ÃÔÒ"><% Response.Write ("¢èÒÇ¡ÒÃÈÖ¡ÉÒËÅѧ»ÃÔÒµÃÕ")%></option>
</select></td>
</tr>
<tr>
<td valign="top" width="200"><% Response.Write ("ËÁÒÂà˵Ø")%></td>
<td><input name="txtetc" type="text" size="70" /> </td>
</tr>
<tr>
<td valign="top" width="200"><% Response.Write ("Êèǹ§Ò¹")%></td>
<td><select name="txttype">
<option value="" selected="selected"><% Response.Write ("¡ÃسÒàÅ×Í¡")%></option>
<%
dim sqltype,rectype
sqltype="select * from unit "
set rectype=Server.CreateObject("ADODB.Recordset")
rectype.open sqltype,con
while not rectype.EOF
%>
<option value="<%=rectype.fields("unitid").value%>" ><%=rectype.fields("unitname").value%></option>
<%
rectype.movenext
wend
rectype.close()
set rectype=nothing
%>
</select> </td>
</tr>
<tr>
<td valign="top" width="200"><% Response.Write ("àÍ¡ÊÒÃṺ")%></td>
<td><input name="file1"type="file" size="50" /> </td>
</tr>
<tr>
<td colspan="2" align="center">
<input name="submit" type="submit" value="<% Response.Write ("ºÑ¹·Ö¡")%>" />
<input name="Reset" type="reset" value="<% Response.Write ("¡àÅÔ¡")%>" />
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<!--#include file="footer.asp" -->
Code (insertnews.asp)
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<head>
<body>
<%
session.CodePage ="65001"
if Session("user")="" then
Response.Redirect("../login.asp")
end if %>
<!--#include file="connect.asp"-->
<%
Dim mySmartUpload
'*** Create Object ***'
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.CodePage="UTF-8"
'*** Upload Files ***'
mySmartUpload.Upload
'*** 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
'*** Upload file2 ***'
'If mySmartUpload.Files("file2").FileName <> "" Then
' mySmartUpload.Files("file2").SaveAs(Server.MapPath("uploads/" & 'mySmartUpload.Files("file2").FileName))
' Response.write mySmartUpload.Files("file2").Name & " Uploaded."
'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>")
Function DateThai(strDate)
Setlocale("en-us")
Dim strDay,strMonth,strYear,strHour,strMinute,strSecond
Dim arrMonth
strDay = Day(strDate)
strMonth = Month(strDate)
strYear = Year(strDate)+543
arrMonth = Array("Á.¤.","¡.¾.","ÁÕ.¤.","àÁ.Â.","¾.¤.","ÁÔ.Â.","¡.¤.","Ê.¤.","¡.Â.","µ.¤.","¾.Â.","¸.¤.")
DateThai = strDay &" "&arrMonth(strMonth-1) &" "&strYear
End Function
dim d,t
d=date()
t=DateThai(d)
Function max(maxs)
dim msql,mrec
msql="select max(" & maxs & ") as idmax from news"
set mrec=con.execute(msql)
if not mrec.EOF then
max=mrec.fields("idmax").value
end if
End Function
dim idm,maxs
maxs="newsid"
idm=max(maxs)+1
'Function user(us)
'dim usel,urec
'usel="select * from officer where of_username='" & us & "' "
'set urec=con.execute(usel)
'if not urec.EOF then
' user=urec.fields("of_name").value
'end if
'End Function
'dim uses,us
'us=Session("user")
'uses=user(us)
dim usel,urec
usel="select * from officer where of_username='" & Session("user") & "' "
set urec=con.execute(usel)
if not urec.EOF then
user=urec.fields("of_username").value
end if
dim insql,inrec
insql="insert into news values ('" & idm & "','" & mySmartUpload.Form("txttitle") & "','" & mySmartUpload.Form("txtdetail") & "','" & mySmartUpload.Form("txtcall") & "','" & mySmartUpload.Form("txtetc") & "','" & mySmartUpload.Form("txttype") & "','" & mySmartUpload.Files("file1").FileName & "','" & t & "','" & user & "')"
set inrec=con.Execute(insql)
Response.Write(insql)
Response.Write(usel)
response.Redirect("usernew.asp")
%>
</body>
<html>
Date :
2012-01-20 09:52:07
By :
Clamore
แบบนี้ครับ
Code (Connect.asp)
<%
Session.CodePage="65001"
dim con
set con=Server.CreateObject("ADODB.Connection")
con.open "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost; UID=root; pwd=admin; database=med; CHARSET=utf8;stmt=set names 'utf8';"
%>
Date :
2012-01-20 10:08:49
By :
Clamore
ลอง save ไฟล์ให้เป็น UTF-8 ดูครับ
Date :
2012-01-20 10:18:46
By :
webmaster
ใช้ Edit Plus เขียนอ่ะครับ
แล้วมันก็เซฟแบบนั้นไม่ได้อ่ะ
ประวัติการแก้ไข 2012-01-20 10:23:55
Date :
2012-01-20 10:23:28
By :
Clamore
ตัวนั้นก็ EditPlus ครับ
Date :
2012-01-20 10:25:27
By :
webmaster
ไม่ได้อ่ะแถมเป็นหนักกว่าเดิมด้วย
เละไปทั้งหน้าเลย
Date :
2012-01-20 10:48:00
By :
Clamore
เดียวจะลองเขียนดูซะหน่อย
Date :
2012-01-20 15:50:30
By :
webmaster
ผมทำมันเป็นภาษาไทยน่ะครับ
Code (AspMySQLListRecord.asp)
<% Option Explicit %>
<%
Session.CodePage ="65001"
%>
<html>
<head>
<title>ThaiCreate.Com ASP & MySQL Tutorial</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
</head>
<body>
<%
Dim Conn,strSQL,objRec
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost;UID=root; " & _
"pwd=root;database=mydatabase;option=16384;CHARSET=utf8;stmt=SET NAMES 'UTF8';"
strSQL = "SELECT * FROM customer "
Set objRec = Server.CreateObject("ADODB.Recordset")
objRec.Open strSQL, Conn, 1,3
%>
<table width="600" border="1">
<tr>
<th width="91"> <div align="center">CustomerID </div></th>
<th width="98"> <div align="center">Name </div></th>
<th width="198"> <div align="center">Email </div></th>
<th width="97"> <div align="center">CountryCode </div></th>
<th width="59"> <div align="center">Budget </div></th>
<th width="71"> <div align="center">Used </div></th>
</tr>
<%
While Not objRec.EOF
%>
<tr>
<td><div align="center"><%=objRec.Fields("CustomerID").Value%></div></td>
<td><%=objRec.Fields("Name").Value%></td>
<td><%=objRec.Fields("Email").Value%></td>
<td><div align="center"><%=objRec.Fields("CountryCode").Value%></div></td>
<td align="right"><%=objRec.Fields("Budget").Value%></td>
<td align="right"><%=objRec.Fields("Used").Value%></td>
</tr>
<%
objRec.MoveNext
Wend
%>
</table>
<%
objRec.Close()
Conn.Close()
Set objRec = Nothing
Set Conn = Nothing
%>
</body>
</html>
Code (AspMySQLAddSave.asp)
<% Option Explicit %>
<%
Session.CodePage ="65001"
%>
<html>
<head>
<title>ThaiCreate.Com ASP & MySQL Tutorial</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
</head>
<body>
<%
Dim Conn,strSQL,objExec
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost;UID=root; " & _
"pwd=root;database=mydatabase;option=16384;CHARSET=utf8;stmt=SET NAMES 'UTF8';"
strSQL = ""
strSQL = strSQL &"INSERT INTO customer "
strSQL = strSQL &"(CustomerID,Name,Email,CountryCode,Budget,Used) "
strSQL = strSQL &"VALUES "
strSQL = strSQL &"('"&Request.Form("txtCustomerID")&"','"&Request.Form("txtName")&"', '"&Request.Form("txtEmail")&"' "
strSQL = strSQL &",'"&Request.Form("txtCountryCode")&"','"&Request.Form("txtBudget")&"', '"&Request.Form("txtUsed")&"') "
Set objExec = Conn.Execute(strSQL)
If Err.Number = 0 Then
Response.write("Save Done.")
Else
Response.write("Error Save ["&strSQL&"] ("&Err.Description&")")
End If
Conn.Close()
Set objExec = Nothing
Set Conn = Nothing
%>
</body>
</html>
Date :
2012-01-20 16:40:41
By :
webmaster
Load balance : Server 02