-asp access导出excel,access导出excel

给你个小例e68a84e8a2ade79fa5e98193361子

<!--#include file="conn.asp"-->
<%
Server.ScriptTimeOut=99999999
response.ContentType ="application/vnd.ms-excel"
response.addheader "Content-Disposition","attachment;filename=订单信息.xls"
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<%
where=""

date1=checkstr(request("date1"))
date2=checkstr(request("date2"))

if date1<>"" then
s=cdate(date1&" 00:00:00")
where=" and datediff(d,'"&s&"',ordersubmitdate)>=0"&where
end if

if date2<>"" then
e=cdate(date2&" 23:59:59")
where=" and datediff(d,'"&e&"',ordersubmitdate)<=0"&where
end if

where=" where 1=1"&where
sql="select * from orders "&where&" order by id asc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
<table width="800" border="1" cellspacing="0" cellpadding="0">
<tr align="center">
<td colspan="6" align="center" style="vnd.ms-excel.numberformat:@"><span class="STYLE1">订单基本信息</span></td>
</tr>
<tr align="center">
<td width="16%" align="left" style="vnd.ms-excel.numberformat:@">订单编号：</td>
<td width="29%" align="left" bgcolor="#FFFFFF" style="vnd.ms-excel.numberformat:@"><%=rs("orderid")%> </td>
<td width="15%" align="left" style="vnd.ms-excel.numberformat:@">下单日期：</td>
<td width="40%" colspan="2" align="left" style="vnd.ms-excel.numberformat:@"><%=rs("ordersubmitdate")%> </td>
</tr>
<tr align="center">
<td align="left" style="vnd.ms-excel.numberformat:@">收货人：</td>
<td align="left" bgcolor="#FFFFFF" style="vnd.ms-excel.numberformat:@"><%=rs("recname")%> </td>
<td align="left" style="vnd.ms-excel.numberformat:@">联系电话：</td>
<td colspan="2" align="left" style="vnd.ms-excel.numberformat:@"><%=rs("recphone")%> </td>
</tr>
<tr align="center">
<td align="left" style="vnd.ms-excel.numberformat:@">电子邮件：</td>
<td align="left" bgcolor="#FFFFFF" style="vnd.ms-excel.numberformat:@"><%=rs("recemail")%> </td>
<td align="left" style="vnd.ms-excel.numberformat:@">详细地址：</td>
<td colspan="2" align="left" style="vnd.ms-excel.numberformat:@"><%=rs("recaddress")%></td>
</tr>
<tr align="center">
<td align="left" style="vnd.ms-excel.numberformat:@">邮编：</td>
<td align="left" bgcolor="#FFFFFF" style="vnd.ms-excel.numberformat:@"><%=rs("reczip")%> </td>
<td align="left" style="vnd.ms-excel.numberformat:@">配送方式：</td>
<td colspan="2" align="left" style="vnd.ms-excel.numberformat:@"><%=rs("peisong")%></td>
</tr>
<tr align="center">
<td align="left" style="vnd.ms-excel.numberformat:@">手机：</td>
<td align="left" bgcolor="#FFFFFF" style="vnd.ms-excel.numberformat:@"><%=rs("shouji")%> </td>
<td align="left" style="vnd.ms-excel.numberformat:@">付款方式：</td>
<td colspan="2" align="left" style="vnd.ms-excel.numberformat:@"><%=rs("fukuan")%></td>
</tr>
<tr align="center">
<td align="left" style="vnd.ms-excel.numberformat:@">其他说明：</td>
<td colspan="4" align="left" bgcolor="#FFFFFF" style="vnd.ms-excel.numberformat:@"><%=rs("recmemo")%></td>
</tr>
</table>
<br />
<%
rs.movenext
loop
rs.close
set rs=nothing
%>