📄 nb联盟17.htm
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0055)http://www.51base.com/article/view_article.asp?id=50148 -->
<HTML lang=zh-cn><HEAD><TITLE>NB联盟</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK
href="NB联盟17.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> <A
href="http://www.51base.com/"><IMG border=0
src="NB联盟17.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>
<BR>扑咚扑咚 于 8/30/2001 4:52:49 PM 加贴在 Joy ASP ←返回版面：
<BR>例子：<BR>在"c:\excel\book1.xls"存在一个EXCEL表book1.xsl,表的结构如下：<BR>1 序号
名称 金额<BR>2 1 张三 100<BR>3 2 李四 200<BR>4 3 王五 300
<P></P>
<P>序号字段不为空<BR>注意：excel 起始行是1而不是为0 </P>
<P><%@language=vbscript %><BR><%</P>
<P>Set xlApp = server.CreateObject("Excel.Application")</P>
<P>strsource = "c:\excel\book1.xls"</P>
<P>Set xlbook = xlApp.Workbooks.Open(strsource)<BR>Set xlsheet =
xlbook.Worksheets(1)</P>
<P>i=1<BR>response.write "<table cellpadding=0 cellspacing=0
border=1 width=500>"<BR>while
xlsheet.cells(i,1)<>""<BR><BR>response.write
"<tr>"<BR>response.write " <td height=20 align=center
width=100>" & xlsheet.Cells(i, 1) & "</td>"
<BR>response.write " <td height=20 align=center width=200>"
& xlsheet.Cells(i, 2) & "</td>" <BR>response.write "
<td height=20 align=center width=200>" & xlsheet.Cells(i,
3) & "</td>"<BR>response.write "</tr>"<BR>i=i+1</P>
<P>wend<BR>response.write "</table>"<BR>set
xlsheet=nothing<BR>set xlbook=nothing<BR>xlApp.quit
'千万记住要加这一句，否则每运行一次你的机器里就增加一个excel进程，而且无法释放。我试过"set
<BR>xlApp=nothing"是不行的。<BR>%><BR><BR></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 + -