excel|資料 我最近剛作了一個項目，該項目的要求是將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%>>
---------------------------------------------
做完以上就緒工作後就可以寫你要做的程式了。
