用asp匯出excel時遇到utf-8會變成亂碼- 藍色小舖 BlueShop

台灣最具影響力的-資訊專家社群 - 讓您成為最有價值的IT專業人才

∣登入

∣回首頁∣

線上人數
1571

會員總數：225100
接案會員：6716
文章總數：2320
討論主題：171697

登入

購買VP

歡迎您免費加入會員

討論區選單

開發工具

行動裝置開發

資料庫

網站/多媒體

系統/應用軟體

數位新天地

生活綜合資訊

IT職涯/認證

小舖站務區

討論區列表 >> ASP >> 用asp匯出excel時遇到utf-8會變成亂碼

[變換順序]

[我要回覆]

用asp匯出excel時遇到utf-8會變成亂碼
價值 : 300 QP 點閱數:10179 回應數:14

點圖分享到Plurk吧!

樓主

ChaN

1593	514
5298	1136

發送站內信

各位好
我用了ASP的內建功能匯出資料
big5跟純英文都正常
但遇到utf-8就會變成亂碼
請問是否有解決之道

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%
Dim RecMember
Dim RecMember_cmd
Dim RecMember_numRows

Set RecMember_cmd = Server.CreateObject ("ADODB.Command")
RecMember_cmd.ActiveConnection = MM_conndb_STRING
RecMember_cmd.CommandText = "SELECT m_name, m_birthYear, m_birthMonth, m_birthDate, m_phone, m_address, m_email FROM member_main" 
RecMember_cmd.Prepared = true

Set RecMember = RecMember_cmd.Execute
RecMember_numRows = 0
%>
<%
'Export to Excel Server Behavior
If Request.QueryString("export")="1" Then
Dim line_RecMember, filename_RecMember, hdr_RecMember,  i_RecMember

line_RecMember=" "
hdr_RecMember=""

If hdr_RecMember="1" Then
	For i_RecMember=0 to RecMember.Fields.count-1
		If i_RecMember = RecMember.Fields.count-1 Then
			addComa=""
		Else
			addComa="[_comma_]"
		End If
		line_RecMember=line_RecMember&Replace(RecMember.Fields(i_RecMember).Name,"_"," " )&addComa
	Next
	line_RecMember=line_RecMember&"[_linebreak_]"
End If

line_RecMember=line_RecMember&RecMember.GetString(,,"[_comma_]","[_linebreak_]","")
line_RecMember=Replace(line_RecMember,",","﹐" )
line_RecMember=Replace(line_RecMember,vbCrlf," ")
line_RecMember=Replace(line_RecMember,"[_linebreak_]",vbCr)
line_RecMember=Replace(line_RecMember,"[_comma_]",",")
filename_RecMember="member.csv"
Response.ContentType="application/xls"
Response.AddHeader  "Content-Disposition", "attachment; filename=" & filename_RecMember
Response.Write(line_RecMember)
Response.End()
End if
 
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>無標題文件</title>
</head>

<body>

</body>
</html>
<%
RecMember.Close()
Set RecMember = Nothing
%>

本篇文章發表於2006-11-07 19:37

什麼是iT Power資訊報

新手會員瞧一瞧

