asp导出excel的操作

最近在做某个asp网站的维护和功能新增工作，充分地回顾了一下asp+access的开发方式，也在网上找了很多的资料，其中asp导出excel的操作和发送jmail邮件就难住我了

头信息：

<%
response.ContentType ="application/vnd.ms-excel"
response.addheader "Content-Disposition","attachment;filename=报名信息.xls"
%>

body部分写成一个表格：

<table border="1" cellspacing="0">
<tr>
    <td><strong align="center">姓名</strong></td>
    <td><strong align="center">性别</strong></td>
    <td><strong align="center">国家/地区</strong></td>
    <td><strong align="center">省份</strong></td>
    <td><strong align="center">邮编</strong></td>
</tr>
<%
dim exid
exid=request.QueryString("exid")

dim rs,sql
set rs=server.CreateObject("adodb.recordset")
sql="select * from T_STUINFO where id in ("&exid&") order by shortLessoncode,date,passcode"
rs.open sql,conn,1,1
do while not rs.eof
	response.Write("<tr>")
	response.Write("<td>"&rs("name")&"</td>")
	response.Write("<td>"&rs("sex")&"</td>")
	response.Write("<td>"&rs("Country")&"</td>")
	response.Write("<td>"&rs("Province")&"</td>")
	response.Write("<td>"&rs("ZipCode")&"</td>")
	response.Write("</tr>")
rs.movenext
loop
%>

</table>

在父页JS中写入location.href="该页面地址.asp"，即可在当前页下载excel文件