%
Response.ContentType = "application/excel"
Response.AddHeader "Content-Disposition", "attachment;filename=""xxxx.xls"""
%>
table>
%while not rs.eof %>
tr>td>你的excel單元格內容，有多個自己增加td/td>/tr>
%
 rs.movenext
 wend
%>
/table>