1樓回應 Power Hammer	您把 Response.ContentType="application/xls" Response.AddHeader "Content-Disposition", "attachment; filename=member.csv" 改成 Response.AddHeader "Content-Disposition", "attachment; filename=member.csv" Response.ContentType="application/xls" 也就是 ContentType 移至 AddHeader 底下試試看本篇文章回覆於2006-11-07 21:39 --未登入的會員無法查看對方簽名檔--
2樓回應 Power Hammer	不然就使出必殺技用 Session 指定 CodePage 去轉如下: <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Response.Clear Response.ContentType="application/xls" Response.AddHeader "Content-Disposition", "attachment; filename=member.csv" Session.CodePage = 65001 Session("Orz") = "我是誰" & vbcrlf ' 這裡換成您要的內容 Session.CodePage = 950 Response.Write Session("Orz") Response.End %> 參考看看囉本篇文章回覆於2006-11-07 21:44 --未登入的會員無法查看對方簽名檔--
3樓作者回應 ChaN	1樓的方式沒用~ 本篇文章回覆於2006-11-08 10:40 --未登入的會員無法查看對方簽名檔--
4樓回應 Power Hammer	嗯 , #2 應該可以OK .. 44 看吧本篇文章回覆於2006-11-08 10:46 --未登入的會員無法查看對方簽名檔--
5樓作者回應 ChaN	我試過先轉big5的方式了這樣也沒有用資料庫裡面存的都是utf-8 轉950只會變成另一種亂碼 Orz~ 本篇文章回覆於2006-11-08 11:24 --未登入的會員無法查看對方簽名檔--
6樓回應小堂果	試試看用Stream 本篇文章回覆於2006-11-08 17:27 --未登入的會員無法查看對方簽名檔--
7樓回應雪地孤狼	save ASP file format? try codepage=65001 charset=big5 本篇文章回覆於2006-11-08 22:22 --未登入的會員無法查看對方簽名檔--
8樓回應 Power Hammer	把您資料傳進去用 ADODB.Stream 取處理 Charset 看看嚕 Function UTFCvtBig5(strX) Dim stm Set stm = Server.CreateObject("ADODB.Stream") With stm .Mode = 3 .Type = 2 .Open .Charset = "UTF-8" .Position = 0 .WriteText strX .Position = 0 .Charset = "Big5" .Position = 0 UTFCvtBig5 = .ReadText .Close End With Set smt = Nothing End Function 本篇文章回覆於2006-11-09 10:20 --未登入的會員無法查看對方簽名檔--
9樓回應 Power Hammer	參考看看囉 <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <html> <head> <title>Title</title> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> </head> <body> <% Response.Clear Response.ContentType="application/xls" Response.AddHeader "Content-Disposition", "attachment; filename=member.csv" Session.CodePage = 65001 Session("Orz") = UTFCvtBig5("這裡換成您的資料") Session.CodePage = 950 Response.Write Session("Orz") Response.End Function UTFCvtBig5(strX) Dim stm Set stm = Server.CreateObject("ADODB.Stream") With stm .Mode = 3 .Type = 2 .Open .Charset = "UTF-8" .Position = 0 .WriteText strX .Position = 0 .Charset = "Big5" ' 若不OK , 把這行拿掉看看 , 或把 <Metta Tag 中的 UTF-8 改 Big5 看看 .Position = 0 UTFCvtBig5 = .ReadText .Close End With Set smt = Nothing End Function %> </body> </head> 本篇文章回覆於2006-11-09 11:12 --未登入的會員無法查看對方簽名檔--
10樓回應羊葛格	FSO只能寫ANSI編碼的檔，不能寫utf-8格式的檔,並且只能讀寫文字檔案。很多人都選擇用ADODB.STREAM物件來替代FSO物件，因為STREAM類有LOADFROMFILE和SAVETOFILE方法.並且有一個至關重要的屬性CHARSET,這是FSO沒有的。本篇文章回覆於2006-11-23 12:22 --未登入的會員無法查看對方簽名檔--
11樓作者回應 ChaN	請問有相關透過Stream匯出Excel的方式可以提供參考嗎? 本篇文章回覆於2006-11-23 13:20 --未登入的會員無法查看對方簽名檔--
12樓回應 longer	把ASP程式檔，存檔類型改為utf-8，不要用ANSI 本篇文章回覆於2006-11-23 19:05 --未登入的會員無法查看對方簽名檔--
13樓作者回應 ChaN	我是用utf-8沒錯請問有人可以幫幫小弟嗎一個客戶需要Excel匯出現在頭大了本篇文章回覆於2007-03-09 18:46 --未登入的會員無法查看對方簽名檔--
14樓回應水水	我碰到跟您一樣的問題,爬文爬到破頭,後來用了一個笨方法解決: (1)asp網頁用CODEPAGE="950" charset=big5 (2)response.write放在<body></body>中間 (3)網頁顯示沒問題後加一個botton(轉存excel檔),按下後要客戶儲存成(存檔類型:文字(.txt),語言:unicode),存csv或excel都可以. 以下是我的程式碼供參考: <%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%> <!--#include file="../../Connections/CONN_NTIFO.asp" --> <% set RS_training_PO = Server.CreateObject("ADODB.Recordset") RS_training_PO.ActiveConnection = MM_CONN_NTIFO_STRING RS_training_PO.Source = "SELECT FROM Training_PO RS_training_PO.CursorType = 3 RS_training_PO.CursorLocation = 2 RS_training_PO.LockType = 3 RS_training_PO.Open() %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=big5"> <title>無標題文件</title> </head> <body> <% While (NOT RS_training_PO.BOF) AND (NOT RS_training_PO.EOF) Response.Write "" & Trim(RS_training_PO("ID_No")) & "," Response.Write "" & Trim(RS_training_PO("Name")) & "," Response.Write "" & Trim(RS_training_PO("Department")) & "<br>" RS_training_PO.MoveNext() Wend %> <input type="button" name="SaveAs" value="轉存EXCEL檔" onclick="document.execCommand('SaveAs', true, 'test.csv');"> </body> </html> <% RS_training_PO.Close() %> 本篇文章回覆於2007-03-26 15:16 --未登入的會員無法查看對方簽名檔--

