快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   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"是不行的。
%>



返回类别: 教程
上一教程: Asp的安全治理(6)
下一教程: 数 据 库 设 计 经 验 谈

您可以阅读与"ASP直接调用EXCEL数据的例子(不用ODBC)"相关的教程:
· ASP直接调用EXCEL数据的例子(不用ODBC)
· ASP直接调用EXCEL数据的例子
· 如何直接调用EXCEL数据
· 如何在ASP中通过ODBC调用EXCEL中的数据
· REPEATER显示数据的例子,带分页
    微笑服务 优质保证 索取样品