ใช้ aspSmartUpload รับค่าจาก Form ที่เป็นภาษาไทยไม่ได้ (Thai Language) เป็นเครื่องหมาย ?
ขอบคุณครับคุณ Win Code (Form1.html) <html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
</head>
<body>
<form name="form1" method="post" action="Form2.asp" enctype="multipart/form-data" onsubmit="EQsubmit(this); return document.eqreturn">
<TABLE border="0" cellpadding="0" cellspacing="0" width="100%"id="AutoNumber14 " height ="5%" >
<tr>
<td><input type = "text" name = "CHKSEQTT" maxlength = "3" size = 7 id = "field1" readonly value ="<%=CHKSEQTT%>" autocomplete="off" /></td>
<td><input type="file" name="file1"> </p> </td></td>
</tr>
</table>
</form>
</body>
</html>
Code (Form2.asp) <%@LANGUAGE="VBSCRIPT" CODEPAGE="874"%>
<%
Set Uload= Server.CreateObject("aspSmartUpload.SmartUpload")
Uload.CodePage = "Windows-874"
Uload.Upload
Set temp=CreateObject("ADODB.Recordset")
Dim objUpload
Dim strFileName
Dim strPath
Dim file
strFileName = Uload.Files("File1").filename
CHKITEMTT = Uload.Form("CHKITEMTT")
Response.write CHKITEMTT
%>
Date :
2011-12-02 08:56:14By :
naranont
ผมใส่ Code ที่หน้า Form2.asp ตามคุณ Win แนะนำแล้วครับ แต่ก็ยังไม่ได้เลยครับCode (ASP) <%@LANGUAGE="VBSCRIPT" CODEPAGE="874"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
</head>
<body>
<%
Set Uload= Server.CreateObject("aspSmartUpload.SmartUpload")
Uload.CodePage = "Windows-874"
Uload.Upload
Dim objUpload
Dim strFileName
Dim strPath
Dim file
strFileName = Uload.Files("File1").filename
CHKITEMTT = Uload.Form("CHKITEMTT")
Response.write CHKITEMTT
%>
</body>
</html>
Date :
2011-12-02 09:19:35By :
naranont
Code (asp1.asp) <html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<title>ThaiCreate.Com ASP & aspSmartUpload</title>
</head>
<body>
<form action="asp2.asp" method="post" enctype="multipart/form-data" name="frmMain">
Fullname
<input name="txt1" type="text"><br>
Upload 1
<input name="file1" type="file"><br>
Upload 2
<input name="file2" type="file">
<input type="submit" name="Submit" value="Submit">
</form>
</body>
</html>
Code (asp2.asp) <% Option Explicit %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<title>ThaiCreate.Com ASP & aspSmartUpload</title>
</head>
<body>
<%
Dim mySmartUpload
'*** Create Object ***'
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.CodePage = "Windows-874"
'*** Upload Files ***'
mySmartUpload.Upload
'*** input and other element ***'
Response.write("Fullname= "&mySmartUpload.Form("txt1")&"<br>")
'*** Upload file1 ***'
If mySmartUpload.Files("file1").FileName <> "" Then
mySmartUpload.Files("file1").SaveAs(Server.MapPath("MyFiles/" & mySmartUpload.Files("file1").FileName))
Response.write mySmartUpload.Files("file1").Name & " Uploaded.<br>"
End If
'*** Upload file2 ***'
If mySmartUpload.Files("file2").FileName <> "" Then
mySmartUpload.Files("file2").SaveAs(Server.MapPath("MyFiles/" & mySmartUpload.Files("file2").FileName))
Response.write mySmartUpload.Files("file2").Name & " Uploaded.<br>"
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>
Screenshot Go to : ASP aspSmartUpload - Upload and Other Element
Date :
2011-12-02 09:37:25By :
webmaster
ขอบคุณครับคุณ Win ผมทำได้แล้วครับ
Date :
2011-12-02 09:51:47By :
naranont
ทำตามที่ผมแนะนำไว้ครับ
Date :
2015-05-20 09:18:45By :
mr.win
ลองแล้วครับ ก็ยังเป็น
Date :
2015-05-23 08:10:45By :
hotonservice
ทดทำตามแล้วก็ไม่ได้ตัวหนังสือขึ้นมาเป็น ?????? ไม่แน่าใจว่าต้องแก้ไข ในส่วนไหนอีกครับ
Date :
2016-08-22 15:05:53By :
Ferio
ลอง Save ไฟล์เป็นแบบ ANSI หรือ UTF-8 ดูครับ
Date :
2016-08-23 09:07:07By :
mr.win
Server 04
Load balance : Server 04
