ASP讀EXCEL2000

由於工作需要 要用ASP讀取EXCEL的工資單 所以在網上找了些資料
寫了以下程式 送給大家：）
<%
'=====================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  "成功！"
%>