📄 asp直接调用excel数据的例子（不用odbc） .htm

📁 较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.
💻 HTM
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0055)http://www.51base.com/article/view_article.asp?id=23119 -->
<HTML lang=zh-cn><HEAD><TITLE>NB联盟</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK 
href="NB联盟25.files/style.css" rel=stylesheet>
<META content="MSHTML 5.00.2614.3500" name=GENERATOR></HEAD>
<BODY><!-- start page body -->
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 class=td id=position 
width=773>
  <TBODY>
  <TR>
    <TD class=shadow colSpan=2 height=20 width=262>&nbsp;&nbsp;<A 
      href="http://www.51base.com/"><IMG border=0 
      src="NB联盟25.files/logo1.gif"></A> </TD>
    <TD align=right width=505>
      <P align=left></P></TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 id=main width=770>
  <TBODY>
  <TR>
    <TD class=tdlbr vAlign=top>
      <TABLE align=center border=0 cellPadding=0 cellSpacing=0 id=welcome 
      style="TABLE-LAYOUT: fixed" width="98%">
        <TBODY>
        <TR>
          <TD style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all" 
            vAlign=top><FONT color=red><B>文章标题</B></FONT><FONT color=red><B>: 
            ASP直接调用EXCEL数据的例子（不用ODBC） </B></FONT>
            <HR noShade SIZE=1>

            <P>例子：<BR>在"c:\excel\book1.xls"存在一个EXCEL表book1.xsl,表的结构如下：<BR>1&nbsp; 
            序号&nbsp;&nbsp;&nbsp; 名称&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            金额<BR>2&nbsp;&nbsp;&nbsp; 
            1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 张三&nbsp;&nbsp;&nbsp; 
            100<BR>3&nbsp;&nbsp;&nbsp; 
            2&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 李四&nbsp;&nbsp;&nbsp; 
            200<BR>4&nbsp;&nbsp;&nbsp; 
            3&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 王五&nbsp;&nbsp;&nbsp; 
            300<BR><BR>序号字段不为空<BR>注意：excel 
            起始行是1而不是为0<BR><BR>&lt;%@language=vbscript %&gt;<BR>&lt;%<BR><BR>Set 
            xlApp = server.CreateObject("Excel.Application")<BR><BR>strsource = 
            "c:\excel\book1.xls"<BR><BR>Set xlbook = 
            xlApp.Workbooks.Open(strsource)<BR>Set xlsheet = 
            xlbook.Worksheets(1)<BR><BR>&nbsp; i=1<BR>&nbsp; response.write 
            "&lt;table cellpadding=0 cellspacing=0 border=1 
            width=500&gt;"<BR>&nbsp; while 
            xlsheet.cells(i,1)&lt;&gt;""<BR>&nbsp;<BR>&nbsp; response.write 
            "&lt;tr&gt;"<BR>&nbsp; response.write "&nbsp; &lt;td height=20 
            align=center width=100&gt;" &amp; xlsheet.Cells(i, 1) &amp; 
            "&lt;/td&gt;"<BR>&nbsp; response.write "&nbsp; &lt;td height=20 
            align=center width=200&gt;" &amp; xlsheet.Cells(i, 2) &amp; 
            "&lt;/td&gt;"<BR>&nbsp; response.write "&nbsp; &lt;td height=20 
            align=center width=200&gt;" &amp; xlsheet.Cells(i, 3) &amp; 
            "&lt;/td&gt;"<BR>&nbsp; response.write 
            "&lt;/tr&gt;"<BR>&nbsp;&nbsp;&nbsp; i=i+1<BR><BR>&nbsp; 
            wend<BR>&nbsp;&nbsp;&nbsp; response.write "&lt;/table&gt;"<BR>set 
            xlsheet=nothing<BR>set xlbook=nothing<BR>xlApp.quit&nbsp; 
            '千万记住要加这一句，否则每运行一次你的机器里就增加一个excel进程，而且无法释放。我试过"set<BR>xlApp=nothing"是不行的。<BR>%&gt;</P>
            <P></P></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><BR>
<TABLE align=center border=0 cellPadding=2 cellSpacing=0 id=footer width=770>
  <TBODY>
  <TR>
    <TD align=middle class=tdt>
      <P align=center></P></TD></TR></TBODY></TABLE><BR></BODY></HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -