Scripts 学盟

标题: asp将sql数据导成excel，网上找的都会乱码，不知道为什么，改了编码还是一样。我现在 [打印本页]

作者: 匿名 时间: 2013-5-31 17:09:41 标题: asp将sql数据导成excel，网上找的都会乱码，不知道为什么，改了编码还是一样。我现在

asp将sql数据导成excel，网上找的都会乱码，不知道为什么，改了编码还是一样。我现在用的是office2007，是不是跟版本有关，急救

作者: 混混@普宁.中国 时间: 2013-5-31 22:38:26

1. 下载 http://www.iscripts.org/sct/org/ ... ordsetConverter.sct

2. 建立 access 数据库 db.mdb

3. 下面代码保存为 export.asp

<%@ language="VBScript" codepage="65001" %>

<%

Response.CodePage = 65001

Response.CharSet = "UTF-8"

Response.LCID = 2052

Response.ContentType = "application/vnd.ms-excel"

Response.AddHeader "Content-Disposition", "attachment; filename=myTab.xls";



Dim conn, rs, converter

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")



Set rs = conn.Execute("SELECT * FROM myTab")

Set converter = GetObject("script:" & Server.MapPath("RecordsetConverter.sct"))  



Response.Write converter.toXLS(rs)



Set converter = Nothing

rs.Close

Set rs = Nothing

conn.Close

Set conn = Nothing



%>

export.asp, RecordsetConverter.sct, db.mdb 放在同一目录

访问 export.asp

欢迎光临 Scripts 学盟 (http://www.iscripts.org/)