ASP操作Excel（读写）

以前总是从网页上大量复制内容到Excel，很麻烦。
查询发现，原来ASP的ADODB对象可以操作Execl，可以读，也可以写，示范代码如下，供大家参考：

<% 
Dim Conn,Driver,DBPath,Rs 
Set Conn = Server.CreateObject("ADODB.Connection") 
Driver = "Driver={Microsoft Excel Driver (*.xls)};ReadOnly=0;" 
DBPath = "DBQ=" & Server.MapPath( "book.xls" ) 
Conn.Open Driver & DBPath 
Set Rs = Server.CreateObject("ADODB.Recordset") 
Sql="select * from [Sheet1$]" 
Rs.Open Sql,conn,1,3
%> 
<table border="1"> 
<tr> 
<% for i=0 to Rs.Fields.Count-1 %> 
	<td bgcolor="#0099FF"><%=Rs(i).Name%></td> 
<% next %> 
</tr> 

<% do while Not Rs.EOF %> 
	<tr> 
	<% for i=0 to Rs.Fields.Count-1 %> 
		<td><%=Rs(i)%></td>
	<%
	next %> 
	</tr> 
<%
	Rs("书名") = "神雕侠侣" & i+1
	Rs.Update
	Rs.MoveNext 
Loop 
Rs.close 
set Rs=nothing 
Conn.close 
set Conn=nothing 
%> 
</table>