申明 转一段老的asp脚本，因为有现成的，就没用.net再搞了，呵呵

?

1.ASP对Excel的基本操作
(1) 建立Excel对象
??? 创建Excel对象可以通过下面的代码来实现:
<%
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false?????????????? ’不显示警告
objExcelApp.Application?? = false?????????????? ’不显示界面
%>
(2) 新建Excel文件
??? 新建Excel文件可以通过以下代码来实现:
<%
objExcelApp.WorkBooks.add
set objExcelBook?? = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet? = objExcelBook.Sheets(1)
%>
(3) 读取已有的Excel文件
??? 读取已有的Excel文件可以通过下面的代码来实现???????
<%
strAddr = Server.MapPath(".")
objExcelApp.WorkBooks.Open(strAddr & "TempletTable.xls")
set objExcelBook?? = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet? = objExcelBook.WorkSheets(1)
%>
(4) 另存Excel文件
??? 另存Excel文件可以通过以下代码来实现
<%
objExcelBook.SaveAs strAddr & "templateTables.xls"
%>
(5) 保存Excel文件
??? 保存Excel文件可以通过以下代码来实现:
<%
objExcelBook.Save
%>???????
(6) 退出Excel操作
<%
objExcelApp.Quit???????? ’一定要退出
set objExcelApp = nothing
%>
2 读取Excel文件的实例
<%
set xlApp = server.CreateObject("Excel.Application")
strsource = server.MapPath("xl.xls")
set xlbook = xlApp.WorkBooks.Open(strsource)
set xlsheet = xlbook.Worksheets(1)
i = 1
response.write "<table>"
while xlsheet.cells(i,1) <> ""
?? response.write "<tr>"
?? response.write "<td>" & xlsheet.Cells(i,1) & "</td>"
?? response.write "<td>" & xlsheet.Cells(i,2) & "</td>"
?? response.write "<td>" & xlsheet.Cells(i,3) & "</td>"
?? response.write "<tr>"
?? i = i + 1
??
wend
response.write "</table>"
set xlsheet = nothing
set xlbook? = nothing
xlApp.quit
‘千万记住要加这一句，否则每运行一次你的机器里就增加一个Excel进程，而且无法释放
’set xlApp = nothing 是不行的
%>
================================================================
3. 怎样将数据从Excel导入到SQL Server中
(1)
<%
sub dataIntoSqlServer_ceritificate(strFileName,strSheetName,myConn)
?? ’定义
?? dim myConnection
?? dim strName
?? dim rsXsl,rsSql
?? dim myConn_Xsl
?? dim cmd
?? dim i,j
?? dim maxId
??
?? strName = strFileName
?? set myConnection = Server.CreateObject("ADODB.Connection")
?? set rsXsl = Server.CreateObject("ADODB.Recordset")
?? set rsSql = Server.CreateObject("ADODB.Recordset")
?? set cmd?? = server.CreateObject("ADODB.Command")
??
?? cmd.ActiveConnection = myConn
??
?? myConn_Xsl = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strName & _
?????????????? ";Extended Properties=Excel 8.0"
?? ’打开连接
??? myconnection.open myConn_Xsl
?? ’打开表?????
?? str_Xsl = "select * from [" & strSheetName & "$]"
?? rsXsl.open str_Xsl,myconnection,1,1
?? j = 1
?? Do while not rsXsl.eof
?? ’取出最大值
?? str_sql = "select Max(id) as maxId from exceltosql"
?? rsSql.open str_Sql,myConn,1,3
?? if Not rsSql.eof then
????? if not isNull(rsSql("maxId")) then
???????? maxId=CLng(rsSql("maxId")) + 1
????? else
???????? maxId = 1
????? end if
?? else
????? maxId = 1
?? end if
?? rsSql.close?? ’//关闭对象
?? ’加入数据库
?? str_Sql = "insert into exceltosql values(" & maxId&",’"&rsXsl(1)&"’,'" & rsXsl(2)&"’)"
????? cmd.CommandText = str_Sql
????? cmd.Excute()
????? ”””””””””””””””””””””
????? j = j + 1
????? rsXsl.moveNext
?? loop
??
?? response.write "共导入 " & j_1 & " 条记录.<br>"
?? response.write "<a href="#" mce_href="#" onclick=’self.close();’>关闭窗口</a>"
?? set rsXsl = nothing
?? set rsSql = nothing
?? set myconnection = nothing
?? set cmd = nothing
end sub
(2)
‘调用方法
<%
file1 = "c:/excelexample.xls"
myconn = "DRIVER={SQL SER