<%
dim conn,connstr
connstr="Driver={sql server};uid=sa;pwd=*****;database=tushu;SERVER=SQL2005"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
'此处为excel2007,用'Microsoft.ACE.OLEDB.12.0',如为97-2003,用'Microsoft.Jet.OLEDB.4.0'
sql = "SELECT * into newtable FROM OpenDataSource( 'Microsoft.ACE.OLEDB.12.0', 'Data Source=""c:\book.xls"";User ID=Admin; Password=; Extended properties=Excel 5.0')...[sheet1$]"
conn.execute(sql)
conn.close
set conn = nothing
%>