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

%>

 
数据统计例子,相关子查询!(SQL 中循环操作一列数据方法)
问题:数据及需要实现的累计值--即每次“发货数量”与上次发货的“累计”值相加后再放入一张表中体现出来表A_______________________________________| ID 提单号 提货日期 实发数量 累计||------------------...查看完整版>>数据统计例子,相关子查询!(SQL 中循环操作一列数据方法)
 
在ASP中操作数据库的方法
在ASP中,用来存取数据库的对象统称ADO对象(Active Data Objects),主要含有三种对象:Connection、Recordset和Command,其中Connection负责打开或连接数据库,Recordset负责存取数据表,Command负责对数据库执行行...查看完整版>>在ASP中操作数据库的方法
 
在ASP中操作数据库的方法
  如果用户在网站连接access数据库时出现错误(未发现数据源或驱动程序),请改用以下连接串连接数据库。 conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=数据库密码;Data Source=" &a...查看完整版>>在ASP中操作数据库的方法
 
ASP常用数据库连接及操作的方法和技巧
1.ASP连接Access数据库<%dim conn,mdbfile mdbfile=server.mappath("数据库名称.mdb") set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数...查看完整版>>ASP常用数据库连接及操作的方法和技巧
 
ASP常用数据库连接及操作的方法
1.ASP连接Access数据库<%dim conn,mdbfile mdbfile=server.mappath("数据库名称.mdb") set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数...查看完整版>>ASP常用数据库连接及操作的方法