asp导出excel源码（asp.net 将数据导出到excel的完整代码整了很长时间没能出来，谢谢）

本文目录

• asp.net 将数据导出到excel的完整代码整了很长时间没能出来，谢谢
• asp 导出excel表格
• 求关于asp.net+mvc代码导出数据Excel表格形式的
• asp源码导入、导出EXCEL数据
• asp代码实现access数据导出到excel文件
• ASP导出Excel数据的四种方法
• 我做一个ASP人员信息表单提交系统，我想在后台查询出来的信息可以导出EXCEL来求导出代码！ 非常感谢！！
• 在ASP中怎么把页面中的数据导出到EXCEL
• ASP+access 怎么 导出Excel

asp.net 将数据导出到excel的完整代码整了很长时间没能出来，谢谢

我这里有把dataTable的转为excel的数据。你把datalist 转为datatable就行了。是CSV文件，兼容EXCEL2003和2007.后面还有导出纯xls文件的，导出为2003版，但在模态窗口中不能用。。。
CSV：
/// 《param name="dt"》dataTable《/param》
/// 《param name="fileName"》文件名称《/param》
public static void ExportCSV(DataTable dt, string fileName)
{
HttpContext.Current.Response.Clear();
System.IO.StringWriter sw = new System.IO.StringWriter();
int iColCount = dt.Columns.Count;
for (int i = 0; i 《 iColCount; i++)
{
sw.Write("\"" + dt.Columns + "\"");
if (i 《 iColCount - 1)
{
sw.Write(",");
}
}
sw.Write(sw.NewLine);
foreach (DataRow dr in dt.Rows)
{
for (int i = 0; i 《 iColCount; i++)
{
if (!Convert.IsDBNull(dr))
sw.Write("\"" + dr.ToString() + "\"");
else
sw.Write("\"\"");
if (i 《 iColCount - 1)
{
sw.Write(",");
}
}
sw.Write(sw.NewLine);
}
sw.Close();
HttpContext.Current.Response.AddHeader("Content-Disposition", "attachment; filename=\"" + HttpUtility.UrlEncode(fileName) + "\"");
HttpContext.Current.Response.ContentType = "application/vnd.ms-excel";
HttpContext.Current.Response.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312");
HttpContext.Current.Response.Write(sw);
HttpContext.Current.Response.End();
}
下面是导出xls,
/// 《summary》
/// 普通导出EXECL的方法
/// 《/summary》
/// 《param name="dt"》数据表《/param》
/// 《param name="fileName"》文件名《/param》
/// 《param name="page"》固定输入:page《/param》
public void CreateExcel(DataTable dt,string fileName,Page page)
{
HttpResponse resp;
resp = page.Response;
resp.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312");
resp.AppendHeader("Content-Disposition", "attachment;filename=" +HttpContext.Current.Server.UrlPathEncode(fileName));
string colHeaders = "", ls_item = "";
////定义表对象与行对象，同时用DataSet对其值进行初始化
//DataTable dt = ds.Tables;
DataRow myRow = dt.Select();//可以类似dt.Select("id》10")之形式达到数据筛选目的
int i = 0;
int cl = dt.Columns.Count;
//取得数据表各列标题，各标题之间以t分割，最后一个列标题后加回车符
for (i = 0; i 《 cl; i++)
{
if (i == (cl - 1))//最后一列，加n
{
colHeaders += dt.Columns.Caption.ToString() + "\n";
}
else
{
colHeaders += dt.Columns.Caption.ToString() + "\t";
}
}
resp.Write(colHeaders);
//向HTTP输出流中写入取得的数据信息
//逐行处理数据
foreach (DataRow row in myRow)
{
//当前行数据写入HTTP输出流，并且置空ls_item以便下行数据
for (i = 0; i 《 cl; i++)
{
if (i == (cl - 1))//最后一列，加n
{
ls_item += row.ToString().Trim().Replace("\r\n", " ") + "\n";
}
else
{
ls_item += row.ToString().Trim().Replace("\r\n", " ") + "\t";
}
}
resp.Write(ls_item);
ls_item = "";
}
resp.End();
}

asp 导出excel表格

给你段代码：《%
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("数据库.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn
%》
《HTML》
《HEAD》
***隐藏网址***
《TITLE》生成EXCEL文件《/TITLE》
《/HEAD》
《body》
《a href="?act=make"》在线生成EXCEL《/a》
《a href="record.xls" target="_blank"》下载《/a》
《hr size=1 align=left width=300px》
《%
if Request("act") = "" then
Response.Write "生成EXCEL文件"
elsedim rs,sql,filename,fs,myfile,x
Set fs = server.CreateObject("scripting.filesystemobject")
filename = Server.MapPath("record.xls")
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end ifset myfile = fs.CreateTextFile(filename,true)Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from record worder by id desc"
rs.Open sql,conn,1,1
if rs.EOF and rs.BOF thenelse
dim strLine,responsestr
strLine=""
For each x in rs.fields
strLine = strLine & x.name & chr(9)
Next
myfile.writeline strLine
Do while Not rs.EOF
strLine=""
for each x in rs.Fields
strLine = strLine & x.value & chr(9)
next
myfile.writeline strLine
rs.MoveNext
loop
end if
rs.Close
set rs = nothing
End If
%》

求关于asp.net+mvc代码导出数据Excel表格形式的

private void ExportExcelFromDataGrid( string filename , System.Web.UI.WebControls.DataGrid ToExcelGrid )
{
Response.Clear();
Response.Buffer=true;
Response.Charset="utf-8";
Response.AppendHeader("Content-Disposition","attachment;filename="+Server.UrlEncode ( filename ) );
Response.ContentEncoding=System.Text.Encoding.Default;//设置输出流为简体中文
Response.C;//设置输出文件类型为excel文件。
this.EnableViewState=false;
System.Globalization.CultureInfo myCItrad=new System.Globalization.CultureInfo("ZH-CN",true);
System.IO.StringWriter oStringWriter=new System.IO.StringWriter(myCItrad);
System.Web.UI.HtmlTextWriter oHtmlTextWriter=new System.Web.UI.HtmlTextWriter(oStringWriter);
ToExcelGrid.RenderControl(oHtmlTextWriter);
Response.Write(oStringWriter.ToString());
Response.End();
}
private void Button4_Click(object sender, System.EventArgs e)
{
this.Panel1.Visible=false;
string filename="内训师.xls";
this.DataGrid1.Columns.Visible=true;
this.DataGrid1.Columns.Visible=true;
this.DataGrid1.Columns.Visible=false; // *
this.DataGrid1.Columns.Visible=false; // *
this.DataGrid1.AllowSorting=false; // *
this.DataGrid1.AllowPaging=false;
this.DataGrid1.SelectedIndex=-1; // *
this.BindGrid();
this.ExportExcelFromDataGrid ( filename , this.DataGrid1 );
}
原理是利用DataGrid（其实是其父类Control）的RenderControl方法输出，整个DataGrid的外观时，将这些HTML代码写入到缓冲区，同时设置一下 ContentType ，让Excel自己的自动纠错功能将这个输出存为一个Excel文件。
很多网上的朋友使用了以上这种可粘贴性强的代码，发现不好用，反映的错误类似：
“LinkButton必须放在一个具有runat=server的标签的Form”之类的话，而更多的网友说：
问题很明显，因为DataGrid没有放在runat=server 的Form里面，加上就可以了。
我认为，这种回答是很不准确的，理由如下：
通常使用这种代码的人他/她的DataGrid，最起码已经能用了，所以必定放在那个具有runat=server 的form标签里了。
报错是LinkButton，而不是DataGrid，很多细心的朋友很可能会说，我一直在用DataGrid，LinkButton在哪里来的。
其实真正的问题是，上面的代码没有加了 // * 的那几行代码引起的。
当然如果你的DataGrid，没有排序，没有使用那种按钮列的话，是不会出问题的。
言归正传，LinkButtion其实是你将DataGrid设为可排序时候，的表头包含的，所以我要将DataGrid的排序设为False。
同样得到上面的其实，那些按钮列，什么""、“删除”等等这些，也是用了LinkButton，把他设为不可见就是了。
其实说得再明白一点就是，将有可能产生LinkButton，或其他控件的东西都不让它输出就是了。

asp源码导入、导出EXCEL数据

下面这个函数你可以放在类中，随时拿来用， 这是一个讲OleDbDataReader导出EXCEL的函数， 三个参数，第一个是页面，默认是本页this， 第二个是OleDbDataReader，第三个是导出的文件名
public void CreateExcel(System.Web.UI.Page Page, OleDbDataReader dr, string FileName)
{
HttpResponse resp;
resp = Page.Response;
resp.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312");
resp.AppendHeader("Content-Disposition", "attachment;filename=" + FileName);
string colHeaders = "", ls_item = "";
int i = 0;
for (i = 0; i 《 dr.FieldCount - 1; i++)
{
colHeaders += dr.GetName(i).ToString() + "\t";
}
colHeaders += dr.GetName(i).ToString() + "\n";
//向HTTP输出流中写入取得的数据信息
resp.Write(colHeaders);
//逐行处理数据
while (dr.Read())
{
//在当前行中，逐列获得数据，数据之间以\t分割，结束时加回车符\n
for (i = 0; i 《 dr.FieldCount - 1; i++)
{
ls_item += dr.ToString() + "\t";
}
ls_item += dr.ToString() + "\n";
//当前行数据写入HTTP输出流，并且置空ls_item以便下行数据
resp.Write(ls_item);
ls_item = "";
}
//写缓冲区中的数据到HTTP头文件中
resp.End();
}

asp代码实现access数据导出到excel文件

　　asp代码实现access数据导出到excel文件：
　　一，下面是导出XLS格式
%
dimreferer
referer=Request.ServerVariables(HTTP_REFERER)
DimCName,action
action=request.Form(action)
CName=../../Excel/
dimdaytime
daytime=year(now())-month(now())-day(now())-hour(now())-Minute(now())
daytime=year(now())年month(now())月day(now())日hour(now())时
Setrs=Server.CreateObject(ADODB.Recordset)
--从数据库中把你想放到EXCEL中的数据查出来
sql=select*fromgbookorderbyiddesc
rs.Opensql,conn
ifrs.EOFandrs.BOFthen
response.writescriptalert(操作出错，下面是产生错误的可能原因：nn库里暂时没有数据，所以不能导出EXCEL文件!);location.href=referer;/script
response.end
else
dimfilename,fs,myfile,x
Setfs=server.CreateObject(scripting.filesystemobject)
--假设你想让生成的EXCEL文件做如下的存放
filename=Server.MapPath(CNamedaytime.xls)
--如果原来的EXCEL文件存在的话删除它
iffs.FileExists(filename)then
fs.DeleteFile(filename)
endif
--创建EXCEL文件
setmyfile=fs.CreateTextFile(filename,true)
dimstrLine,responsestr
strLine=
Foreachxinrs.fields
strLine=strLinex.namechr(9)
Next
--将表的列名先写入EXCEL
myfile.writelinestrLine
DowhileNotrs.EOF
strLine=
foreachxinrs.Fields
strLine=strLinex.valuechr(9)
next
--将表的数据写入EXCEL
myfile.writelinestrLine
rs.MoveNext
loop
rs.Close
setrs=nothing
conn.close
setconn=nothing
setmyfile=nothing
Setfs=Nothing
Response.WriteBRBRcenterb导出成功,请选择继续操作/b/center
Response.Writebr
response.Writetablewidth=90%cellspacing=1cellpadding=3align=center
Response.Writetralign=centertd
response.write(fontcolor=green/fontahref=CNameENames.xls下载/a)nbsp;nbsp;fontcolor=green/fontahref=referer返回/a
Response.Write/td/tr/table
endif
%
　　二，下面是导出CSV格式
%
dimreferer
referer=Request.ServerVariables(HTTP_REFERER)
DimCName,action
action=request.Form(action)
CName=../../Excel/
dimdaytime
daytime=year(now())-month(now())-day(now())-hour(now())-Minute(now())
daytime=year(now())年month(now())月day(now())日hour(now())时
Setrs=Server.CreateObject(ADODB.Recordset)
--从数据库中把你想放到EXCEL中的数据查出来
sql=select*fromgbookorderbyiddesc
rs.Opensql,conn
ifrs.EOFandrs.BOFthen
response.writescriptalert(操作出错，下面是产生错误的可能原因：nn库里暂时没有数据，所以不能导出EXCEL文件!);location.href=referer;/script
response.end
else
DimFs,Exc
DimExcelstring,ExcelHead,Excelstr,Excelstr2
DimScou_FileNamen,Scou_FieldList
DimDest_FileName,Dest_FieldList
Dest_FileName=CNamedaytime.csv
Excelstring=
ExcelHead=识别号,主题类型,公司名称,姓名,性别,职位,城市省份,城市,公司地址,邮编,邮件,电话,传真,手机,公司网址,详细内容,IP地址,留言时间
SetRs=Server.CreateObject(ADODB.Recordset)
Sql=Select*Fromgbook
Rs.OpenSql,Conn,1,3
DoWhileNotRs.Eof
Excelstr=Rs(ID),Rs(zhutiname),Rs(gsname),Rs(gsname),Rs(sex),Rs(zhiwei),Rs(Province),Rs(City),Rs(dizhi),Rs(youbian),Rs(email),Rs(tel),Rs(fax),Rs(tel2),Rs(homeurl),Rs(body),Rs(ip),Rs(addtime)
Excelstr2=Excelstr2Chr(13)Excelstr
Rs.Movenext
Loop
Excelstring=ExcelHeadExcelstr2
Rs.Close

ASP导出Excel数据的四种方法

　　  一 使用OWC

　　什么是OWC？

　　OWC是Office Web Compent的缩写 即Microsoft的Office Web组件 它为在Web中绘制图形提供了灵活的同时也是最基本的机制 在一个intranet环境中 如果可以假设客户机上存在特定的浏览器和一些功能强大的软件（如IE 和Office ） 那么就有能力利用Office Web组件提供一个交互式图形开发环境 这种模式下 客户端工作站将在整个任务中分担很大的比重

＜%Option Explicit Class ExcelGen Private objSpreadsheet Private iColOffset

Private iRowOffset Sub Class_Initialize() Set objSpreadsheet = Server CreateObject( OWC Spreadsheet ) iRowOffset = iColOffset = End Sub

Sub Class_Terminate() Set objSpreadsheet = Nothing Clean up End Sub

Public Property Let ColumnOffset(iColOff) If iColOff ＞ then iColOffset = iColOff Else iColOffset = End If End Property

Public Property Let RowOffset(iRowOff) If iRowOff ＞ then iRowOffset = iRowOff Else iRowOffset = End If End Property Sub GenerateWorksheet(objRS) Populates the Excel worksheet based on a Recordset s contents Start by displaying the titles If objRS EOF then Exit Sub Dim objField iCol iRow iCol = iColOffset iRow = iRowOffset For Each objField in objRS Fields objSpreadsheet Cells(iRow iCol) Value = objField Name objSpreadsheet Columns(iCol) AutoFitColumns 设置Excel表里的字体 objSpreadsheet Cells(iRow iCol) Font Bold = True objSpreadsheet Cells(iRow iCol) Font Italic = False objSpreadsheet Cells(iRow iCol) Font Size = objSpreadsheet Cells(iRow iCol) Halignment = 居中 iCol = iCol + Next objField Display all of the data Do While Not objRS EOF iRow = iRow + iCol = iColOffset For Each objField in objRS Fields If IsNull(objField Value) then objSpreadsheet Cells(iRow iCol) Value = Else objSpreadsheet Cells(iRow iCol) Value = objField Value objSpreadsheet Columns(iCol) AutoFitColumns objSpreadsheet Cells(iRow iCol) Font Bold = False objSpreadsheet Cells(iRow iCol) Font Italic = False objSpreadsheet Cells(iRow iCol) Font Size = End If iCol = iCol + Next objField objRS MoveNext Loop End Sub Function SaveWorksheet(strFileName)

Save the worksheet to a specified filename On Error Resume Next Call objSpreadsheet ActiveSheet Export(strFileName ) SaveWorksheet = (Err Number = ) End Function End Class

Dim objRS Set objRS = Server CreateObject( ADODB Recordset ) objRS Open SELECT * FROM xxxx Provider=SQLOLEDB ;Persist Security

Info=True;User ID=xxxx;Password=xxxx;Initial Catalog=xxxx;Data source=xxxx; Dim SaveName SaveName = Request Cookies( savename )( name ) Dim objExcel Dim ExcelPath ExcelPath = Excel\ & SaveName & xls Set objExcel = New ExcelGen objExcel RowOffset = objExcel ColumnOffset = objExcel GenerateWorksheet(objRS) If objExcel SaveWorksheet(Server MapPath(ExcelPath)) then Response Write ＜＞＜body bgcolor= gain *** oro text= # ＞已保存为Excel文件

＜a href= & server URLEncode(ExcelPath) & ＞下载＜/a＞ Else Response Write 在保存过程中有错误! End If Set objExcel = Nothing objRS Close Set objRS = Nothing %＞

　　 二 用Excel的Application组件在客户端导出到Excel或Word

　　注意 两个函数中的 data 是网页中要导出的table的 id

＜input type= hidden name= out_word onclick= vbscript:buildDoc value= 导出到word class= notPrint ＞ ＜input type= hidden name= out_excel onclick= AutomateExcel(); value= 导出到excel class= notPrint ＞ 

　　导出到Excel代码

＜SCRIPT LANGUAGE= javascript ＞ ＜! function AutomateExcel() { // Start Excel and get Application object var oXL = new ActiveXObject( Excel Application ); // Get a new workbook var oWB = oXL Workbooks Add(); var oSheet = oWB ActiveSheet; var table = document all data; var hang = table rows length;

var lie = table rows( ) cells length;

// Add table headers going cell by cell for (i= ;i＜hang;i++) { for (j= ;j＜lie;j++) { oSheet Cells(i+ j+ ) value = table rows(i) cells(j) innerText; }

} oXL Visible = true; oXL UserControl = true; } // ＞ ＜/SCRIPT＞ 

