【原创】axp读取excel 代码,提示错误解决
思良:看不到图片查看百度空间原文, http://wenzhang.baidu.com/page/view?key=db5b38d53b5299b2-1426994980
最近工作安排要把一个电子表格显示到网页上去,这样只要编辑表格就可以修改其内容了,找了很多代码,很多显示错误,后来把错误代码搜索了下,发现是写入权限不够,终于解决了,下面是代码显示效果:
代码:
---------------------------------------------------------------
<%
dim conn
set conn=server.createobject("adodb.connection")
conn.open "driver={Microsoft Excel Driver (*.xls)};DBQ="&server.mappath("test.xls")
dim rs
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [Sheet1$]",conn,1,1
%>
<table width="284" height="57" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><%=rs(0).name%></td>
<td align="center"><%=rs(1).name%></td>
<td align="center"><%=rs(2).name%></td>
</tr>
<%
do while not rs.eof
%>
</p>
<tr>
<td align="center"><%=rs(0).value%></td>
<td align="center"><%=rs(1).value%></td>
<td align="center"><%=rs(2).value%></td>
</tr>
<%
rs.movenext
loop
rs.close
%>
</table>
------------------------------------------------------
注意没必要加什么<html>等,表格调试自己可以慢慢调,如果在本机上调试是会提示错误的,
只要找到文件夹 c:\Windows\Temp 然后 右键—安全—添加Everyone用户(合作当前用户)并设置“完全控制”权限,
如果没看到“安全”选项:
双击“我的电脑”—工具—文件夹选项-查看-把:使用简单文件共享(推荐)前面的勾去掉
还有exl表只能是2003下的版本做的,我用2010做的电子表格,显示错误