📄 exportmoneytoexcel.asp

📁 mlm双轨制直销系统V8.0免费版可用于： 1、直拨、回拨电话卡公司。 2、保健品、药品公司。 3、在线销售商品等等。 4、其他类型用到双轨制模式的线上开盘公司。

💻 ASP

字号:

<%response.ContentType ="application/vnd.ms-excel"%>
<% Response.AddHeader "Content-Disposition", "attachment; filename=奖金列表"%>
<!-- #include file="include/adovbs.inc" -->
<!-- #include file="include/dataconn.asp" -->
<!-- #include file="include/checksession.asp" -->
<!-- #include file="common.asp" -->
<%
set HyExcelMoneyRs=nothing
set HyExcelMoneyRs=server.CreateObject("adodb.recordset")
	sql = "SELECT HyMoneyLog.*,Hy.HyName,HyClub.HyID,HyClub.HyBuyCount FROM HyClub,HyMoneyLog,Hy where HyMoneyLog.HyNumber = HyClub.Hynumber and Hy.ID =HyClub.HyID"
	sql =sql & " and HyMoneyLog.ComputeTime='" & thistoday &"'  order by HyClub.ID "
HyExcelMoneyRs.Open sql,conn
j=HyExcelMoneyRs.RecordCount 
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
</head>

<body>
<table width="100%" border="1" cellpadding="0" cellspacing="0">
  <tr bgcolor="#D0FFD0"> 
    <td width="4%"> <div align="center">序号</div></td>
    <td width="6%"> <div align="center">姓名</div></td>
    <td width="6%"> <div align="center">编号</div></td>
    <td width="8%"> <div align="center">团队管理奖</div></td>
    <td width="8%"> <div align="center">推荐奖</div></td>
    <td width="8%"> <div align="center">激励奖</div></td>	
    <td width="8%"> <div align="center">重复消费奖</div></td>
    <td width="8%"> <div align="center">封顶奖金</div></td>
    <td width="8%"> <div align="center">实发奖金</div></td>
    <td width="6%"> <div align="center">时间</div></td>
  </tr>
  <%if j>0 then
  		i=1
	  	while (not HyExcelMoneyRs.eof)%>
  <tr> 
    <td> <div align="center"> 
        <% =i%>
      </div></td>
    <td><div align="center">
        <%=HyExcelMoneyRs("HyName")%></a>&nbsp;&nbsp;</div></td>
    <td><div align="center"><%=HyExcelMoneyRs("HyNumber")%>&nbsp;</div></td>
    <td> <div align="center"> 
        <% =HyExcelMoneyRs("TeamManageMoney")%>
        &nbsp;</div></td>
    <td> <div align="center"> 
        <% =HyExcelMoneyRs("TujianMoney")%>
        &nbsp;</div></td>
    <td> <div align="center"> 
        <% =HyExcelMoneyRs("jilimoney")%>
        &nbsp;</div></td>
    <td> <div align="center"> 
        <% =HyExcelMoneyRs("Repeatmoney")%>
        &nbsp;</div></td>		
    <td><div align="center"><% =session("TopMoney")%>
        &nbsp; </div></td>
    <td> <div align="center"> 
        <% =HyExcelMoneyRs("AllMoney")%>
        &nbsp;</div></td>
    <td> <div align="center"> 
        <% =HyExcelMoneyRs("ComputeTime")%>
        &nbsp;</div></td>
  </tr>
  <%
		HyExcelMoneyRs.movenext
		i=i+1
		wend
  end if%>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -