ASP數據批量導入的原理是使用excel保存許多數據，然後將這個excel使用無組件上傳到服務器上，然後打開Excel，將裡面的數據寫入到數據庫中。
無組件上傳見：http://www.ASPprogram.cn/html/soft/2008624191142.Html
這裡我寫的是將Excel中的數據讀出來，然後寫入到數據庫中
具體代碼：
<!-- #include file="adoconn.ASP" -->
< %
'===========================================
' 函數功能：數據批量導入
' 作 者：wangsdong
' 網 站: http://www.ASPprogram.cn
' 文章為作者原創，轉載請注明文章出處、保留作
' 者信息，謝謝支持！
' 原理:將Excel中的數據導入到Access
'===========================================
'連接Excel數據庫
path="./"
Dim xlsconn,strsource,xlbook,xlsheet,i
Dim myConn_Xsl,xlsrs,sql,objCmd
Set xlsconn = server.CreateObject("adodb.connection")
Set xlsrs = Server.CreateObject("Adodb.RecordSet")
filename="商品"
file2="商品列表"
source=server.mappath(path&filename&".xls")
myConn_Xsl="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &source& ";Extended PropertIEs=Excel 8.0"
xlsconn.open myConn_Xsl
sql = "Select * from ["&file2&"$]"
xlsrs.open sql,xlsconn,1,1
If xlsrs.eof Then
else
i=1
response.write "<TABLE border=1>"
Do While not xlsrs.eof
goods_name=xlsrs("商品名")
goods_images=xlsrs("圖片")
cat_id=xlsrs("商品分類")
%>
<TR>
<TD> <%=goods_name%></TD>
<TD> <%=goods_images%></TD>
<TD> <%=cat_id%></TD>
</TR>
<%
sql="insert into goods(goods_name,goods_images,cat_id) values('"&goods_name&"','"&goods_images&"',"&cat_id&")"
conn.execute(sql)
i=i+1
xlsrs.MoveNext
Loop
response.write "</table>"
End If
xlsrs.close
Response.write "共導入<font color='red'>" & i-1 & "</font>條記錄.<br>" & vbCrLf
set xlsconn=nothing
set objCmd=Nothing
% >
源碼下載地址：
http://www.ASPprogram.cn/html/soft/20081030113418.Html
這裡的圖片要使用FTP上傳到指定的目錄images下面，這樣就行
