 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<%@language=vbscript %> <% Set exlApp = server.CreateObject("Excel.Application") strsource = "e:excelsample.xls" \\\' 数据库位置 Set exlstock = exlApp.Workstocks.Open(strsource) Set exlsheet = exlstock.Worksheets(1) i=1 response.write "<table cellpadding=0 cellspacing=0 border=1 width=500>" while exlsheet.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 xlstock=nothing xlApp.quit %> 返回类别: 教程 上一教程: 如何获得JPG文件的实际尺寸 下一教程: VBSCRIPT的循环挺好理解的 您可以阅读与"如何直接调用EXCEL数据"相关的教程: · ASP直接调用EXCEL数据的例子（不用ODBC） · ASP直接调用EXCEL数据的例子(不用ODBC) · ASP直接调用EXCEL数据的例子 · 如何在ASP中通过ODBC调用EXCEL中的数据 · JMAIL发信实例，可直接调用 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
