|
导读我最近刚作了一个项目,该项目的要求是将asp页面中丛书据库中提取的数据直接保存成为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%>> --------------------------------------------- 做完以上就绪工作后就可以写你要做的程序了。 |
温馨提示:喜欢本站的话,请收藏一下本站!