asp实现将excel中的数据批量导入到accesswww.aspprogram 21:40:46  aspprogram
asp数据批量导入的原理是使用excel保存许多数据，然后将这个excel使用无组件上传到服务器上，然后打开excel，将里面的数据写入到数据库中。
asp数据无组件上传见：www.aspprogram/html/soft/2008624191142.html
这里我写的是将excel中的数据读出来，然后写入到数据库中
具体代码：
<!-- #include file="adoconn.asp" -->
< %
'===========================================
' 函数功能：数据批量导入
' 作    者：wangsdong
' 网    站: www.aspprogram
' 文章为作者原创，转载请注明文章出处、保留作
' 者信息，谢谢支持！
' 原理：将excel中的数据导入到access
'===========================================
'连接excel数据库
path="./"
Dim xlsconn,strsource,xlbook,xlsheet,i
Dim myConn_Xsl,xlsrs,sql,objCmd 
Set xlsconn = server.CreateObject("tion")
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
f Then
else
i=1
response.write "<TABLE border=1>"
Do While f
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&")"
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
% >

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。