　　导出到Word代码

＜script language= vbscript ＞ Sub buildDoc set table = document all data row = table rows length column = table rows( ) cells length

Set objWordDoc = CreateObject( Word Document )

objWordDoc Application Documents Add theTemplate False objWordDoc Application Visible=True

Dim theArray( ) for i= to row for j= to column theArray(j+ i+ ) = table rows(i) cells(j) innerTEXT next next objWordDoc Application ActiveDocument Paragraphs Add Range InsertBefore( 综合查询结果集 ) //显示表格标题

objWordDoc Application ActiveDocument Paragraphs Add Range InsertBefore( ) Set rngPara = objWordDoc Application ActiveDocument Paragraphs( ) Range With rngPara Bold = True //将标题设为粗体 ParagraphFormat Alignment = //将标题居中 Font Name = 隶书 //设定标题字体 Font Size = //设定标题字体大小 End With Set rngCurrent = objWordDoc Application ActiveDocument Paragraphs( ) Range Set tabCurrent = ObjWordDoc Application ActiveDocument Tables Add(rngCurrent row column)

for i = to column

objWordDoc Application ActiveDocument Tables( ) Rows( ) Cells(i) Range InsertAfter theArray(i ) objWordDoc Application ActiveDocument Tables( ) Rows( ) Cells(i) Range ParagraphFormat alignment= next For i = to column For j = to row objWordDoc Application ActiveDocument Tables( ) Rows(j) Cells(i) Range InsertAfter theArray(i j) objWordDoc Application ActiveDocument Tables( ) Rows(j) Cells(i) Range ParagraphFormat alignment= Next Next

