📄 mymoney.asp

📁 mlm双轨制直销系统V8.0免费版可用于： 1、直拨、回拨电话卡公司。 2、保健品、药品公司。 3、在线销售商品等等。 4、其他类型用到双轨制模式的线上开盘公司。
💻 ASP
字号:
<!-- #include file="include/adovbs.inc" -->
<!-- #include file="include/dataconn.asp" -->
<!-- #include file="include/checkhy.asp" -->
<!-- #include file="common.asp" -->
<%
Function GetHyMoneyAccount(HyNumber)
	set HyHyMoneyAccountRs=nothing
	set HyHyMoneyAccountRs=server.CreateObject("adodb.recordset")
	Count=0
	if len(HyNumber)>0 then
		sql = "select HyMoneyAccount from HyMoneyAccount where HyNumber ='" & HyNumber & "'"
		HyHyMoneyAccountRs.Open sql,conn	
		if HyHyMoneyAccountRs.RecordCount>0 then
				Count=HyHyMoneyAccountRs("HyMoneyAccount")
		end if 
	end if
	GetHyMoneyAccount=Count
End Function 
'HyNumber=trim(request("HyNumber"))
HyNumber=session("HyNumber")

 dtfrom=trim(request("dtfrom"))
 set HyRs=server.CreateObject("adodb.recordset")
if len(dtfrom)=0 then
	sql="select HyMoneyLog.*,HyClub.HyBuyCount from HyMoneyLog,HyClub where HyMoneyLog.HyNumber = HyClub.Hynumber and HyMoneyLog.HyNumber='" & HyNumber & "' order by ComputeWeek desc"
else
	sql="select HyMoneyLog.*,HyClub.HyBuyCount from HyMoneyLog,HyClub where HyMoneyLog.HyNumber = HyClub.Hynumber and HyMoneyLog.HyNumber='" & HyNumber & "' and HyMoneyLog.ComputeTime='" & dtfrom & "' order by ComputeWeek desc"
end if

	HyRs.Open sql,conn
	j=HyRs.RecordCount 
	

	
%>
<html>
<head>
<title><% =HyNumber%>奖金</title>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" href="include/e1.css" type="text/css">
<script language='javascript' src='include/common.js'></script>		
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<script>
	function fPopUpCalendarDlg(ctrlobj)
	{
		showx = event.screenX - event.offsetX - 4 - 210 ; // + deltaX;
		showy = event.screenY - event.offsetY + 18; // + deltaY;
		newWINwidth = 210 + 4 + 18;

		retval = window.showModalDialog("Include/CalendarDlg.htm", "", "dialogWidth:197px; dialogHeight:210px; dialogLeft:"+showx+"px; dialogTop:"+showy+"px; status:no; directories:yes;scrollbars:no;Resizable=no; "  );
		if( retval != null ){
			ctrlobj.value = retval;
		}else{
			//alert("canceled");
		}
	}

	function check()
	{
		if(form2.PickupCount.value=="")
		{
			alert("至少需要输入提款金额！");
			document.form2.PickupCount.focus();
			return false;
		}
		else
		{
			return true;
			document.form2.submit();
		}

	}

</script>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"  bgcolor="#7BD7FF">
<TABLE width=99% align=center border=0>
  <TBODY>
    <TR> 
      <TD colspan="2">&nbsp;</TD>
    </TR>

    <TR> 
        <TD width="377" align=middle>
		
		</TD>	
      <FORM name=form1 action="MyMoney.asp?HyNumber=<% =HyNumber%>" method=post>
        <TD width="393" align=middle> <P align="right"><font color="#000000">按日期查询奖金：</font>
            <input id="dtfrom" name="dtfrom" readonly value="<% =dtfrom %>" size="10">
            <img src="image/datetime.gif" style="cursor:hand;" align="absmiddle" alt="弹出日历下拉菜单" onClick="fPopUpCalendarDlg(document.form1.dtfrom);return false" width="16"> 
            &nbsp;&nbsp; 
            <input type="image" value="submit" src="Image/027.gif" id="image1" name="image1">
          </P></TD>

      </FORM>
    </TR>

    <TR> 
      <TD colspan="2" align=middle> <font color="#000000"><br>
        <B><FONT size="3">用户： 
        <% =HyNumber%>
        奖金明细表</FONT></B></font></TD>
    </TR>	
  </TBODY>
</TABLE>
<br>	
<table align="center" bgcolor="#9CE1FE" border="0" cellpadding="0" cellspacing="0" 

