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>