End Sub ＜/SCRIPT＞ 

　　 三 直接在IE中打开 再存为EXCEL文件

　　把读出的数据用＜table＞格式 在网页中显示出来 同时 加上下一句即可把EXCEL表在客客户端显示

＜%response ContentType = application/vnd ms excel %＞ 

　　注意 显示的页面中 只把＜table＞输出 最好不要输出其他表格以外的信息

　　 四 导出以半角逗号隔开的csv

　　用fso方法生成文本文件的方法 生成一个扩展名为csv文件 此文件 一行即为数据表的一行 生成数据表字段用半角逗号隔开 （有关fso生成文本文件的方法 在此就不做介绍了）

　　CSV文件介绍 （逗号分隔文件）

　　选择该项系统将创建一个可供下载的CSV 文件 CSV是最通用的一种文件格式 它可以非常容易地被导入各种PC表格及数据库中

　　请注意即使选择表格作为输出格式 仍然可以将结果下载CSV文件 在表格输出屏幕的底部 显示有 CSV 文件 选项 点击它即可下载该文件

我做一个ASP人员信息表单提交系统，我想在后台查询出来的信息可以导出EXCEL来求导出代码！ 非常感谢！！

《%
’ 链接数据库的代码省略,其他的代码你自己修改下；字段什么的 ,不懂的再联系我吧
if request("action")="goto" then
dbpath="../"
dim filename,fs,myfile,x,m,n,o,link
Set fs = server.CreateObject("scripting.filesystemobject")
Set rs = Server.CreateObject("ADODB.Recordset")
session("sql") = "select model,ph,fz,changs,num,danwei,s_price,huobi,gongying,shui,S_content,S_time from In_SearchPrice where 1=1 order by S_time desc,id desc"
rs.Open session("sql"),conn,1,1
n=1
’==================================================================
’==============================================================建立excel文件系统
filename = Server.MapPath("excel/询价记录"&n&".xls") ’这个是为了方便，新建一个CAR的文件夹，这个可以自己设啦
if fs.FileExists(filename) then’如果文件存在，覆盖它。
fs.DeleteFile(filename)
end if
set myfile = fs.CreateTextFile(filename,true)
’========================================================================
dim strLine,responsestr
strLine=""
dim work,j,i
str="型号|批号|封装|厂商|数量|单位|询价|货币类型|供应商|含税|描述|日期"
work=split(str,"|")
j=ubound(work)
i=0
o=0
do while not i》j
strLine= strLine & work(i) & chr(9)
i=i+1
loop
myfile.writeline strLine
Do while Not rs.EOF
o=o+1
m=20000
strLine=""
for each x in rs.Fields
strLine= strLine & x.value & chr(9)
if o》=m*n then
n=n+1
filename = Server.MapPath("car/CarTable"&n&".xls") ’这个可以自己设啦
if fs.FileExists(filename) then’如果文件存在，覆盖它。
fs.DeleteFile(filename)
end if
set myfile = fs.CreateTextFile(filename,true)
end if
next
myfile.writeline strLine
rs.MoveNext
loop
rs.Close
set rs = nothing
conn.close
set conn = nothing
set myfile = nothing
Set fs=Nothing
ExcelPath="excel/询价记录"&n&".xls"
response.Write "导出成功　　"
response.write("《a href=’" & server.URLEncode(ExcelPath) & "’》《font=red》下载《/font》《/a》")
end if
%》

