⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 excel3.asp

📁 亿众购物系统 一套设计完善、高效的web商城解决方案
💻 ASP
字号:
<%response.ContentType ="application/vnd.ms-excel"%>
<!--#include file="../Session.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../../css/site.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="100%" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="10%" height="30" align="center" valign="middle" bgcolor="#FF9900"><strong><font color="#FFFFFF" size="2">订单号</font></strong></td>
	<td width="2" height="30" align="center" valign="middle" bgcolor="#FFFFFF"></td>
    <td width="55%" height="30" align="center" valign="middle" bgcolor="#FF9900"><strong><font color="#FFFFFF" size="2">产品名称</font></strong></td>
	<td width="2" height="30" align="center" valign="middle" bgcolor="#FFFFFF"></td>
    <td width="10%" height="30" align="center" valign="middle" bgcolor="#FF9900"><strong><font color="#FFFFFF" size="2">会员价格</font></strong></td>
	<td width="2" height="30" align="center" valign="middle" bgcolor="#FFFFFF"></td>
    <td width="10%" height="30" align="center" valign="middle" bgcolor="#FF9900"><strong><font color="#FFFFFF" size="2">购物数量</font></strong></td>
	<td width="2" height="30" align="center" valign="middle" bgcolor="#FFFFFF"></td>
    <td width="10%" height="30" align="center" valign="middle" bgcolor="#FF9900"><strong><font color="#FFFFFF" size="2">小计</font></strong></td>
  </tr>
  <%dim hhmmss
  hhmmss="0:00:00"
  FirstSelect=request("FirstSelectYear")&"-"&request("FirstSelectMonth")&"-"&request("FirstSelectDay")&" "&hhmmss
  FirstSelecte=request("FirstSelecteYear")&"-"&request("FirstSelecteMonth")&"-"&request("FirstSelecteDay")&" "&hhmmss
  Set rs1=Server.CreateObject("ADODB.Recordset")
  sql="select id from OrderForm where State>1 and Date between #"&FirstSelect&"# and #"&FirstSelecte&"# order by id desc"
  rs1.open sql,conn,0,1
  do while not rs1.eof
  Set rs=Server.CreateObject("ADODB.Recordset")
  sql="select TradeName,Money2,Amount from OrderList where OrderFormId="&rs1("id")&" order by id desc"
  rs.open sql,conn,0,1
  do while not rs.eof
	 Amount = Amount + rs("Amount")
	 Sum = Sum  + rs("Money2") * rs("Amount")
%>
  <tr> 
    <td height=1 colspan=10 bgcolor="#FFFFFF">&nbsp;</td>
</tr>
  <tr> 
    <td width="10%" height="30" align="center" valign="middle" bgcolor="#CCCCCC"><%=rs1("Id")%></td>
	<td width="2" height="30" align="center" valign="middle" bgcolor="#FFFFFF"></td>
    <td width="55%" height="30" valign="middle" bgcolor="#CCCCCC"><%=rs("TradeName")%></td>
	<td width="2" height="30" align="center" valign="middle" bgcolor="#FFFFFF"></td>
    <td width="10%" height="30" align="center" valign="middle" bgcolor="#CCCCCC"><%=rs("Money2")%></td>
	<td width="2" height="30" align="center" valign="middle" bgcolor="#FFFFFF"></td>
    <td width="10%" height="30" align="center" valign="middle" bgcolor="#CCCCCC"><%=rs("Amount")%></td>
	<td width="2" height="30" align="center" valign="middle" bgcolor="#FFFFFF"></td>
    <td width="10%" height="30" align="center" valign="middle" bgcolor="#CCCCCC"><%=rs("Money2")*rs("Amount")%></td>
  </tr>
  <%rs.movenext
  loop
  rs1.movenext
  loop
  rs.close
  rs1.close%>
  <tr align=center> 
    <td height=30 colspan=10 valign="middle"><font color="#000000"><strong>此查询阶段共销售:<%=Amount%>件产品,销售总额:<%=Sum%>元</strong></font></td>
</tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -