| 订阅 | 在线投稿

分享

2008-09-18 07:07:05  编辑来源:互联网  宽屏版  评论

 

 

本文为【asp操作excel，显示数据及统计方法】的汉字拼音对照版显示拼音

　　这zhe次ci做zuo的de活huo是shiasp操cao作zuoexcel，全quan程cheng序xu是shi每mei行xing都dou标biao出chu，然ran后hou像xiang填tian空kong一yi样yang做zuo的de。现xian在zai被bei我wo改gai成cheng了le动dong态tai显xian示shi每mei行xing的de项xiang，再zai逐zhu行xing显xian示shi，最zui后hou做zuo一yi个ge汇hui总zong。

　　1、FSO找zhao到daoexcel文wen件jian

　　<%

　　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、连lian接jieexcel文wen件jian，获huo取qu第di一yi个gesheet的dename

　　<%

　　//建jian立liConnection对dui象xiang

　　Set Conn_qc = Server.CreateObject("ADODB.Connection")

　　Driver = "Provider=Microsoft.Jet.OLEDB.4.0;"

　　DBParm = "Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"

　　//调tiao用yongOpen 方fang法fa打da开kai数shu据ju库ku

　　DBPath = "Data Source=" & Server.MapPath("data\" & table & ".xls") & ";" '注zhu意yi：此ci处chu的detable变bian量liang为wei文wen件jian名ming，可ke由you上shang一yi个ge方fang法fa得de到dao

　　Conn_qc.Open Driver & DBPath & DBParm

　　//获huo取qu第di一yi个gesheet的de名ming称cheng

　　Set rs=Conn_qc.OpenSchema(20)

　　TableName = rs("Table_name")

　　rs.Close

　　//查cha询xun数shu据ju

　　Sql="Select * From [" & TableName & "]"

　　//response.write(sql)

　　'Set Rs=Conn.Execute(Sql)

　　rs.open sql, Conn_qc, 1, 1 '此ci处chu可ke以yi解jie决juerecordcount为wei -1 的de问wen题ti

　　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

　　%>【原文】

 

 

 

这次做的活是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 %>