在ASP中怎么把页面中的数据导出到EXCEL

《!--#include file="conn.asp"--》
《HTML》
《HEAD》
***隐藏网址***
《TITLE》生成EXCEL文件《/TITLE》
《/HEAD》
《body》
《hr size=1 align=left width=300px》
《%
dim rs,sql,filename,fs,myfile,objSpreadsheet,x
Set fs = server.CreateObject("scripting.filesystemobject")
’--假设你想让生成的EXCEL文件做如下的存放
filename = Server.MapPath("online.xls")
’--如果原来的EXCEL文件存在的话就删除
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if
’Set objSpreadsheet = Server.CreateObject("OWC.Spreadsheet")
’objSpreadsheet.Cells(iRow, iCol).Font.Bold = True
’objSpreadsheet.Cells(iRow, iCol).Font.Italic = False
’objSpreadsheet.Cells(iRow, iCol).Font.Size = 10
’objSpreadsheet.Cells(iRow, iCol).Halignment = 2 ’居中
’--创建EXCEL文件
set myfile = fs.CreateTextFile(filename,true)
Set rs = Server.CreateObject("ADODB.Recordset")
’--从数据库中把你想放到EXCEL中的数据读出来
sql = "select * from 表名 order by id desc"
rs.Open sql,conn,1,1
if rs.EOF and rs.BOF then
else
dim strLine,responsestr
strLine=""
For each x in rs.fields
strLine = strLine & x.name & chr(9)
Next
’--将表的列名先写入EXCEL
myfile.writeline strLine
Do while Not rs.EOF
strLine=""
for each x in rs.Fields
strLine = strLine & x.value & chr(9)
next
’--将表的数据写入EXCEL
myfile.writeline strLine
rs.MoveNext
loop
response.Write("《a href=’online.xls’》下载《/a》 ")
end if
rs.Close
set rs = nothing
%》

