本文为【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
%>
【原文】