set Econn=server.createobject("adodb.connection")
Econn.open "driver={Microsoft Excel Driver (*.xls)};DBQ="&server.mappath("shangpin/mimi.xls")
dim rsx
set rsx=Econn.execute("select * from [Sheet1$]")
do while not rsx.eof
'在此導入到sql裏。
rsx.movenext
loop
rsx.close
set rsx=nothing
Econn.Close '此處壹定要關閉,否則在刪除剛剛上傳那個Excel文件時會刪不掉。
Set Econn=Nothing
call delfile(path_name)
function delfile(filepath)
imangepath=trim(filepath)
path=server.MapPath(imangepath)
SET fs=server.CreateObject("Scripting.FileSystemObject")
if FS.FileExists(path) then
FS.DeleteFile(path)
end if
set fs=nothing
end function
這個是我用的,比較好使。如果妳用好使了,就把我下邊這個鏈接帶上就行了。 Thanks