Setelah asp mengimpor data ke excel, karakter Cina tampak kacau? ? bagaimana menyelesaikannya

Penulis：Eve Cole Waktu Pembaruan：2009-06-25 17:44:35

Pertanyaan: Setelah asp mengimpor data ke excel, apakah bahasa China tampak kacau? ? bagaimana menyelesaikannya


<%
Respon.Charset = "UTF-8"
'File yang disertakan sebelumnya adalah dan untuk ditautkan ke database, Anda perlu memodifikasi file ini untuk ditautkan ke perpustakaan lain

sql1="select * from apply " 'Berikut adalah pernyataan query untuk menampilkan EXCEL, seperti "SESECT * FORM CAI WHERE gender='female'"
filename="excel4.xls" 'Nama file dari file EXCEL yang akan di-output, Anda hanya perlu mengubah dua kalimat di atas, jangan mengubah apa pun.

panggilan ke excel(NAMA FILE,sql1)
setel samb=tidak ada

function ReadText(FileName) 'Ini adalah fungsi untuk membaca file
'response.write server.MapPath(Nama File)
'respons.akhir
setel adf=server.CreateObject("Adodb.Stream")
dengan adf
.Jenis=2
.Pemisah Garis=10
.Membuka
.LoadFromFile (server.MapPath(Nama File))
.Charset="GB2312"
.Posisi=2
BacaTeks=.BacaTeks
.Membatalkan()
.Menutup()
diakhiri dengan
setel iklan=tidak ada
fungsi akhir

sub SaveText(NamaFile,Data) 'Ini adalah fungsi untuk menulis file
set fs= buat objek("scripting.filesystemobject")
setel ts=fs.createtextfile(server.MapPath(NamaFile),true)
ts.writeline(data)
ts.tutup
set=tidak ada
atur fs=tidak ada
sub akhir

sub toexcel(nama file,sql) 'Ini adalah file EXCEL yang dihasilkan berdasarkan pernyataan SQL dan NAMA FILE
Setel rs=Server.CreateObject("ADODB.RecordSet")
'Respon.Tulis sql
'respons.akhir
rs.Buka sql,objconn,1,1
TOEXCELLR="<lebar tabel='100%'><tr >"
atur bidangku=rs.fields
nama bidang redup (50)
untuk i=0 hingga myfield.count-1
toexcellr=toexcellr&"<td class=xl24>"&MYFIELD(I).NAMA&"</td>"
nama bidang(i)=bidangsaya(i).nama
jika bidangku(i).type=135 maka namatanggal=namatanggal&bidangku(i).nama&","
Berikutnya
toexcellr=toexcellr&"</tr>"
lakukan selagi tidak rs.eof
toexcellr=toexcellr&"<tr>"
untuk i=0 hingga myfield.count-1
jika instr(namatanggal,namabidang(i)&",")<>0 maka
jika bukan isnull(rs(nama bidang(i))) maka
TOEXCELLR=TOEXCELLR&"<td class=xl25 ><p align='left'>"&formatdatetime(rs(fieldname(i)),2)&"</p></td>"
kalau tidak
TOEXCELLR=TOEXCELLR&"<td class=xl25 ><p align='left'> </p></td>"
berakhir jika
kalau tidak
TOEXCELLR=TOEXCELLR&"<td class=xl24 >"&rs(nama bidang(i))&"</td>"
berakhir jika
Berikutnya
toexcellr=toexcellr&"</tr>"
rs.movenext
lingkaran
rs.tutup
toexcellr=toexcellr&"</tabel>"
tou=bacateks("tou.txt")
di=teks baca("di.txt")
toexcellr=Anda&toexcellr&di
panggil savetext(nama file,toexcellr)
sub akhir
%>
<html>
<kepala>
<meta http-equiv="refresh" content="3;URL=<%=nama file%>">
<meta http-equiv="Bahasa-Konten" content="en-us">
<meta http-equiv="Jenis Konten" content="teks/html; charset=UTF-8">
<title>Membuat file EXCEL</title>
</kepala>
<TUBUH>
Menghasilkan file EXCEL....
</BODI>
</HTML>
menjawab:
EXEC master..xp_cmdshell 'bcp "SELECT * FROM nama perpustakaan.dbo.apply di mana gender=female" queryout "excel4.xls" -c -q -S"nama server" -U"nama pengguna" -P"kata sandi"'

Saya menggunakan metode ini untuk mengekspor ke excel tanpa karakter yang kacau. Anda dapat mencobanya, database sql