asp中将excel表导入sql server2000

首先建一个网页excel.asp

1<form name="form1" action="Excel_cs.asp" method="post" >
2  <p>
3  <input type="file" name="file_upload"   />
4  </p>
5  <p>
6    <input type="submit" name="button1"  />
7    </p>
8</form>

然后建一个excel_cs.asp用于处理传过来的数据

 1<!--#include file="Connection.asp"-->
 2
 3<%
 4set rs=server.CreateObject("adodb.recordset")
 5sql="select * from DC_project"
 6rs.Open sql,conn,1,3
 7set xlapp = server.CreateObject("Excel.Application")
 8
 9strsource=request.Form("file_upload")
10set xlbook=xlapp.workbooks.Open(strsource)
11
12set xlsheet=xlbook.worksheets(1)
13i=2
14while xlsheet.cells(i,1)<>""
15rs.addnew 
16rs("p_date")=xlsheet.cells(i,1)
17rs("p_person")=xlsheet.cells(i,2)
18rs("p_monadd")=xlsheet.cells(i,3)
19rs("p_monmul")=xlsheet.cells(i,4)
20rs("p_balance")=xlsheet.cells(i,5)
21i=i+1
22rs.update
23wend
24
25set xlsheet=nothing
26xlbook.close
27set xlbook=nothing 
28xlapp.quit
29conn.close
30set conn=nothing
31
32
33%>