% ' 建立 Connection 物件 Set conn = Server.CreateObject("ADODB.Connection") Driver = "Driver={Microsoft Excel Driver (*.xls)};" DBPath = "DBQ=" & Server.MapPath( "distributor.xls" ) ' 呼叫 Open 方法連結資料庫 conn.Open Driver & DBPath Set rs = Server.CreateObject("ADODB.Recordset") ' 開啟資料來源, 參數二為 Connection物件 rs.Open "Select * From [列網名單$]", conn, 2, 2 %>
[ 北美洲 ] [ 中南美洲 ] [ 非洲 ] [ 欧洲 ] [ 亚洲 ] [ 大洋洲 ] Copyright 2004 © FATEK AUTOMATION CORP. All Rights Reserved. This site is best viewed in 1024 x 768 true color with IE5.0+ or Netscape 7.0