width="99%"><tr><td>
<TABLE width=100% align=center border="0" cellpadding="5" cellspacing="1">
        <TR align=middle  bgcolor="#00B1FF"> 
          <td width="5%" colspan="2" > <div align="center">可计算</div></td>
          <td width="5%" colspan="2" ><div align="center">结余</div></td>
          <TD width=5% rowspan="2"  noWrap class="smallEmphasis"><div align="center"><FONT size=2>团队管理奖</FONT></div></TD>
          <TD width=5% rowspan="2"  noWrap class="smallEmphasis"><div align="center"><FONT size=2>推荐奖</FONT></div></TD>
          <TD width=5% rowspan="2"  noWrap class="smallEmphasis"><div align="center"><FONT size=2>激励奖</FONT></div></TD>
          <TD width=5% rowspan="2"  noWrap bgcolor="#00B1FF" class="smallEmphasis"><div align="center"><FONT size=2>重复消费</FONT></div></TD>
          <TD width=5% rowspan="2"  noWrap bgcolor="#00B1FF" class="smallEmphasis"><div align="center"><FONT size=2>扣税</FONT></div></TD>		  
          <TD width=5% height=25 rowspan="2"  noWrap class="smallEmphasis"><div align="center"><FONT size=2>封顶奖金</FONT></div></TD>
          <TD width=5% height=25 rowspan="2"  noWrap bgcolor="#00B1FF" class="smallEmphasis"><div align="center"><FONT color=ff0000 size=2>实发奖金</FONT></div></TD>
          <TD width=5% rowspan="2"  noWrap class="smallEmphasis"><div align="center"><FONT size=2>期数</FONT></div></TD>
          <TD width=5% rowspan="2"  noWrap class="smallEmphasis"><div align="center"><FONT size=2>时间</FONT></div></TD>
        </TR>
        <TR align=middle  bgcolor="#00B1FF"> 
          <td ><div align="center">左</div></td>
          <td ><div align="center">右</div></td>
          <td ><div align="center">左</div></td>
          <td ><div align="center">右</div></td>
        </TR>
        <%
    if j>0 then
    dim i 
    i=1
    const pagesize=15
           
    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)	

    HyRs.absolutepage=pageno     
    dim x
    x=2
    while (not HyRs.eof) and (i<=pagesize) 
      if x mod 2 then
 %>
        <tr bgColor=#ffffff> 
          <%
 else
 %>
        <tr bgColor=#ffffff> 
          <%
 end if
 %>
     <td><div align="center"><%=HyRs("HyNewLeftCount")%></div></td>
    <td><div align="center"><%=HyRs("HyNewRightCount")%></div></td>
    <td><div align="center"><%=HyRs("HyLeaveLeftCount")%></div></td>
    <td><div align="center"><%=HyRs("HyLeaveRightCount")%></div></td>  
          <TD width=5% height=25 noWrap><div align="center"><FONT size=2> 
              <% =HyRs("TeamManageMoney")%>
              &nbsp;</FONT></div></TD>
          <TD width=5% height=25  noWrap><div align="center"><FONT size=2> 
              <% =HyRs("TujianMoney")%>
              &nbsp;</FONT></div></TD>
          <TD noWrap width=5% height=25><div align="center"><FONT size=2> 
              <% =HyRs("jilimoney")%>
              &nbsp;</FONT></div></TD>
          <TD noWrap width=5% height=25><div align="center"><FONT size=2>- 
              <% =HyRs("Repeatmoney")%>
              &nbsp;</FONT></div></TD>
          <TD noWrap width=5% height=25><div align="center"><FONT size=2>- 
              <% =HyRs("Repeatmoney2")%>
              &nbsp;</FONT></div></TD>			  
          <TD noWrap width=5% height=25><div align="center"><FONT size=2> 
              <% =HyRs("HyBuyCount")*session("TopMoney")%>
              &nbsp;</FONT></div></TD>
          <TD noWrap width=5% height=25><div align="center"><FONT size=2> 
              <% =HyRs("AllMoney")%>
              &nbsp;</FONT></div></TD>
          <TD noWrap width=5% height=25><div align="center"><FONT size=2> 
              <% =HyRs("ComputeWeek")%>
              &nbsp;</FONT></div></TD>			  
          <TD noWrap width=5% height=25><div align="center"><FONT size=2> 
              <% =HyRs("ComputeTime")%>
              &nbsp;</FONT></div></TD>
          <%
	HyRs.movenext
	i=i+1
	x=x+1
	wend %>
        </tr>
        <%
  else%>
        <tr  bgColor=#7BD7FF> 
          <td colspan="15"><div align="center">没有奖金记录！</div></td>
        </tr>
        <% end if%>
      </TABLE>
</td></tr></table>
<p></p>
<%if j>0 then%>
<table align="center" bgcolor="#7BD7FF">
  <tr> 
    <form name="thisform1" method="Post" action="MyMoney.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="MyMoney.asp?HyNumber=<% =HyNumber%>&pageno=1&amp;findcontent=<%=content%>" onMouseOver="MM_displayStatusMsg('欢迎光临');return document.MM_returnValue"><font face="Webdings" color="#FFFFFF">9</font>首页</font></a></td>
    <td><a href="MyMoney.asp?HyNumber=<% =HyNumber%>&pageno=<%=pageno-1%>&amp;findcontent=<%=content%>"  onMouseOver="MM_displayStatusMsg('欢迎光临');return document.MM_returnValue">上一页</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="MyMoney.asp?HyNumber=<% =HyNumber%>&pageno=<%=pageno+1%>&amp;findcontent=<%=content%>"  onMouseOver="MM_displayStatusMsg('欢迎光临');return document.MM_returnValue">下一页</font></a></td>
    <td><a href="MyMoney.asp?HyNumber=<% =HyNumber%>&pageno=<%=total%>&amp;findcontent=<%=content%>"  onMouseOver="MM_displayStatusMsg('欢迎光临');return document.MM_returnValue">尾页</font></a></td>
    <% end if%>
    
  </tr>
</table>
<%end if

%>
<br>
<table align="center" bgcolor="#00B1FF" border="0" cellpadding="0" cellspacing="0" width="40%"><tr><td>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1">
        <tr> 
          <td width="33%" rowspan="2" bgcolor="#00B1FF"><div align="center"><strong><img src="Image/dsis-usernew-ico-05.gif" width="60" height="54"></strong></div>
            <div align="center"><strong><font color="#FF0000" size="4"> </font></strong></div></td>
          <td width="67%" height="25" bgcolor="#00B1FF"><div align="center"><strong>自加入以来的奖金累积</strong></div></td>
        </tr>
        <tr> 
          <td height="25" bgcolor="#7BD7FF"><div align="center"><strong><font color="#FF0000" size="4"><SPAN 
        id=TotalBonus>￥</SPAN> 
              <% =GetHyMoneyAccountByHyNumber(HyNumber)%>
              </font></strong></div></td>
        </tr>
      </table>
</td></tr></table>
</body>
</html>
⌨️ 快捷键说明

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