在ASP程式中列印Excel報表的新方法 (轉)

amyz發表於2007-08-15
Excel
在ASP程式中列印Excel報表的新方法 (轉)[@more@]

 

　　目前，B/S（/模式）成為企業網上首選的計算模式。由於B/S模式的特殊性，在C/S下相對較易實現的報表列印功能在B/S下卻成為一個難點。本人透過研究寫了一個基於的列印Excel報表的程式。本程式的特點是無須任何。
　　
Print.asp
------------------------------------------------

列印Excel報表
'控制指令碼語言
response.write"
"<BR>%><BR>本程式由火星工作室提供(to:andy2001p@.com">andy2001p@hotmail.com</A>)******************<BR>版權所有　隨意複製********************************<BR>function ccprint()<BR>Set xlApp = Create("EXCEL.APPLICATION")&nbsp; </P> <P>//開啟工作表！<BR>Set xlBook = xlApp.Workbooks.Open("c:ook1.xlt")<BR>set xlsheet1 = xlBook.ActiveSheet<BR><%&nbsp; ="zhk.mdb"<BR>Set conn = Server.CreateObject("ADODB.Connection")<BR>connstr="Provr=.Jet.OLEDB.4.0;Data =" & Server.MapPath(""&db&"")<BR>conn.Open connstr<BR>set rsd=server.createobject("adodb.recordset")<BR>str=" * from cjb00"<BR>rsd.open str,conn<BR>ii=1<BR>do while not rsd.eof and ii<11<BR>&nbsp;%><BR>&nbsp; <%response.write"xlSheet1.cells("&ii+4&",2).value="%>"<%=rsd("姓名")%>"<BR>&nbsp; <%response.write"xlSheet1.cells("&ii+4&",3).value="%>"<%=rsd("學號")%>" <BR>&nbsp; <%<BR>&nbsp; rsd.movenext<BR>&nbsp; ii=ii+1<BR>&nbsp;l<BR>&nbsp;rsd.close<BR>&nbsp;set rsd=nothing<BR>&nbsp; %><BR>xlSheet1.Application.Visible = True <BR>end function<BR>本程式由火星工作室提供******************<BR><%<BR>response.write"
"
%>


列印Excel報表


 

學生表（Demo)


 

 



    db="zhk.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
  set rsd=server.createobject("adodb.recordset")
  str="select * from cjb00"
  rsd.open str,conn
%>
 
 
 
 
 
    do while not rsd.eof
  %>
 
 
 
 
    rsd.MoveNext
  loop
  %>
    set rsd=nothing
  conn.close
  set cnn=nothing %>
 
姓名學號

 
 

 


 
 

 


 
 


------------------------------------------------------------

  在程式寫好後，你必須在　C　盤根目錄下建個Excel模板！　在IE的設定中將安全級別調為最低或自定義安全級別中啟用第二項,因為只有這樣，IE才能建立EXCEL！

  本程式由Andylee(火星)提供,如果有意見請聯絡：
  :andy2001p@hotmail.com">Email:andy2001p@hotmail.com
  qq:16685104
  TEL:0595-2092139 

 

 

 


來自 “ ITPUB部落格 ” ，連結：http://blog.itpub.net/10752019/viewspace-957955/，如需轉載，請註明出處，否則將追究法律責任。

相關文章