快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

ASP中将TABLE表中的数据成功导成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%>>
---------------------------------------------
做完以上就绪工作后就可以写你要做的程序了。
返回类别: 教程
上一教程: ADODB.STREAM浅释
下一教程: 如何增强ASP程序性能(1)

您可以阅读与"ASP中将TABLE表中的数据成功导成EXCEL做法"相关的教程:
· 如何在ASP中通过ODBC调用EXCEL中的数据
· 将EXCEL中的数据导入至MSSQL SERVER中
· 怎样把数据汇到EXCEL中的心得经验
· ASP讲座之二:读取通过表单发送的数据
· 利用ASP将HTML格式数据传输给EXCEL(2)
    微笑服务 优质保证 索取样品