通过ASP程序将EXCEL文件数据写入数据库

这两天要做一个后台功能，因为数据源是excel的.xls或.csv格式的，所以研究了一下，现在把代码贴出来给大家分享一下。大致思路是通过组件先把excel文件上传到空间里以后，获取到上传的路径，然后再通过程序把数据读出来写入到数据库中。具体的怎样上传就不写了，这类的组件和源码多的是，大家自己搜吧。废话少说，直接上代码。
PS：这中间还会有一个问题，就是因为操作的是excel文件，要建立相应的对象，服务器上可能会没有权限，所以要设置一下，没有自己的服务器的朋友要告诉空间商一下喽。步骤如下：
因为我们的程序要操作excel文件，所以请赋予相应的权限
“开始”－“运行”－“dcomcnfg”－“组件服务”－“计算机”－“我的电脑”－“DCOM配置”－“Microsoft Excel应用程序(右键)”---“属性”---“安全”
启动和激活权限 选择自定义，点击编辑，添加用户everyone并给予所有权限
访问权限、配置权限同上
 

'获取到上传文件地址 filepath=trim(request.Form("filepath")) '建立对象 set rs=server.CreateObject("adodb.recordset") rs.open "select * from z_400",conn,1,3 '建立excel对象 set xlApp = server.CreateObject("Excel.Application") '读取excel文件路径 strsource = server.MapPath(filepath) '打开 set xlbook = xlApp.WorkBooks.Open(strsource) '读取excel文件第一张数据表 set xlsheet = xlbook.Worksheets(1) '因为第一行为标题，所以从第二行可能读取数据 i = 2 while xlsheet.cells(i,1) <> "" '写入数据库 sql="insert into z_400(eps400,fl)values('"&xlsheet.cells(i,1)&"','"&xlsheet.cells(i,3)&"')" conn.execute(sql) i = i + 1 wend '执行完毕后释放相应的对象 set xlsheet = nothing set xlbook = nothing xlApp.quit '千万记住要加这一句，否则每运行一次你的机器里就增加一个Excel进程，而且无法释放 'set xlApp = nothing 是不行的 文章来自: ASP技术网站(www.aspjs.net) 详文参考：http://www.aspjs.net/aspjs1html/ASPjiaocheng/ASPjishuziliao/470.html