asp操作excel,显示数据及统计方法


这次做的活是asp操作excel,全程序是每行都标出,然后像填空一样做的。现在被我改成了动态显示每行的项,再逐行显示,最后做一个汇总。

  1、FSO找到excel文件

<%
Dim fso,folder,file
Set fso  = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(Server.MapPath("data"))
  
Dim name
For Each file in folder.Files
name = fso.GetBaseName(file)
%>
<li><%=name%></li>
<%
Next
%>

  2、连接excel文件,获取第一个sheet的name

<%
//建立Connection对象
Set Conn_qc = Server.CreateObject("ADODB.Connection")
Driver = "Provider=Microsoft.Jet.OLEDB.4.0;"
DBParm = "Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
//调用Open 方法打开数据库
DBPath = "Data Source=" & Server.MapPath("data" & table & ".xls") & ";" '注意:此处的table变量为文件名,可由上一个方法得到
Conn_qc.Open Driver & DBPath & DBParm
//获取第一个sheet的名称
Set rs=Conn_qc.OpenSchema(20)
TableName = rs("Table_name")
rs.Close
//查询数据
Sql="Select * From [" & TableName & "]"
  
//response.write(sql)
'Set Rs=Conn.Execute(Sql)
rs.open sql, Conn_qc, 1, 1 '此处可以解决recordcount为 -1 的问题
if rs.recordcount<>0 then
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" >
<tr>
<%for i=0 to rs.fields.count-1%>
<td align="center" valign="middle" bgcolor="#F2F8FF" ><% =rs(i).Name %></td>
<%next%>
</tr>
<tr>
<%for i=0 to rs.fields.count-1%>
<td align="center" valign="middle" class="f"><%=rs(i)%></td>
<%next%>
</tr>
</table>
<%
end if
rs.close
set rs=nothing
Conn_qc.close
%>



相关阅读:
redo copy latch未命中率并不需要调整
dedecms广告生成JS文件和JS调用-DEDE广告优化
通过缓存数据库结果提高PHP性能
让IE6支持css3,让 IE7、IE8 都支持CSS3
一个简单的日历代码 (For: FF1+ IE5+ Opr7+)测试
Windows系统中常见的死机情况与解决方法
excel操作之Add Data to a Spreadsheet Cell
原创]用srcElement实现添加效果" target="_blank">[原创]用srcElement实现添加效果
ExtJS PropertyGrid中使用Combobox选择值问题
关于IIS连接数的几种解释
js番茄的表单验证类
Linux---设定命令的搜索路径
css美化input file按钮的代码方法
jQuery ''行 4954 错误: 不支持该属性或方法'' 的问题解决方法
快速导航

Copyright © 2016 phpStudy | 皖ICP备18014864号-4