📄 hyweekallmoneymanok.asp

📁 mlm双轨制直销系统V8.0免费版可用于： 1、直拨、回拨电话卡公司。 2、保健品、药品公司。 3、在线销售商品等等。 4、其他类型用到双轨制模式的线上开盘公司。
💻 ASP
字号:
<!-- #include file="include/adovbs.inc" -->
<!-- #include file="include/dataconn.asp" -->
<!-- #include file="include/checksession.asp" -->
<%
Response.Buffer =false
Response.Expires=-1
'thistoday =year(now)&"-"&month(now)&"-"&day(now)

set HyRs=server.CreateObject("adodb.recordset")
ComputeWeek=trim(Request("ComputeWeek"))
if len(ComputeWeek)=0 then
	set HyWeekRs=nothing
	set HyWeekRs=server.CreateObject("adodb.recordset")
	sql = "SELECT max(ComputeWeek) as MaxComputeWeek FROM HyMoneyLog"
	HyWeekRs.Open sql,conn,1,1
	if HyWeekRs.RecordCount>0 then
		if isnull(HyWeekRs("MaxComputeWeek")) then
			ComputeWeek=1
		else	
			ComputeWeek=HyWeekRs("MaxComputeWeek")
		end if
	else
		ComputeWeek=1
	end if
	set HyWeekRs=nothing
end if

set HyRs=server.CreateObject("adodb.recordset")
sql = "SELECT sum(allmoney) as MyAllMoney FROM HyMoneyLog where ComputeWeek=" & ComputeWeek
HyRs.Open sql,conn
MyAllMoney=0
if HyRs.recordcount>0 then
	if len(HyRs("MyAllMoney"))>0 then
		MyAllMoney=HyRs("MyAllMoney")
	end if
end if


set HyRs=nothing
set HyRs=server.CreateObject("adodb.recordset")
sql = "SELECT HyMoneyLog.*,Hy.HyName,Hy.HyOpenBankNo,Hy.HyOpenBank,HyClub.HyID,HyClub.HyBuyCount FROM HyClub,HyMoneyLog,Hy where HyMoneyLog.HyNumber = HyClub.Hynumber and Hy.ID =HyClub.HyID"
sql =sql & " and HyMoneyLog.ComputeWeek=" & ComputeWeek &" and abs(HyMoneyLog.AllMoney)>0"
'Response.Write sql
'Response.End 
	HyRs.Open sql,conn
	j=HyRs.RecordCount 
%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<link rel="stylesheet" href="include/e1.css" type="text/css">
</head>
<script>
	function openwin(page,size)
	{
		window.open(page,"newuser","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,width="+ size);
	}
	function openwin1(page,size)
	{
		window.open(page,"newuser","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,height=350,width="+ size);
	}
</script>
<body leftmargin="10" topmargin="10" marginwidth="0" marginheight="0">

<form method="post" action="hyWeekAllmoneymanok.asp" id="form1" name="form1">
  <table width="100%" border="0" height="21" cellpadding="0" cellspacing="0">
    <tr> 
      <td width="47%"> <div align="center">输入期数: 
          <input type="ComputeWeek" name="ComputeWeek" value="<% =ComputeWeek%>" size="3">
          <a onclick="javascript:form1.submit();"><img src="Image/019.gif" border="0"></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;共计：&nbsp;<font color=red> 
          <% =j%>
          </font>&nbsp;记录 </div></td>
      <td width="29%"><div align="center">奖金统计：<font color=red> ￥ 
          <% =MyAllMoney%>
          </font></div></td>
      <td width="24%"><a href="ExporthyWeekAllmoneymanok.asp?ComputeWeek=<% =ComputeWeek%>"><img src="Image/l1.gif" width="13" height="11" border="0">导出到Excel</a></td>
    </tr>
  </table>
  </form>
<%
    if j>0 then
    dim i 
    i=1
    const pagesize=100
           
    HyRs.PageSize = pagesize
    total=HyRs.PageCount 
	pageno=Request("pageno")
	if pageno="" then pageno=1
    if not isnumeric(pageno) and pageno<>"" then
	 %>
<script>alert("请输入正确的页码");
		window.history.back();</script>
<%Response.End
	End if
	if (pageno-1)*pagesize>=j then
        if (j mod pagesize)=0 then
            pageno= j \ pagesize
        else
            pageno= j \ pagesize + 1
       end if
    end if		
	if pageno<1 then 
	 %>
<script>alert("页码数不能小于１");
		window.history.back();</script>
