?? mymoney.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"> </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">
<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>實發(fā)獎金</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")%>
</FONT></div></TD>
<TD width=5% height=25 noWrap><div align="center"><FONT size=2>
<% =HyRs("TujianMoney")%>
</FONT></div></TD>
<TD noWrap width=5% height=25><div align="center"><FONT size=2>
<% =HyRs("jilimoney")%>
</FONT></div></TD>
<TD noWrap width=5% height=25><div align="center"><FONT size=2>-
<% =HyRs("Repeatmoney")%>
</FONT></div></TD>
<TD noWrap width=5% height=25><div align="center"><FONT size=2>-
<% =HyRs("Repeatmoney2")%>
</FONT></div></TD>
<TD noWrap width=5% height=25><div align="center"><FONT size=2>
<% =HyRs("HyBuyCount")*session("TopMoney")%>
</FONT></div></TD>
<TD noWrap width=5% height=25><div align="center"><FONT size=2>
<% =HyRs("AllMoney")%>
</FONT></div></TD>
<TD noWrap width=5% height=25><div align="center"><FONT size=2>
<% =HyRs("ComputeWeek")%>
</FONT></div></TD>
<TD noWrap width=5% height=25><div align="center"><FONT size=2>
<% =HyRs("ComputeTime")%>
</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&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%>&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%>&findcontent=<%=content%>" onMouseOver="MM_displayStatusMsg('歡迎光臨');return document.MM_returnValue">下一頁</font></a></td>
<td><a href="MyMoney.asp?HyNumber=<% =HyNumber%>&pageno=<%=total%>&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 + -