ASP连接Excel文件的方法
由于工作需要,又不愿意又将excel转换成其它数据库,所以想直接使用ASP连接Excel文件,发现还真行,代码如下:
其中:list.xls为excel数据库名字,Sheet1为工作表名。
<%
Dim conn
Dim StrConn
Dim rs
Dim Sql
Set conn=Server.CreateObject("ADODB.Connection")
StrConn="Driver={Microsoft Excel Driver (*.xls)};DBQ="& Server.MapPath("list.xls")
conn.Open StrConn
Set rs = Server.CreateObject("ADODB.Recordset")
Sql="select * from [Sheet1$]"
rs.Open Sql,conn,2,2
%>
<center>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<%
for i=0 to rs.Fields.Count-1
%>
<td width="1" bgcolor="#CCCCCC"></td>
<td height="28" bgcolor="#0099FF"><div align="center"><%=rs(i).Name%></div></td>
<%
next
%>
<td width="1" bgcolor="#CCCCCC"></td>
</tr>
<%
do while Not rs.EOF
%>
<tr>
<%
for i=0 to rs.Fields.Count-1
%>
<td width="1" bgcolor="#CCCCCC"></td>
<td height="28" valign="bottom"><%=rs(i)%></td>
<%
next
%>
<td width="1" bgcolor="#CCCCCC"></td>
</tr>
<tr>
<%
for i=0 to rs.Fields.Count-1
%>
<td height="1" bgcolor="#CCCCCC"></td>
<td height="1" bgcolor="#CCCCCC"></td>
<%
next
%>
<td width="1" bgcolor="#CCCCCC"></td>
</tr>
<%
rs.MoveNext
Loop
rs.close
set rs=nothing
Conn.close
set StrConn=nothing
%>
</table>
</center>
关键词:ASP,Excel
阅读本文后您有什么感想? 已有 人给出评价!
- 1
- 1
- 1
- 1
- 1
- 1