[變換順序]

回覆

如要回應,請先登入.

1樓回應 Power Hammer	您把 Response.ContentType="application/xls" Response.AddHeader "Content-Disposition", "attachment; filename=member.csv" 改成 Response.AddHeader "Content-Disposition", "attachment; filename=member.csv" Response.ContentType="application/xls" 也就是 ContentType 移至 AddHeader 底下試試看本篇文章回覆於2006-11-07 21:39 --未登入的會員無法查看對方簽名檔--
2樓回應 Power Hammer	不然就使出必殺技用 Session 指定 CodePage 去轉如下: <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Response.Clear Response.ContentType="application/xls" Response.AddHeader "Content-Disposition", "attachment; filename=member.csv" Session.CodePage = 65001 Session("Orz") = "我是誰" & vbcrlf ' 這裡換成您要的內容 Session.CodePage = 950 Response.Write Session("Orz") Response.End %> 參考看看囉本篇文章回覆於2006-11-07 21:44 --未登入的會員無法查看對方簽名檔--
3樓作者回應 ChaN	1樓的方式沒用~ 本篇文章回覆於2006-11-08 10:40 --未登入的會員無法查看對方簽名檔--
4樓回應 Power Hammer	嗯 , #2 應該可以OK .. 44 看吧本篇文章回覆於2006-11-08 10:46 --未登入的會員無法查看對方簽名檔--
5樓作者回應 ChaN	我試過先轉big5的方式了這樣也沒有用資料庫裡面存的都是utf-8 轉950只會變成另一種亂碼 Orz~ 本篇文章回覆於2006-11-08 11:24 --未登入的會員無法查看對方簽名檔--
6樓回應小堂果	試試看用Stream 本篇文章回覆於2006-11-08 17:27 --未登入的會員無法查看對方簽名檔--
7樓回應雪地孤狼	save ASP file format? try codepage=65001 charset=big5 本篇文章回覆於2006-11-08 22:22 --未登入的會員無法查看對方簽名檔--
8樓回應 Power Hammer	把您資料傳進去用 ADODB.Stream 取處理 Charset 看看嚕 Function UTFCvtBig5(strX) Dim stm Set stm = Server.CreateObject("ADODB.Stream") With stm .Mode = 3 .Type = 2 .Open .Charset = "UTF-8" .Position = 0 .WriteText strX .Position = 0 .Charset = "Big5" .Position = 0 UTFCvtBig5 = .ReadText .Close End With Set smt = Nothing End Function 本篇文章回覆於2006-11-09 10:20 --未登入的會員無法查看對方簽名檔--
9樓回應 Power Hammer	參考看看囉 <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <html> <head> <title>Title</title> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> </head> <body> <% Response.Clear Response.ContentType="application/xls" Response.AddHeader "Content-Disposition", "attachment; filename=member.csv" Session.CodePage = 65001 Session("Orz") = UTFCvtBig5("這裡換成您的資料") Session.CodePage = 950 Response.Write Session("Orz") Response.End Function UTFCvtBig5(strX) Dim stm Set stm = Server.CreateObject("ADODB.Stream") With stm .Mode = 3 .Type = 2 .Open .Charset = "UTF-8" .Position = 0 .WriteText strX .Position = 0 .Charset = "Big5" ' 若不OK , 把這行拿掉看看 , 或把 <Metta Tag 中的 UTF-8 改 Big5 看看 .Position = 0 UTFCvtBig5 = .ReadText .Close End With Set smt = Nothing End Function %> </body> </head> 本篇文章回覆於2006-11-09 11:12 --未登入的會員無法查看對方簽名檔--
10樓回應羊葛格	FSO只能寫ANSI編碼的檔，不能寫utf-8格式的檔,並且只能讀寫文字檔案。很多人都選擇用ADODB.STREAM物件來替代FSO物件，因為STREAM類有LOADFROMFILE和SAVETOFILE方法.並且有一個至關重要的屬性CHARSET,這是FSO沒有的。本篇文章回覆於2006-11-23 12:22 --未登入的會員無法查看對方簽名檔--
11樓作者回應 ChaN	請問有相關透過Stream匯出Excel的方式可以提供參考嗎? 本篇文章回覆於2006-11-23 13:20 --未登入的會員無法查看對方簽名檔--
12樓回應 longer	把ASP程式檔，存檔類型改為utf-8，不要用ANSI 本篇文章回覆於2006-11-23 19:05 --未登入的會員無法查看對方簽名檔--
13樓作者回應 ChaN	我是用utf-8沒錯請問有人可以幫幫小弟嗎一個客戶需要Excel匯出現在頭大了本篇文章回覆於2007-03-09 18:46 --未登入的會員無法查看對方簽名檔--
14樓回應水水	我碰到跟您一樣的問題,爬文爬到破頭,後來用了一個笨方法解決: (1)asp網頁用CODEPAGE="950" charset=big5 (2)response.write放在<body></body>中間 (3)網頁顯示沒問題後加一個botton(轉存excel檔),按下後要客戶儲存成(存檔類型:文字(.txt),語言:unicode),存csv或excel都可以. 以下是我的程式碼供參考: <%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%> <!--#include file="../../Connections/CONN_NTIFO.asp" --> <% set RS_training_PO = Server.CreateObject("ADODB.Recordset") RS_training_PO.ActiveConnection = MM_CONN_NTIFO_STRING RS_training_PO.Source = "SELECT FROM Training_PO RS_training_PO.CursorType = 3 RS_training_PO.CursorLocation = 2 RS_training_PO.LockType = 3 RS_training_PO.Open() %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=big5"> <title>無標題文件</title> </head> <body> <% While (NOT RS_training_PO.BOF) AND (NOT RS_training_PO.EOF) Response.Write "" & Trim(RS_training_PO("ID_No")) & "," Response.Write "" & Trim(RS_training_PO("Name")) & "," Response.Write "" & Trim(RS_training_PO("Department")) & "<br>" RS_training_PO.MoveNext() Wend %> <input type="button" name="SaveAs" value="轉存EXCEL檔" onclick="document.execCommand('SaveAs', true, 'test.csv');"> </body> </html> <% RS_training_PO.Close() %> 本篇文章回覆於2007-03-26 15:16 --未登入的會員無法查看對方簽名檔--