用SQL server的导入导出数据就可以了!

可以用sql server自带的导入工具呀。

使用代码导入，怎么写，谢谢各位，

SELECT * 
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="c:\test.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...sheet1$

<%
'下面连接到11.xls表sheet1$
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Excel Driver (*.xls)};ReadOnly=0;DBQ=" & Server.MapPath("11.xls")

SQL1="select * from [11$]"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open  SQL1, conn, 3, 3

'下面连接到test.mdb表11
curDir = Server.MapPath("test.mdb")
Set conn1 = Server.CreateObject("ADODB.Connection")
conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & curDir  
                                             '换成连接sqlserver语句就行了

Set rs1 = Server.CreateObject("ADODB.Recordset")
Set rs1.ActiveConnection = conn1
rs1.Source = "select * from 11"
rs1.CursorType = 3  ' adOpenKeyset
rs1.LockType = 3  'adLockOptimistic
rs1.Open
'Dim j=0
for  j=0 to rs.recordcount-1
 rs1.AddNew
 'rs1(0)=j
 for i=0 to rs.Fields.Count-1
   rs1(i)=Trim(rs(i))
 Next
 rs1.Update
 rs.MoveNext
next
if err=0 then
response.write "插入成功！"
end if
rs.Close
rs1.Close
conn.Close
conn1.Close
Set rs=nothing
Set conn=nothing
%>

谢谢各位了，问题已经解决了，谢谢大家的参与！