asp 無法輸入中文- 藍色小舖 BlueShop

台灣最大程式設計社群網站

∣免費加入會員∣登入 ∣回首頁∣ 您好

線上人數
1557

會員總數：246277
討論主題：189813

登入

登出

歡迎您免費加入會員

討論區選單

開發工具

行動裝置開發

資料庫

多媒體 / 網管

綜合

文章區

討論區列表 >> ASP >> asp 無法輸入中文

[]

[我要回覆]

12 最後一頁(2)

asp 無法輸入中文
價值 : 500 QP 點閱數:4396 回應數:16

樓主

阿優

117	179
3034	334

發送站內信

以下是部份程式

當我插入資料庫時他是寫入以下亂碼

?啣?/靽格?啣?/靽格

<%   Response.Buffer   =   True   %>
<% 
Response.Charset="utf-8"
session.codepage="65001"

if trim(request.Cookies("LoginedUid"))="" then response.Redirect"index.asp" 
    PrgName="m1-01"
    maintbname="News"
    mainfdname="Nid"
    'mainkdname1="InUnit"
    'mainkdname2="MtId"

'toconnectdb '0208
    
    
    'if IsRight("rMessage")=false then response.Redirect "noright.asp"
    
    '-----------取得單元列表
    'set temprs(0)=rsGetGeneralList2("UnitId","UnitName","PageUnits","Oid","1=1")'網頁區域
    '-----------建立上傳物件,並存檔
	dim objUF,myRequest,savepath,filepath
	dim accessmode'存取模式
	dim id,ispostback,fbdata
	dim postdate,removedate'用來記錄上下架的模式
	accessmode=request("accessmode")
	id=request(mainfdname)
	fbdata=cstr(request("fbdata"))
	
	set objUF=server.CreateObject("aspSmartUpload.SmartUpload")
	'objUF.OverwriteFiles =false
	objUF.AllowedFilesList=replace(mid(FileTypeLimit4,2),".",",") 
	objUF.MaxFileSize=FileMaxSize  
	'objUF.CodePage="utf-8"

'objUF.CodePage = 65001
 'objUF.CharSet = "UTF-8"

savepath=gUploadpath
	'response.Write savepath
	on error resume next 
	objUf.SaveVirtual savepath'需做此動作...後面的form參數集合才有用
	objUf.Upload 
	select case err.number 
	    case 61 '非enctype="multipart/form-data"
	        set myRequest=Request
	    case 9
	        set myRequest=Request
	    case 0
	        objUf.Save left(gUploadpath,len(gUploadpath)-1)  
	        set myRequest=objUF
	        'objUF.Files("PicPath").MoveVirtual gAdFilePath & objUF.Files("PicPath").FileName 
	    case else
	        'response.Write "err=" & err.number & ":" & err.Description     
	        set myRequest=objUF
	        'response.End 
	       ' ErrMessage=replace(err.Description,chr(13)+chr(10),"") 
	end select
	'objUF.CodePage= 
	
	on error goto 0
	
	'------------
	dim eventvalue
	'------------取得各項參數
	dim fcount

'----------------------不含自動編號
	fcount=10
	redim FilesName(fcount-0)
	redim FilesType(fcount-0)'0=數字,1=文字
	redim FilesData(fcount-0)
	
	FilesName(0)= "Title" :FilesType(0)= 1'標題
	FilesName(1)= "Descript":FilesType(1)= 1'內容
	FilesName(2)= "PicPath1":FilesType(2)= 1'圖片一
	FilesName(3)= "PicPath2":FilesType(3)= 1'圖片二
	FilesName(4)= "PostMode":FilesType(4)= 0'0-馬上刊登 1-有上架日期
	FilesName(5)= "PostDate":FilesType(5)= 1'刊登日期
	FilesName(6)= "DropMode":FilesType(6)= 0'0-無下架日期 1-有下假日期
	FilesName(7)= "DropDate":FilesType(7)= 1'下架日期
	FilesName(8)= "CreateDateTime":FilesType(8)= 1'建立日期時間
	FilesName(9)= "UpdateDateTime":FilesType(9)= 1'更新日期時間
	
	
	'--------------------------如果是修改,先取得資料
	ispostback=lcase(cstr(myRequest.form("ispostback")))
	if lcase(cstr(accessmode))="modify" and ispostback<>"true"  then'
	    if fbdata="true" then'------
	        for i=1 to fcount
	            FilesData(i-1)=myRequest.form(FilesName(i-1))
	        next 
	    else    
	        sql="select * from " & maintbname  & " where " & mainfdname & "=" & id
	        rs.open sql,cn
	        for i=1 to fcount
	            FilesData(i-1)=rs(FilesName(i-1))
	        next 
	        rs.close 
        end if	        
	else
	    with myRequest
	        for i=1 to fcount
	            FilesData(i-1)=.form(FilesName(i-1))
	        next 
	    end with
        dim tt
        tt=0