ASP+access 怎么 导出Excel

《%Response.ContentType = "application/vnd.ms-excel"%》
在页面的开头,加上这一行就可以了,这是指出输出类型为EXCEL 也可以参考以下代码：《!--#include file="../conn.asp"--》
《%
if session("china_admin")="" then response.redirect "login.asp"
dbpath="../"
dblink
dim filename,fs,myfile,x,m,n,o,link
Set fs = server.CreateObject("scripting.filesystemobject")Set rs = Server.CreateObject("ADODB.Recordset")
session("sql") = "select * from china_car"
rs.Open session("sql"),conn,1,1
n=1’==================================================================
’==============================================================建立excel文件系统
filename = Server.MapPath("car/CarTable"&n&".xls") ’这个是为了方便，新建一个CAR的文件夹，这个可以自己设啦
if fs.FileExists(filename) then’如果文件存在，覆盖它。
fs.DeleteFile(filename)
end if
set myfile = fs.CreateTextFile(filename,true)’========================================================================dim strLine,responsestr
strLine=""dim work,j,i
str="序号|卡号|密码|积分数|金额"　　’这个根据你的access数据表字段设置。
work=split(str,"|")
j=ubound(work)
i=0
o=0
do while not i》j
strLine= strLine & work(i) & chr(9)
i=i+1
loopmyfile.writeline strLine
Do while Not rs.EOF
o=o+1
m=20000
strLine=""for each x in rs.Fields
strLine= strLine & x.value & chr(9)
if o》=m*n then
n=n+1
filename = Server.MapPath("car/CarTable"&n&".xls") ’这个可以自己设啦
if fs.FileExists(filename) then’如果文件存在，覆盖它。
fs.DeleteFile(filename)
end if
set myfile = fs.CreateTextFile(filename,true)
end if
nextmyfile.writeline strLiners.MoveNext
looprs.Close
set rs = nothing
conn.close
set conn = nothing
set myfile = nothing
Set fs=Nothing
ExcelPath="car/CarTable"&n&".xls"
response.Write "导出成功　　"
***隐藏网址***