开发学院 WEB开发 ASP asp将数据导入excel后，中文出现乱码？？怎么解决... 阅读

asp将数据导入excel后，中文出现乱码？？怎么解决

　2008-08-06 10:37:33　来源：WEB开发网　闂傚倸鍊搁崐椋庢濮橆兗缂氱憸宥堢亱闂佸湱铏庨崰鏍不椤栫偞鐓ラ柣鏇炲€圭€氾拷

闂傚倸鍊搁崐椋庣矆娓氣偓楠炲鏁撻悩鎻掔€梺姹囧灩閻忔艾鐣烽弻銉︾厵闁规鍠栭。濂告煕鎼达紕校闁靛洤瀚伴獮鎺楀箣濠靛啫浜鹃柣銏⑶圭壕濠氭煙閻愵剚鐏辨俊鎻掔墛缁绘盯宕卞Δ鍐冣剝绻涘畝濠佺敖缂佽鲸鎹囧畷鎺戭潩閹典焦鐎搁梻浣烘嚀閸ゆ牠骞忛敓锟�

婵犵數濮烽弫鍛婃叏椤撱垹绠柛鎰靛枛瀹告繃銇勯幘瀵哥畼闁硅娲熷缁樼瑹閳ь剙岣胯鐓ら柕鍫濇偪濞差亜惟闁宠桨鑳堕崝锕€顪冮妶鍡楃瑐闁煎啿鐖奸崺濠囧即閵忥紕鍘梺鎼炲劗閺呮稒绂掕缁辨帗娼忛埡浣锋闂佽桨鐒﹂幑鍥极閹剧粯鏅搁柨鐕傛嫹闂傚倸鍊搁崐椋庢濮橆兗缂氱憸宥堢亱闂佸湱铏庨崰鏍不椤栫偞鐓ラ柣鏇炲€圭€氾拷　　闂傚倸鍊搁崐鐑芥嚄閼哥數浠氱紓鍌欒兌缁垶銆冮崨鏉戠厺鐎广儱顦崡鎶芥煏韫囨洖校闁诲寒鍓熷铏圭磼濡搫顫岄梺璇茬箲濮樸劑鍩€椤掍礁鍤柛鎾跺枎椤繐煤椤忓嫬鐎銈嗘礀閹冲酣宕滄导瀛樷拺闂侇偆鍋涢懟顖涙櫠椤斿墽纾煎璺猴功缁夎櫣鈧鍠栭…閿嬩繆濮濆矈妲烽梺绋款儐閹瑰洤螞閸愩劉妲堟繛鍡楃箲濞堟﹢姊绘担椋庝覆缂傚秮鍋撴繛瀛樼矤閸撶喖宕洪埀顒併亜閹烘垵鈧綊寮抽鍕厱閻庯綆浜烽煬顒傗偓瑙勬磻閸楀啿顕ｉ崐鐕佹Ь闂佸搫妫寸粻鎾诲蓟閵娾晜鍋嗛柛灞剧☉椤忥拷

核心提示：问：asp将数据导入Excel后，中文出现乱码？？怎么解决  <

