- <%
- 'On Error Resume Next
- dbpath=server.MapPath("商品资料.XLS")
- connstr="Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source="& dbpath
- 'connstr="Driver={Microsoft Excel Driver (*.xls)};DBQ="& dbpath
- set Conn=server.CreateObject("ADODB.Connection")
- Conn.open connstr
- Set Rs=Server.CreateObject("Adodb.RecordSet")
- sql="Select * From [Sheet1$]"
- Rs.Open sql,Conn,1,1
- Response.Write("<table cellspacing='1' bgcolor='#999999'>")
- Response.Write "<tr align='center' bgcolor='#FFFFFF'>"
- Response.Write "<td>ID</td>"
- For i=0 to Rs.Fields.Count-1
- Response.Write "<td>" & rs.Fields(i).Name & "</td>"
- Next
- Response.Write "</tr>"
- For i=0 to 199
- Response.Write "<tr align='center' bgcolor='#FFFFFF'>"
- Response.Write "<td>" & i+1 & "</td>"
- For j=0 to Rs.Fields.Count-1
- Response.Write "<td>" & rs.Fields(j).value & "</td>"
- 'Response.Write "<td>" & rs("档案因子") & "</td>"
- Next
- Response.Write "</tr>"
- Rs.MoveNext
- Next
- Response.Write("</table>")
- '关闭对象
- rs.Close
- Set rs=nothing
- Conn.Close
- Set Conn=Nothing
- %>
ASP操作EXCEL数据库
最新推荐文章于 2024-08-25 22:25:48 发布