<%Response.End
	End if	
	if (pageno>65535) then
	%>
<script>alert("页码数不能大于总数！");
		window.history.back();</script>
<%Response.End 
	end if
	
	
	if (clng(pageno)>clng(total)) then %>
<script>alert("页码数不能大于总数！");
		window.history.back();</script>
<%	
   Response.End 
	end if
    pageno=cint(pageno)	
%>

  


<table border="1" cellpadding="0" cellspacing="0" width="98%" bordercolordark="#e0f4ff" bordercolorlight="#162d6b">
  <tr class="td3"> 
    <td width="4%"> <div align="center"><font color="#FFFFFF">序号</font></div></td>
    <td width="6%"> <div align="center"><font color="#FFFFFF">姓名</font></div></td>
    <td width="8%"> <div align="center"><font color="#FFFFFF">会员编号</font></div></td>
    <td width="8%"> <div align="center">开户银行</div></td>
    <td width="10%"> <div align="center">银行卡号</div></td>
    <td width="8%"> <div align="center"><font color="#FFFFFF">封顶奖金</font></div></td>
    <td width="8%"> <div align="center"><font color="#FFFFFF">本次奖金</font></div></td>
    <td width="6%"> <div align="center"><font color="#FFFFFF">时间</font></div></td>
  </tr>
  <%
    HyRs.absolutepage=pageno     
    dim x
	i=1
    x=2
    while (not HyRs.eof) and (i<=pagesize) 
      if x mod 2 then
 %>
   <tr class="td1"> 
    <%
 else
 %>
  <tr height="25"> 
    <%
 end if
 %>
    <td> <div align="center"> 
        <% =i%>
      </div></td>
    <td><div align="center"><a href="javascript:openwin('hyview.asp?id=<% =HyRs("HyID")%>',800)"> 
        <%=HyRs("HyName")%></a>&nbsp;&nbsp;</div></td>
    <td><div align="center"><%=HyRs("HyNumber")%>&nbsp;</div></td>
    <td> <div align="center"> 
        <% =HyRs("HyOpenBank")%>
        &nbsp;</div></td>
    <td> <div align="center"> 
        <% =HyRs("HyOpenBankNo")%>
        &nbsp;</div></td>		
    <td><div align="center"> 
        <% =HyRs("HyBuyCount")*session("TopMoney")%>
        &nbsp; </div></td>
    <td> <div align="center"> 
        <% =HyRs("AllMoney")%>
        &nbsp;</div></td>
    <td> <div align="center"> 
        <% =HyRs("ComputeTime")%>
        &nbsp;</div></td>
    <%
	HyRs.movenext
	i=i+1
	x=x+1
	wend %>
  </tr>
  <%
  else
	Response.Write "当前期数没有拿奖会员或者奖金还没有计算！<a href='javascript:history.back()'>返回</a>"
 end if%>
</table>
<p></p>
<%if j>0 then%>
<table align="center">
  <tr> 
    <form name="thisform1" method="Post" action="hyWeekAllmoneymanok.asp?findcontent=<%=content%>">
      <td>到第 
        <input type="text" name="pageno" value="<% =pageno%>" size="3">
        页<a onclick="javascript:thisform1.submit();">GO</a> </font></td>
    </form>
    <td>第 
      <% =pageno %>页
      /共 
      <% =total%>
      页</font></td>
    <% if pageno<=1 then %>
    <td><font color="#cccccc">首页</font></td>
    <td><font color="#cccccc">上一页</font></td>
    <% else %>
    <td><a href="hyWeekAllmoneymanok.asp?pageno=1&amp;findcontent=<%=content%>"><font face="Webdings" color="#FFFFFF">9</font>首页</font></a></td>
    <td><a href="hyWeekAllmoneymanok.asp?pageno=<%=pageno-1%>&amp;findcontent=<%=content%>">上一页</font></a></td>
    <%end if%>
    <% if pageno>=total then %>
    <td><font color="#cccccc">下一页</font></td>
    <td><font color="#cccccc">尾页</font></td>
    <%else%>
    <td><a href="hyWeekAllmoneymanok.asp?pageno=<%=pageno+1%>&amp;findcontent=<%=content%>">下一页</font></a></td>
    <td><a href="hyWeekAllmoneymanok.asp?pageno=<%=total%>&amp;findcontent=<%=content%>">尾页</font></a></td>
    <% end if%>
    
  </tr>
</table>
<%end if%>
</body>
</html>
⌨️ 快捷键说明

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