问：asp将数据导入Excel后，中文出现乱码？？怎么解决
　
　
<%　
Response.Charset　 =　 "UTF-8"　
'前面包含的文件是和来链接到数据库,你要修改这个文件以链接到不同的库　
　
sql1="select　 *　 from　 apply　 "　　 '这里是要输出EXCEL的查询语句，如　 "SESECT　 *　 FORM　 CAI　 WHERE　性别='女'"　
filename="excel4.xls"　　　 '　要输出的EXCEL文件的文件名,　你只要改以上两句就行了,其它的都不要改.　
　
call　 toexcel(FILENAME,sql1)　
set　 conn=nothing　
　
function　 ReadText(FileName)　　 '这是一个用于读出文件的函数　
　　 'response.write　 server.MapPath(FileName)　
　　 'response.end　
set　 adf=server.CreateObject("Adodb.Stream")　
with　 adf　
.Type=2　
.LineSeparator=10　
.Open　
.LoadFromFile　 (server.MapPath(FileName))　
.Charset="GB2312"　
.Position=2　
ReadText=.ReadText　
.Cancel()　
.Close()　
end　 with　
set　 ads=nothing　
end　 function　
　
sub　 SaveText(FileName,Data)　　 '这是一个用于写文件的函数　
set　 fs=　 createobject("scripting.filesystemobject")　　
　　　　 set　 ts=fs.createtextfile(server.MapPath(FileName),true)　
　　　　 ts.writeline(data)　
　　　　 ts.close　
　　　　 set　 ts=nothing　
　　　　 set　 fs=nothing　
end　 sub　
　
sub　 toexcel(filename,sql)　　 '这是一个根据SQL语句和FILENAME生成EXCEL文件　
　　 Set　 rs=Server.CreateObject("ADODB.RecordSet")　　
　　　 'Response.Write　　 sql　
　　 'response.end　
　　 rs.Open　 sql,objconn,1,1　
　　 TOEXCELLR="<table　 width='100%'><tr　 >"　
　　 set　 myfield=rs.fields　
　　 dim　 fieldname(50)　
　　 for　 i=0　 to　 myfield.count-1　
　　　　　 toexcellr=toexcellr&"<td　 class=xl24>"&MYFIELD(I).NAME&"</td>"　
　　　　　 fieldname(i)=myfield(i).name　
　　　　　 if　 myfield(i).type=135　 then　 datename=datename&myfield(i).name&","　
　　 next　
　　 toexcellr=toexcellr&"</tr>"　
　　 do　 while　 not　 rs.eof　
　　　　 toexcellr=toexcellr&"<tr>"　
　　　　 for　 i=0　 to　 myfield.count-1　　
　　　　　　 if　 instr(datename,fieldname(i)&",")<>0　 then　
　　　　　　　　 if　 not　 isnull(rs(fieldname(i)))　 then　
　　　　　　　　　　　 TOEXCELLR=TOEXCELLR&"<td　 class=xl25　 ><p　 align='left'>"&formatdatetime(rs(fieldname(i)),2)&"</p></td>"　
　　　　　　　　 else　
　　　　　　　　　　　 TOEXCELLR=TOEXCELLR&"<td　　 class=xl25　 ><p　 align='left'>　</p></td>"　
　　　　　　　　 end　 if　
　　　　　　 else　
　　　　　　　　　 TOEXCELLR=TOEXCELLR&"<td　 class=xl24　 >"&rs(fieldname(i))&"</td>"　
　　　　　　 end　 if　
　　　　 next　
　　　　 toexcellr=toexcellr&"</tr>"　
　　　　 rs.movenext　
　　 loop　
　　 rs.close　
　　 toexcellr=toexcellr&"</table>"　
　　 tou=readtext("tou.txt")　
　　 di=readtext("di.txt")　
　　 toexcellr=tou&toexcellr&di　
　　 call　 savetext(filename,toexcellr)　
end　 sub　
%>　
<html>　
<head>　
<meta　 http-equiv="refresh"　 content="3;URL=<%=filename%>">　　
<meta　 http-equiv="Content-Language"　 content="en-us">　
<meta　 http-equiv="Content-Type"　 content="text/html;　 charset=UTF-8">　
<title>正在生成EXCEL文件</title>　
</head>　
<BODY>　
正在生成EXCEL文件....　
</BODY>　
</HTML>
答：
EXEC　 master..xp_cmdshell　 'bcp　 "SELECT　 *　 FROM　库名.dbo.apply　 where　性别=女"　 queryout　 "excel4.xls"　 -c　 -q　 -S"服务器名"　 -U"用户名"　 -P"密码"'　
　
我用这种方法导出到excel没有出现乱码，你试下吧，sql数据库