[color=FF0000]<%
Dim conn
    Dim StrConn
    Dim rs
    Dim Sql
    Set conn=Server.CreateObject("ADODB.Connection") 
    StrConn="Driver={Microsoft Excel Driver (*.xls)};DBQ="& Server.MapPath("jchz.xls")
    conn.Open StrConn
    Set rs = Server.CreateObject("ADODB.Recordset") 
    Sql="select * from [Sheet1$]"
    rs.Open Sql,conn,3,3[/color] 
'下面连接到test.mdb表table
curDir = Server.MapPath("../database/test.mdb")  
Set conn1 = Server.CreateObject("ADODB.Connection")
conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & curDir
Set rs1 = Server.CreateObject("ADODB.Recordset")
Set rs1.ActiveConnection = conn1
rs1.Source = "select * from jchz"
rs1.CursorType = 3  ' adOpenKeyset
rs1.LockType = 3  'adLockOptimistic
rs1.Open
Do While Not rs.Eof
rs1.AddNew
rs1(0)=j
for i=0 to rs.Fields.Count-1
   rs1(i)=Trim(rs(i))
Next
rs1.Update
rs.MoveNext
j=j+1
Loop

rs.Close
rs1.Close
conn.Close
conn1.Close
Set rs=nothing
Set conn=nothing
%>
这是我从网上找到的代码.改完后运行有错误,请大家指教.谢谢