asp读取excel文件,关键语句是数据库连接方式.

<table border="0" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
  <tr>
   <td>用户名</td>
   <td>密码</td>
  </tr>
<%

strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("test.xls")&";Extended Properties=Excel 8.0;"
Set cnexcel = Server.CreateObject("ADODB.Connection")
cnexcel.Open StrConn

sql="select * from [Sheet1$]"  '表名称$
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,cnexcel,1,3

if rs.eof and rs.bof then

else
  i=0
  do while not rs.eof

    i=i+1 
%>

<tr bgcolor="#FFFFFF">
  <td><%=rs("用户名")%></td>
  <td><%=rs("密码")%></td>
</tr>

<% 
 
  rs.movenext
  loop
end if
Rs.Close
Set Rs=nothing

%>

</table>

下载