<%
Dim Conn,Driver,DBPath,Rs 
' 建立Connection對象 
Set Conn = Server.CreateObject("ADODB.Connection") 
Driver = "Driver={Microsoft Excel Driver (*.xls)};" 
DBPath = "DBQ=" & Server.MapPath("Book1.xls") 
'調(diào)用Open 方法打開數(shù)據(jù)庫 
Conn.Open Driver & DBPath 
'DSN連接方式 
'Conn.Open "Dsn=book" 
'注意 表名一定要以下邊這種格試 "[表名$]" 書寫 
Sql="Select * From [Sheet1$]" 
Set Rs=Conn.Execute(Sql) 
IF Rs.Eof And Rs.Bof Then 
Response.write "沒有找到您需要的數(shù)據(jù)!!" 
Else 
Do While Not Rs.EOF 
Response.write Rs("a") 
Response.write "-" 
Response.write Rs("b") 
Response.write "-" 
Response.write Rs("c") 
Response.write "-" 
Response.write Rs("d") 
Response.write "<br>" 
Rs.MoveNext 
Loop 
End IF 
Rs.Close 
Set Rs=nothing 
Conn.Close 
Set Conn=Nothing 
%>