作者：乔山办公网日期：
返回目录：excel表格制作
生成后直接用超链接访问，就会提示打开还是保存。否则是没办法直接在本地生成
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../inc/conn.asp"-->
<%
on error resume next
Response.Buffer = True
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "content-disposition", "inline; filename = 楼盘团购报名表"&cstr(date())&".xls"
dim rs,sql, sCount
sql = "SELECT * FROM [LouPan_Buy] ORDER BY ItemName ASC, ID DESC"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
sCount = rs.recordcount
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://</h3>
<table width="100%">
<tr>
<td align="left">【报名总人数e68a84e8a2ade799bee5baa6e79fa5e98193363】：<%=sCount%></td>
<td align="right">【制表时间】：<%=NOW()%></td>
</tr>
</table>
<table width="100%" border="1" cellpadding="0" cellspacing="0">
<tr>
<th width="6%"> 序号</th>
<th width="6%">姓名</th>
<th width="6%">性别</th>
<th width="12%">团购楼盘</th>
<th width="8%">预购价格</th>
<th width="8%">手机</th>
<th width="8%">电话</th>
<th width="12%"> 电子邮件</th>
<th width="9%">QQ号码</th>
<th width="11%">报名时间</th>
<th width="11%">IP地址 </th>
</tr>
<%do while not rs.eof%>
<tr>
<td><%=rs("ID")%></td>
<td><%=rs("Name")%></td>
<td><%=rs("Sex")%></td>
<td><%=rs("ItemName")%></td>
<td><%=rs("Price")%></td>
<td><%=rs("Mobil")%></td>
<td><%=rs("Phone")%></td>
<td><%=rs("Email")%></td>
<td><%=rs("QQ")%></td>
<td><%=rs("Time")%></td>
<td><%=rs("IP")%></td>
</tr>
<%rs.movenext
loop
rs.close
set rs=nothing%>
</table>
</body>
</html>
介绍种方法百：
ASP文件头度加上这个：问
<%
Response.Buffer = TRUE
Response.AddHeader "Content-Disposition","attachment;filename=filename.xls"
Response.ContentType ="application/vnd.ms-excel"
%>
ASP内容就表答格格式回就行了。答。。