ASP查询EXCEL，请问！ - ASP技术论坛

得分:20

程序代码：

<% 
'读excel文件到数据库 
Set Conn = Server.CreateObject("Adodb.Connection")  
strConn = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "&Server.Mappath("test.xls")&"; Extended Properties = Excel 8.0" 
Conn.Open strConn 
%> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www. 
<html xmlns="http://www. 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=GB2312" /> 
<title>Excel导入到Access</title> 
<style type="text/css"> 
*{margin:0; padding:0; font-size:12px; color:#444} 
table,table th,table td{border-collapse:collapse; border:1px solid #ccc; line-height:24px; text-align:center; color:#515151} 
table th{color:#f60} 
</style> 
</head> 
 
<body> 
<table cellpadding="0" cellspacing="0" width="500" align="center"> 
    <tr> 
        <th>编号</th> 
        <th>名称</th> 
        <th>其他</th> 
        <th>日期</th> 
    </tr> 
    <% 
    Set Rs = Conn.ExeCute("Select * From [Sheet0$] Where [日期] Between #2009-9-1# and #2009-9-5#") 
    Do While Not Rs.Eof 
    %> 
    <tr> 
        <td><%=Rs(0)%></td> 
        <td><%=Rs(1)%></td> 
        <td><%=Rs(2)%></td> 
        <td><%=Rs(3)%></td> 
    </tr> 
    <% 
    Rs.MoveNext 
    Loop 
    Rs.Close 
    Set Rs = Nothing 
    %> 
</table> 
</body> 
</html>

表数据
编号    名称    其他    日期
1    名称一    其他一    2009-9-1
2    名称一    其他一    2009-9-2
3    名称一    其他一    2009-9-3
4    名称一    其他一    2009-9-4
5    名称一    其他一    2009-9-5
6    名称一    其他一    2009-9-6
7    名称一    其他一    2009-9-7
8    名称一    其他一    2009-9-8
9    名称一    其他一    2009-9-9
10    名称一    其他一    2009-9-10
11    名称一    其他一    2009-9-11
12    名称一    其他一    2009-9-12
13    名称一    其他一    2009-9-13