asp中将table表中的数据成功导成excel做法-ASP教程,数据库相关

我最近刚作了一个项目，该项目的要求是将asp页面中丛书据库中提取的数据直接保存成为excel形式，刚开始我的为此想了好就才最终做了出来，在此和大家共同分享！！

—————————————

脚本如下：<%

dim rs_code,sql_code,rs_date,sql_date

if request("op")="show" then

sborder="0"

sbg1="bgcolor=black"

sbg2="bgcolor=white"

else

sborder="1"

sbg1=""

sbg2=""

if request("op")="excel" then

response.contenttype = "application/msexcel"

response.addheader "content-disposition","inline; filename=1.xls"

elseif request("op")="download" then

response.contenttype = "application/msexcel"

filename="("&request("syear")&"-"&request("smonth")&")**********(此处为你要做的程序名，自己定义)"

response.addheader "content-disposition","attachment; filename="&filename&".xls"

end if

end if

%>

在上层的页面中必须给该页面传送：参数：比如qh_tj_c_imbark.asp?op=show

——————————————–

在要转换成excel输出的程序中必须要在如下部分添加：

<table width="875" border=<%=sborder%> cellspacing="1" cellpadding="1" align="center" <%=sbg1%>>

———————————————

<tr <%=sbg2%>>

———————————————

做完以上就绪工作后就可以写你要做的程序了。