28,391
社区成员
发帖
与我相关
我的任务
分享
<%
Response.ContentType="application/ms-excel"
Response.AddHeader "content-disposition","inline; filename=报表.xls"
%>
<%
Response.ContentType="application/ms-excel"
Response.AddHeader "content-disposition","inline; filename=报表.xls"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>全部导出到EXCEL</title>
</head>
<!--#include file="lhyinc/conn.asp"-->
<%
action_dingdan=trim(request.QueryString("dingdanhao"))
shijian1=trim(request.QueryString("shijian1"))
shijian2=trim(request.QueryString("shijian2"))
ticket_id=request.QueryString("ticket_id")
paixu=request.QueryString("paixu")
if action_dingdan<>"" then
action_dingdan="and action_dingdan='"&action_dingdan&"'"
end if
if shijian1<>"" and shijian2<>"" then
shijian="and action_date between #"&shijian1&"# and #"&shijian2&"#+1"
end if
if ticket_id<>"" then
ticket_id="and ticket_name='"&ticket_id&"'"
end if
'response.Write(ticket_id1)
'response.End()
set rs=server.createobject("adodb.recordset")
sql="select action_dingdan,action_date,action_number,ticket_id,usersname,action_zhuangtai,action_zonger,renyuan,action_leixing,ticket_name,action_id from lhy_action where action_zhuangtai=1 "&ticket_id&" "&action_dingdan&" "&shijian&" order by "&paixu&" desc"
rs.open sql,conn,1,1
'response.Write(sql)
'response.End()
%>
<body>
<table width="100%" border="1" cellpadding="2" cellspacing="1" >
<tr>
<td>订单号</td>
<td>产品名称</td>
<td>有效期</td>
<td>结算金额</td>
<td>购买数量</td>
<td>下单时间</td>
</tr>
<%
if rs.recordcount > 0 then
do while not rs.eof
action_dingdan=rs("action_dingdan")
ticket_id=rs("ticket_id")
set rs1=server.CreateObject("adodb.recordset")
sql="select * from lhy_ticket where ticket_id="&ticket_id
rs1.open sql,conn,1,1
youxiaoqi=rs1("ticket_kaishiriqi")
rs1.close
set rs1=server.CreateObject("adodb.recordset")
sql="select * from lhy_hao where actionid='"&action_dingdan&"' and zhuangtai=2 "
rs1.open sql,conn,1,1
shuliang=rs1.recordcount
zongshuliang=zongshuliang+shuliang
rs1.close
set rs2=server.CreateObject("adodb.recordset")
sql="select * from lhy_hao where actionid='"&action_dingdan&"' and zhuangtai=4 "
rs2.open sql,conn,1,1
shuliang2=rs2.recordcount
rs2.close
%>
<tr>
<td><%=rs("action_dingdan")%></td>
<td><%=rs("ticket_name")%></td>
<td><%=youxiaoqi%></td>
<td><%=rs("action_zonger")%></td>
<td><%=shuliang%></td>
<td><%=rs("action_date")%></td>
</tr>
<%
rs.movenext
loop
end if
%>
</table>
<%
rs.close
set rs=nothing
%>
</body>
</html>
<%
Response.ContentType="application/ms-excel"
Response.AddHeader "content-disposition","inline; filename=报表.xls"
%>