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

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

ASP直接调用EXCEL数据的例子(不用ODBC)

例子:
在"c:excelbook1.xls"存在一个EXCEL表book1.xsl,表的结构如下:
1 序号 名称 金额
2 1 张三 100
3 2 李四 200
4 3 王五 300

序号字段不为空
注重:excel 起始行是1而不是为0

<%@language=vbscript %>
<%

Set xlApp = server.CreateObject("Excel.Application")

strsource = "c:excelbook1.xls"

Set xlbook = xlApp.Workbooks.Open(strsource)
Set xlsheet = xlbook.Worksheets(1)

i=1
response.write "<table cellpadding=0 cellspacing=0 border=1 width=500>"
while xlsheet.cells(i,1)<>""

response.write "<tr>"
response.write " <td height=20 align=center width=100>" & xlsheet.Cells(i, 1) & "</td>"
response.write " <td height=20 align=center width=200>" & xlsheet.Cells(i, 2) & "</td>"
response.write " <td height=20 align=center width=200>" & xlsheet.Cells(i, 3) & "</td>"
response.write "</tr>"
i=i+1

wend
response.write "</table>"
set xlsheet=nothing
set xlbook=nothing
xlApp.quit \\\'千万记住要加这一句,否则每运行一次你的机器里就增加一个excel进程,而且无法释放。我试过"set
xlApp=nothing"是不行的。
%>
返回类别: 教程
上一教程: 实例分析CSS属性DISPLAY与VISIBILITY不同
下一教程: XMLHTTP下载远程数据输出到浏览器

您可以阅读与"ASP直接调用EXCEL数据的例子(不用ODBC)"相关的教程:
· ASP直接调用EXCEL数据的例子(不用ODBC)
· ASP直接调用EXCEL数据的例子
· 如何直接调用EXCEL数据
· 如何在ASP中通过ODBC调用EXCEL中的数据
· 一个将数据库里面的内容生成EXCEL的例子
    微笑服务 优质保证 索取样品