ASP中將Excel數據導入到Access

以下爲引用的內容：

<%
dim conn     ’定義一個連接變量 
dim conn2        ’定義第二個連接變量 
’On Error Resume Next 
Server.ScriptTimeOut = 999999       ’超時時間 
set conn=CreateObject("ADODB.Connection") 
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source="&Server.MapPath("Fang.mdb")  ’要導入的數據庫名稱，這裏是Fang.mdb 

set conn2=CreateObject("ADODB.Connection") 
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source="&Server.MapPath("Fang.xls") ’要導入的EXCEL表名稱Fang.xls 
’----------------------------------------------------------------------------------------------------------------- 
’這裏要說明的是，數據庫和Excel表和該文件必須在網站同一目錄裏 
’----------------------------------------------------------------------------------------------------------------- 
sql = "SELECT * FROM [Sheet1$]"      ’要導入的Excel數據裏面的表的名稱，後面一定要加$ 
set rs = conn2.execute(sql) 
while not rs.eof 
sql = "insert into zhenya([country],[mobile]) values(’"& fixsql(rs(0)) &"’,’"& fixsql(rs(1)) &"’)" 
’其中的zhenya是要導入的目標表，其後的country，mobile是zhenya表中的字段名，但是要和後面的fixsql（rs（數字））要對應！ 
’response.write sql 
’response.end 
conn.execute(sql) 
rs.movenext 
Response.Write "正在插入 "&sql&"<Br>" 
’在這裏輸出執行的語句，可以去掉的！ 
Response.Flush 
wend 


conn.close 
set conn = nothing 
conn2.close 
set conn2 = Nothing 

If Err = 0 Then 
Response.Write "導入成功" 
Else 
Response.Write "導入失敗!" 
End If 

function fixsql(str) 
dim newstr 
newstr = str 
if isnull(newstr) then 
newstr = "" 
else 
newstr = replace(newstr,"’","’’") 
end if 
fixsql = newstr 
end Function 
%>