for i=2 to 3
	        '----------------------------------------------
	        if cstr(myRequest.form(FilesName(i) & "_h"))<>"" then
	            if instr(1,cstr(myRequest.form(FilesName(i) & "_h")),"\")>0 then
	                on error resume next
	                tt=tt+1
	                
	                'FilesData(i)=savepath & myRequest.Files(tt).FileName
	                FilesData(i)=savepath & myRequest.Files(FilesName(i)).FileName
	                if err.number <>0 then
	                    temparr=split(myRequest.form(FilesName(i) & "_h"),"\") 
	                    FilesData(i)=savepath & temparr(ubound(temparr))
	                end if   
	                on error goto 0
	            else
	                FilesData(i)=myRequest.form(FilesName(i) & "_h")
	            end if
	        end if
        next 
	end if
	'--------------------------
	'if lcase(cstr(accessmode))="modify" then
	'    set temprs(1)=rsGetGeneralList2("Mtid","TypeName","MsgTypes","Oid","InUnit='" & FilesData(0) & "'")'網頁區域
	'else
	'    set temprs(1)=rsGetGeneralList2("Mtid","TypeName","MsgTypes","Oid","InUnit='" & FilesData(0) & "' and IsDeleted=0")'網頁區域
	'end if
	'--------------------------
	eventvalue=myRequest.form("eventvalue")
	%>

<%
	select case lcase(eventvalue)
	    case "toinsert"
	        if cstr(ErrMessage)="" then
	            FilesData(9)=getnowdatetime
	            if (lcase(cstr(accessmode)))="" then'-----建立日期
	                FilesData(8)=getnowdatetime
	            end if
	        
				if cstr(FilesData(4))<>"1" then
					if lcase(cstr(accessmode))="modify" then
						FilesData(5)=getgeneralnamebyid(id,maintbname,mainfdname,"PostDate")
					else
						FilesData(5)=getnowdate
					end if
				end if
                ''--------檢驗上傳檔案是否合法,若不合法則刪除
                'myRequest.SaveVirtual savepath
                'dim fe
                'for each fe in myRequest.Files 
               '    if instr(1,ucase(ImageTypeLimit2),ucase(fe.ext))>0 and fe.Size>ImageMaxSize then 
                '        fe.delete
                '    end if    
               ' next            	        
	            '-------組成資料字串
	            redim tempSQLarr(fcount-1)
	            for i=1 to fcount
	                if lcase(cstr(accessmode))="modify" then
	                    select case  FilesType(i-1)
	                        case 0'數字
	                            if cstr(FilesData(i-1))="" then FilesData(i-1)="0" 
	                            tempSQLarr(i-1)=cstr(FilesName(i-1)) & "=" & cstr(FilesData(i-1))
	                        case 1'文字
	                            tempSQLarr(i-1)=cstr(FilesName(i-1)) & "=" & "'" & replace(FilesData(i-1),"'","''") & "'"
								
	                        case 2'日期
	                            if cstr(FilesData(i-1))="" then
	                                tempSQLarr(i-1)=cstr(FilesName(i-1)) & "=" & "''"
	                            else
	                                tempSQLarr(i-1)=cstr(FilesName(i-1)) & "=" & "#" & FilesData(i-1) & "#"
	                            end if    
	                    end select
	                else
					
					%>

<%
	                    select case  FilesType(i-1)
	                        case 0'數字
	                            if cstr(FilesData(i-1))="" then FilesData(i-1)="0" 
	                            tempSQLarr(i-1)=cstr(FilesData(i-1))
	                        case 1'文字
	                            tempSQLarr(i-1)="'" & replace(FilesData(i-1),"'","''") & "'"
	                        case 2'日期
	                            if cstr(FilesData(i-1))="" then
	                                tempSQLarr(i-1)="''"
	                            else
	                                tempSQLarr(i-1)="#" & FilesData(i-1) & "#"
	                            end if    
	                    end select
    	            end if
	            next 
	            if lcase(cstr(accessmode))="modify" then
	                sql="update " & maintbname & " set " & join(tempSQLarr,",") & " where " & mainfdname & "=" & id  
	            else
				
				%>
									
				
				<%
				
	
	               ' sql="insert into " & maintbname & " (" & join(FilesName,",") & ") values(" & join(tempSQLarr,",") & ")"  
	            end if    
	            'response.Write sql 
				'response.end 
	            on error resume next 
	            cn.execute sql
	            if err.number =0 then
	                if lcase(cstr(accessmode))="modify" then
	                    ErrMessage="修改成功"
	                else
	                    ErrMessage="新增成功"
	                end if    
	            else
	                ErrMessage=err.Description 
	                
	            end if
	            'response.Write "ErrMessage=" & ErrMessage
	            on error goto 0

end if
	end select
%>

本篇文章發表於2012-02-09 00:46

1樓回應得意	第一行先加入 <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <head>與</head>中間加入 <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> 試看看本篇文章回覆於2012-02-09 10:19 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
2樓回應大頭蝦	你的資料庫設定成utf8嗎? 若你的系統只用在繁體版時只要如樓上所說的改成big5並刪除第一行的<%@Language.............%> 本篇文章回覆於2012-02-09 10:58 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
3樓回應大頭蝦	你的資料庫設定成utf8嗎? 若你的系統只用在繁體版時只要如樓上所說的改成big5並刪除第一行的<%@Language.............%> 本篇文章回覆於2012-02-09 10:58 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
4樓回應 No.18	檢查資料庫欄位的設定，是否有設成nvarchar之類的本篇文章回覆於2012-02-09 13:36 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
5樓作者回應阿優	以上都測過了~~不行,他這insert into 資料都是用字串組出來的不知道是不是這問題, 我有用response 去看資料,還沒送到資料庫就是亂碼了本篇文章回覆於2012-02-09 18:08 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
6樓作者回應阿優	和這頁面有用aspSmartUpload 元件本篇文章回覆於2012-02-09 18:09 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
7樓回應老頑童	請先確定輸入表單頁面(<form>那頁)是設定成charset=utf-8 本篇文章回覆於2012-02-09 18:24 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
8樓回應香帥	請在head中加入meta改成以下這樣試試 <head> <title>中文碼測試。</title> <meta http-equiv="content-type" content="text/html; charset=big5"></head> 若還不行請po全文,我幫您在我server試比較快找出問題點. 本篇文章回覆於2012-02-09 18:53 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
9樓作者回應阿優	我表單頁面(<form>那頁)是設定成charset=utf-8 我有自己作測試在同頁用我自己寫的表單送出再response 出來會出現中文,所以最大的問題可能就是他那些asp 程式不知哪行在搞鬼! 本篇文章回覆於2012-02-09 20:07 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
10樓回應 d.s	裡面要設定 1.db 的欄位為nvarchar 2. Insert 語法 nvarchar欄位前要加 N 3.若要問能不能救回資料....請節哀本篇文章回覆於2012-02-10 15:14 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
11樓作者回應阿優	1.db 的欄位為nvarchar 2. Insert 語法 nvarchar欄位前要加 N-->>還沒插入資料就是亂碼了本篇文章回覆於2012-02-10 22:36 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
12樓回應香帥	我已幫您做一兩個程式,您先試試看,網址用msn或email給您因怕上載被惡作劇,不在這公佈,等您測試ok,那網址就會換掉本篇文章回覆於2012-02-12 00:19 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
13樓回應大頭蝦	偶覺得是aspSmartUpload元件在作怪，你可以換別的上傳元件看看如Lyupload這一個不錯用或INotesupload，若不曉得怎麼用或下載時，可以去google一下。這兩個元件偶測試許多次都沒有亂碼的問題。本篇文章回覆於2012-02-12 13:13 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
14樓作者回應阿優	回13F 也有可能是aspSmartUpload問題但可能無法換其他原件了,因為工程號大.... 回香帥,目前測試是有寫到資料庫,但怎麼套用在我原程式本篇文章回覆於2012-02-12 17:46 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
15樓最有價值解答香帥	已經用javascript的函式前端先編碼encodeURIComponent 再至後端解碼,這題總算解決了. 本篇文章回覆於2012-02-20 00:28 == 簽名檔 == --未登入的會員無法查看對方簽名檔--

12 最後一頁(2)

回覆

如要回應,請先登入.

1樓回應得意	第一行先加入 <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <head>與</head>中間加入 <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> 試看看本篇文章回覆於2012-02-09 10:19 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
2樓回應大頭蝦	你的資料庫設定成utf8嗎? 若你的系統只用在繁體版時只要如樓上所說的改成big5並刪除第一行的<%@Language.............%> 本篇文章回覆於2012-02-09 10:58 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
3樓回應大頭蝦	你的資料庫設定成utf8嗎? 若你的系統只用在繁體版時只要如樓上所說的改成big5並刪除第一行的<%@Language.............%> 本篇文章回覆於2012-02-09 10:58 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
4樓回應 No.18	檢查資料庫欄位的設定，是否有設成nvarchar之類的本篇文章回覆於2012-02-09 13:36 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
5樓作者回應阿優	以上都測過了~~不行,他這insert into 資料都是用字串組出來的不知道是不是這問題, 我有用response 去看資料,還沒送到資料庫就是亂碼了本篇文章回覆於2012-02-09 18:08 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
6樓作者回應阿優	和這頁面有用aspSmartUpload 元件本篇文章回覆於2012-02-09 18:09 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
7樓回應老頑童	請先確定輸入表單頁面(<form>那頁)是設定成charset=utf-8 本篇文章回覆於2012-02-09 18:24 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
8樓回應香帥	請在head中加入meta改成以下這樣試試 <head> <title>中文碼測試。</title> <meta http-equiv="content-type" content="text/html; charset=big5"></head> 若還不行請po全文,我幫您在我server試比較快找出問題點. 本篇文章回覆於2012-02-09 18:53 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
9樓作者回應阿優	我表單頁面(<form>那頁)是設定成charset=utf-8 我有自己作測試在同頁用我自己寫的表單送出再response 出來會出現中文,所以最大的問題可能就是他那些asp 程式不知哪行在搞鬼! 本篇文章回覆於2012-02-09 20:07 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
10樓回應 d.s	裡面要設定 1.db 的欄位為nvarchar 2. Insert 語法 nvarchar欄位前要加 N 3.若要問能不能救回資料....請節哀本篇文章回覆於2012-02-10 15:14 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
11樓作者回應阿優	1.db 的欄位為nvarchar 2. Insert 語法 nvarchar欄位前要加 N-->>還沒插入資料就是亂碼了本篇文章回覆於2012-02-10 22:36 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
12樓回應香帥	我已幫您做一兩個程式,您先試試看,網址用msn或email給您因怕上載被惡作劇,不在這公佈,等您測試ok,那網址就會換掉本篇文章回覆於2012-02-12 00:19 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
13樓回應大頭蝦	偶覺得是aspSmartUpload元件在作怪，你可以換別的上傳元件看看如Lyupload這一個不錯用或INotesupload，若不曉得怎麼用或下載時，可以去google一下。這兩個元件偶測試許多次都沒有亂碼的問題。本篇文章回覆於2012-02-12 13:13 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
14樓作者回應阿優	回13F 也有可能是aspSmartUpload問題但可能無法換其他原件了,因為工程號大.... 回香帥,目前測試是有寫到資料庫,但怎麼套用在我原程式本篇文章回覆於2012-02-12 17:46 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
15樓最有價值解答香帥	已經用javascript的函式前端先編碼encodeURIComponent 再至後端解碼,這題總算解決了. 本篇文章回覆於2012-02-20 00:28 == 簽名檔 == --未登入的會員無法查看對方簽名檔--