<%
Set Conn=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.RecordSet")
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source="& Server.MapPath("../Book1.xls") &""
Conn.Open connStr
sqlstr="select * from [Sheet1$]"
rs.open sqlstr,conn,1
do while not rs.eof
Response.Write(rs("name")&"<br>")
rs.movenext
Loop
rs.close
conn.close
Set rs=nothing
Set Conn=Nothing
%>
ASP读取EXCEL
最新推荐文章于 2013-08-12 17:20:39 发布