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
相关阅读
- 07-28asp版百度ueditor在线编辑器上传图片错误(无权限问题修复)
- 05-05Windows2008 64位IIS7+ACCESS数据库无法打开Asp页面
- 05-05win7 iis7.5 Request 对象 错误 'ASP 0104 : 80004005'
- 10-16"Request 对象 错误 'ASP 0104 : 80004005'”解决办法
- 05-03Win7 IIS7.5配置解决ASP的500错误
- 04-07ASP和PHP的区别所在
- 03-09aspx文件怎么打开,ASPX的文件用什么打开?
- 03-04301转向代码大合集 包括IIS、apache和PHP程序/asp程序的301转向设置
- 02-28asp.net“服务器应用程序不可用"解决方法
- 09-24修改IIS的 ASPMaxRequestEntityAllowed
阅读本文后您有什么感想? 已有 人给出评价!
用户评论
热门评论
最新评论
相关软件
热点图文
- 05-02解决:错误提示:Microsoft OLE DB Provider for ODBC Drivers (0x80004005) ...不能更新
- 05-02解决:ADODB.Stream 错误 '800a0bbc' 写入文件失败
- 07-28asp版百度ueditor在线编辑器上传图片错误(无权限问题修复)
- 04-08对象不支持此属性或方法: 'Response.CharSet'
- 04-13asp是什么文件/asp是什么意思/asp是什么格式
- 05-11asp将access数据导出为excel电子表的方法
- 06-14ASP实例教程:FileSystemObject对象
- 07-14使用NetBox编译asp 完全摆脱iis束缚
- 01-10ASP连接Excel文件的方法
- 07-17Microsoft JET Database Engine 错误 '80004005' 错误解决办法