asp导出xls乱码问题

[dusttosky]

sql="select xh 序号,spbm 商品编码,spmc 商品名称,yss 核算重量 from sxysd where ysrq='"&ysrq&"' "

同样的导出sql代码语句,从sql2000导出,正常显示中文, 现在从mysql导出数据,sql语句别名导出后显示乱码,查了很多资料,都没解决,求大神打救~~~~

Response.CharSet = "gb2312" 这里改GBK 改 utf-8, 从mysql数据库导出到xls表中文别名都是乱码. 但是从sql2000数据库导出就正常显示.


下面是我的完整代码:

<% 
Response.Buffer = true
Response.AddHeader "Content-Disposition","attachment;filename=text.csv;" 
Response.CharSet = "gb2312" 
Response.ContentType = "application/octet-stream" 

Dim conn

set conn=server.CreateObject("adodb.connection")
strconnection="dsn=conn;Driver={mysql driver};server=localhost;uid=root;pwd=11111111111;database=TD"
set  conn  =  server.createobject("adodb.connection")
conn.CursorLocation=3
conn.open  strconnection

Dim rs

ysrq=request("ysrq")

set rs=server.CreateObject("adodb.recordset")
sql="select xh 序号,spbm 商品编码,spmc 商品名称,yss 核算重量 from sxysd where ysrq='"&ysrq&"' "
rs.open sql,conn,1,1

IF RS.EOF THEN 
Response.Write("没有可导出数据！")
response.end
END IF 

IF LEN(strFields)>0 THEN
Response.Write replace(strFields,"ID","id") '防止出现SYLK文件打开提示
ELSE
FOR I =0 TO rs.FIELDS.COUNT-1
'strFields=strFields &RST.FIELDS(I).NAME & ","
'防止出现SYLK文件打开提示
'以ID（大写)内容开头的文件
strFields=strFields & replace(rs.FIELDS(I).NAME,"ID","id") & "," 
NEXT 
strFields=LEFT(strFields,LEN(strFields)-1)
Response.Write(strFields)
END IF

Response.Write(vbcrlf)

Response.Write(rs.GetString(,,","))

%>

[dusttosky]

补充一下,就是导出xls表后的抬头乱码, 数据内容的中文是正常的. 从mysql乱码, sql2000正常.

所以是不是这个别名的问题: sql="select xh 序号,spbm 商品编码,spmc 商品名称,yss 核算重量 from sxysd


搴忓彿 鍟嗗搧缂栫爜 鍟嗗搧鍚嶇О 鏍哥畻閲嶉噺
1 9030013 杨桃 13.4
2 9030021 红岗橙 45.5

[csdn_aspnet]

看一下你的mysql数据库编码格式 是什么 可修改数据库UTF-8编码