公司开发工资软件，最大的问题在于数据库的导入导出方便。导出好办，咱输出excel就行了，但是导入呢？想来想去，采用如下方法：[br]财务人员用excel用的比较多，对格式也比较熟悉，所以，借用这个机会，采用excel保存许多数据，然后将这个excel使用无组件上传到服务器上，然后打开excel，将里面的数据写入到数据库中。[br][br]无组件今天不做讨论。[br]这里我写的是将excel中的数据读出来，然后写入到数据库中[br]具体代码：[br][br]< %[br]'===========================================[br]' 函数功能：数据批量导入[br]' 文章为作者原创，转载请注明文章出处、保留作[br]' 者信息，谢谢支持！[br]' 原理:将excel中的数据导入到access[br]'===========================================[br][br]'连接excel数据库[br]path="./"[br]dim xlsconn,strsource,xlbook,xlsheet,i[br]dim myconn_xsl,xlsrs,sql,objcmd [br]set xlsconn = server.createobject("adodb.connection") [br]set xlsrs = server.createobject("adodb.recordset")[br][br]filename="商品" [br]file2="商品列表" [br]source=server.mappath(path&filename&".xls")[br][br]myconn_xsl="provider=microsoft.jet.oledb.4.0;data source=" &source& ";extended properties=excel 8.0"[br]xlsconn.open myconn_xsl [br][br]sql = "select * from ["&file2&"$]"[br]xlsrs.open sql,xlsconn,1,1 [br]if xlsrs.eof then[br]else[br]i=1[br]response.write ""[br]do while not xlsrs.eof [br]goods_name=xlsrs("商品名")[br]goods_images=xlsrs("图片")[br]cat_id=xlsrs("商品分类")[br]%>[br][br][br] [br] [br] [br][br][br]<% [br] sql="insert into goods(goods_name,goods_images,cat_id) values('"&goods_name&"','"&goods_images&"',"&cat_id&")"[br] conn.execute(sql)[br]i=i+1 [br]xlsrs.movenext[br] loop [br]response.write "

<%=goods_name%>

<%=goods_images%>

<%=cat_id%>

"[br]end if[br]xlsrs.close[br][br]response.write "共导入" & i-1 & "条记录.
" & vbcrlf[br][br]set xlsconn=nothing [br]set objcmd=nothing[br][br]% >[br][br]这里的图片要使用ftp上传到指定的目录images下面，这样就行