?? hytodaymoneymanok.asp
字號(hào):
<!-- #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)
content=rtrim(ltrim(Request("findcontent")))'查找的關(guān)鍵字
'response.Write content
set HyRs=server.CreateObject("adodb.recordset")
sql = "SELECT sum(allmoney) as MyAllMoney FROM HyMoneyLog where ComputeTime='" & thistoday &"'"
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")
if len(content)=0 then '判斷屬于查找還是列出所有信息
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 &"'"
else
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 &"'"
sql = sql & " and HyMoneyLog.HyNumber like '%" & content & "%'"
end if
'
'Response.Write sql
'Response.End
HyRs.Open sql,conn
j=HyRs.RecordCount
%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<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);
}
function makecompute()
{
return(confirm("你使用的是免費(fèi)版,不提供獎(jiǎng)金結(jié)算功能,請聯(lián)系我們購買正式版QQ58375596"))
}
</script>
<body leftmargin="10" topmargin="10" marginwidth="0" marginheight="0">
<form method="post" action="hytodaymoneymanok.asp" id="form1" name="form1">
<table width="100%" border="0" height="21" cellpadding="0" cellspacing="0">
<tr>
<td width="77%"> <div align="center"> 查找：
<input id="findcontent" name="findcontent" value="輸入需要查找的關(guān)鍵字" size="20" onFocus="this.value=''">
<input type="image" value="submit" src="Image/027.gif" id="image1" name="image1">
共計(jì)： <font color=red>
<% =j%>
</font> 記錄 獎(jiǎng)金合計(jì)：<font color="#FF0000">￥</font> <font color=red>
<% =MyAllMoney%>
</font></div></td>
<td width="23%"><div align="center"><a onClick="javascript:return makecompute();" href="ComputeTodayMoney.asp"><img src="Image/x_4.gif" width="37" height="18" border="0">計(jì)算獎(jiǎng)金 </a></div></td>
</tr>
</table>
</form>
<%
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("頁碼數(shù)不能小于１");
window.history.back();</script>
<%Response.End
End if
if (pageno>65535) then
%>
<script>alert("頁碼數(shù)不能大于總數(shù)！");
window.history.back();</script>
<%Response.End
end if
if (clng(pageno)>clng(total)) then %>
<script>alert("頁碼數(shù)不能大于總數(shù)！");
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%" rowspan="2"> <div align="center"><font color="#FFFFFF">序號(hào)</font></div></td>
<td width="6%" rowspan="2"> <div align="center"><font color="#FFFFFF">姓名</font></div></td>
<td width="6%" rowspan="2"> <div align="center"><font color="#FFFFFF">編號(hào)</font></div></td>
<td width="6%" colspan="2"> <div align="center"><font color="#FFFFFF">可計(jì)算</font></div></td>
<td width="6%" colspan="2"> <div align="center"><font color="#FFFFFF">結(jié)余</font></div></td>
<td width="8%" rowspan="2"> <div align="center"><font color="#FFFFFF">團(tuán)隊(duì)管理獎(jiǎng)</font></div></td>
<td width="8%" rowspan="2"> <div align="center"><font color="#FFFFFF">推薦獎(jiǎng)</font></div></td>
<td width="8%" rowspan="2"> <div align="center"><font color="#FFFFFF">重復(fù)消費(fèi)</font></div></td>
<td width="8%" rowspan="2"> <div align="center"><font color="#FFFFFF">扣稅</font></div></td>
<td width="8%" rowspan="2"> <div align="center"><font color="#FFFFFF">封頂獎(jiǎng)金</font></div></td>
<td width="8%" rowspan="2"> <div align="center"><font color="#FFFFFF">實(shí)發(fā)獎(jiǎng)金</font></div></td>
<td width="4%" rowspan="2"> <div align="center"><font color="#FFFFFF">期數(shù)</font></div></td>
<td width="6%" rowspan="2"> <div align="center"><font color="#FFFFFF">時(shí)間</font></div></td>
</tr>
<tr class="td3">
<td><div align="center">左</div></td>
<td><div align="center">右</div></td>
<td width="3%"><div align="center">左</div></td>
<td width="3%"><div align="center">右</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> </div></td>
<td><div align="center"><%=HyRs("HyNumber")%> </div></td>
<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 > <div align="center">
<% =HyRs("TeamManageMoney")%>
</div></td>
<td > <div align="center">
<% =HyRs("TujianMoney")%>
</div></td>
<td> <div align="center">-
<% =HyRs("Repeatmoney")%>
</div></td>
<td> <div align="center">-
<% =HyRs("Repeatmoney2")%>
</div></td>
<td><div align="center">
<% =HyRs("HyBuyCount")*session("TopMoney")%>
</div></td>
<td> <div align="center">
<% =HyRs("AllMoney")%>
</div></td>
<td> <div align="center">
<% =HyRs("ComputeWeek")%>
</div></td>
<td> <div align="center">
<% =HyRs("ComputeTime")%>
</div></td>
<%
HyRs.movenext
i=i+1
x=x+1
wend %>
</tr>
<%
else
Response.Write "當(dāng)前獎(jiǎng)金還沒有計(jì)算！<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="hytodaymoneymanok.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="hytodaymoneymanok.asp?pageno=1&findcontent=<%=content%>"><font face="Webdings" color="#FFFFFF">9</font>首頁</font></a></td>
<td><a href="hytodaymoneymanok.asp?pageno=<%=pageno-1%>&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="hytodaymoneymanok.asp?pageno=<%=pageno+1%>&findcontent=<%=content%>">下一頁</font></a></td>
<td><a href="hytodaymoneymanok.asp?pageno=<%=total%>&findcontent=<%=content%>">尾頁</font></a></td>
<% end if%>
</tr>
</table>
<%end if%>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -