<%
’=====================ASP讀取EXCEL注事項===========================
’i)將Excel97或Excel2000生成的XLS文件（book）看成一個數據庫，其中的每一個工作表(sheet)看成數據庫表
’ii)ADO假設Excel中的第一行為字段名.所以你定義的范圍中必須要包括第一行的內容
’iii)Excel中的行標題（即字段名）不能夠包含數字. Excel的驅動在遇到這種問題時就會出錯的。例如你的行標題名為“F1”
’iiii)如果你的Excel電子表格中某一列同時包含了文本和數字的話,那么Excel的ODBC驅動將不能夠正常, 處理這一行的數據類型，你必須要保證該列的數據類型一致
’E-MAIL:Kaxue@Hotmail.com QQ:484110 HOMEPAGE:www.Flyday.net
’整理時間：Thursday, May 23, 2002 5:54 PM WIN2000SERVER+IIS5 測式通過
’===========================================================
Dim Conn,Driver,DBPath,Rs
’ 建立Connection對象
Set Conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & Server.MapPath( "test.xls" )
’調用Open 方法打開數據庫
Conn.Open Driver & DBPath
’DSN連接方式
’Conn.Open "Dsn=test"
’注意 表名一定要以下邊這種格試 "[表名$]" 書寫
Sql="Select * From [Sheet1$] where 序號=0"
Set Rs=Conn.Execute(Sql)
IF Rs.Eof And Rs.Bof Then
Response.write "沒有找到您需要的數據!!"
Else
Do While Not Rs.EOF
Response.write Rs("姓名")
Rs.MoveNext
Loop
End IF
Rs.Close
Set Rs=nothing
Conn.Close
Set Conn=Nothing
’Response.Write "成功！"
%>
’=====================ASP讀取EXCEL注事項===========================
’i)將Excel97或Excel2000生成的XLS文件（book）看成一個數據庫，其中的每一個工作表(sheet)看成數據庫表
’ii)ADO假設Excel中的第一行為字段名.所以你定義的范圍中必須要包括第一行的內容
’iii)Excel中的行標題（即字段名）不能夠包含數字. Excel的驅動在遇到這種問題時就會出錯的。例如你的行標題名為“F1”
’iiii)如果你的Excel電子表格中某一列同時包含了文本和數字的話,那么Excel的ODBC驅動將不能夠正常, 處理這一行的數據類型，你必須要保證該列的數據類型一致
’E-MAIL:Kaxue@Hotmail.com QQ:484110 HOMEPAGE:www.Flyday.net
’整理時間：Thursday, May 23, 2002 5:54 PM WIN2000SERVER+IIS5 測式通過
’===========================================================
Dim Conn,Driver,DBPath,Rs
’ 建立Connection對象
Set Conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & Server.MapPath( "test.xls" )
’調用Open 方法打開數據庫
Conn.Open Driver & DBPath
’DSN連接方式
’Conn.Open "Dsn=test"
’注意 表名一定要以下邊這種格試 "[表名$]" 書寫
Sql="Select * From [Sheet1$] where 序號=0"
Set Rs=Conn.Execute(Sql)
IF Rs.Eof And Rs.Bof Then
Response.write "沒有找到您需要的數據!!"
Else
Do While Not Rs.EOF
Response.write Rs("姓名")
Rs.MoveNext
Loop
End IF
Rs.Close
Set Rs=nothing
Conn.Close
Set Conn=Nothing
’Response.Write "成功！"
%>
