money_stat.asp

在线点播系统

          <select name="stat_year" class="select1" id="stat_year">
            <option value="">所有</option>
<%
for y=min_year to max_year
%>
            <option value="<%=y%>" <%if cint(year(now))=cint(y) then%>selected<%end if%>><%=y%>年</option>
            <%
next
%>
          </select>
          <select name="stat_month" class="select1" id="stat_month">
            <option value="">所有</option>
            <%
for m=1 to 12
%>
            <option value="<%=m%>" <%if cint(month(now))=cint(m) then%>selected<%end if%>><%=m%>月</option>
            <%
next
%>
          </select>
          <select name="stat_day" class="select1" id="stat_day">
            <option value="">所有</option>
            <%
for d=1 to 31
%>
            <option value="<%=d%>" <%if cint(day(now))=cint(d) then%>selected<%end if%>><%=d%>日</option>
            <%
next
%>
          </select>
        的
        <select name="money_type" class="select1" id="money_type">
          <option value="0" selected>所有</option>
          <option value="1">影卡</option>
          <option value="2">代理商</option>
        </select>
        充值记录
        <input name="Submit" type="submit" class="button1" value="查询">
&nbsp;
      <input name="button" type="button" class="button1" id="button" value="所有" onClick="self.location='money_stat.asp';"></td>
    </form>
  </tr>
</table>
<table width="550" height="30" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#E7E7E7">
  <tr>
    <form name="form2" method="post" action="money_stat_del.asp">
      <td align="center" bgcolor="#F7F7F7">将充值日期为：
          <select name="stat_year" class="select1" id="stat_year">
            <option value="">所有</option>
            <%
for y=min_year to max_year
%>
            <option value="<%=y%>" <%if cint(year(now))=cint(y) then%>selected<%end if%>><%=y%>年</option>
            <%
next
%>
          </select>
          <select name="stat_month" class="select1" id="stat_month">
            <option value="">所有</option>
            <%
for m=1 to 12
%>
            <option value="<%=m%>" <%if cint(month(now))=cint(m) then%>selected<%end if%>><%=m%>月</option>
            <%
next
%>
          </select>
          <select name="stat_day" class="select1" id="stat_day">
            <option value="">所有</option>
            <%
for d=1 to 31
%>
            <option value="<%=d%>" <%if cint(day(now))=cint(d) then%>selected<%end if%>><%=d%>日</option>
            <%
next
%>
          </select>
        的
        <select name="money_type" class="select1" id="money_type">
          <option value="0" selected>所有</option>
          <option value="1">影卡</option>
          <option value="2">代理商</option>
        </select>
        充值记录
      <input name="Submit" type="submit" class="button1" value="删除"></td>
    </form>
  </tr>
</table>
<table width="550" height="25" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center">查询时间：<%if request("stat_year")="" then%>所有<%end if%><%if request("stat_year")<>"" and request("stat_month")="" then%><%=request("stat_year")%>年<%end if%><%if request("stat_year")<>"" and request("stat_month")<>"" and request("stat_day")="" then%><%=request("stat_year")%>年<%=request("stat_month")%>月<%end if%><%if request("stat_year")<>"" and request("stat_month")<>"" and request("stat_day")<>"" then%><%=request("stat_year")%>年<%=request("stat_month")%>月<%=request("stat_day")%>日<%end if%>　记录类型：
      <%if request("money_type")="" or request("money_type")=0 then%>全部充值记录<%end if%><%if request("money_type")<>"" and request("money_type")<>0 and request("money_type")=1 then%>影卡充值记录<%end if%><%if request("money_type")<>"" and request("money_type")<>0 and request("money_type")=2 then%>代理商账号充值记录<%end if%>　
    收入统计：<%if stat_money="" then%>没有收入<%else%><span class="font3"><%=stat_money%></span> 元<%end if%></td>
  </tr>
</table>
<%
if rs.eof and rs.bof then
%>
<table width="550" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#E7E7E7">
  <tr>
    <td height="100" align="center" bgcolor="#F7F7F7">没有查询到符合条件的充值记录</td>
  </tr>
</table>
<%
else

maxpage=10 '每页最大显示数
dim totalhow  '数据库中的总记录数
dim totalpage '总共页数
dim CurrentPage '当前处于的页数
currentPage=request("page")
totalhow=rs.recordcount
if totalhow mod maxpage=0 then
totalpage= totalhow \ maxpage
else
totalpage = totalhow \ maxpage +1
end if


if currentpage<1 then
   currentpage=1
end if
if (currentpage-1)*MaxPage>totalhow then
   if (totalhow mod MaxPage)=0 then
      currentpage= totalhow \ MaxPage
	   else
      currentpage= totalhow \ MaxPage + 1
   end if
end if
if (currentPage-1)*MaxPage<totalhow then
    rs.move (currentPage-1)*MaxPage
    else
    currentPage=1
end if
%>
<table width="550" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#E7E7E7">
  <tr>
    <td height="25" align="center" bgcolor="#F7F7F7">充值类型</td>
    <td align="center" bgcolor="#F7F7F7">充值金额(元)</td>
    <td align="center" bgcolor="#F7F7F7">充值时间</td>
    <td align="center" bgcolor="#F7F7F7">&nbsp;详细&nbsp;</td>
  </tr>
  <%
i=0
do while not rs.eof
i=i+1
%>
  <tr>
    <td height="25" align="center" bgcolor="#FFFFFF"><%if rs("money_type")=1 then%>影卡充值<%else%>代理商账号充值<%end if%></td>
    <td height="25" align="center" bgcolor="#FFFFFF"><%=rs("money_count")%></td>
    <td height="25" align="center" bgcolor="#FFFFFF"><%=rs("money_time")%></td>
    <td height="25" align="center" bgcolor="#FFFFFF"><a href="agent_cz_view.asp?id=<%=rs("link_id")%>" target="_blank">查看</a></td>
  </tr>
  <%
if i>=maxpage then exit do
rs.movenext
loop
%>
</table>
<table width="550" height="40" border="0" align="center" cellpadding="0" cellspacing="0">
  <form name="form1" method="post">
    <tr>
      <td width="421" align="right"><!-- ########### 开始判断分页类型 ############### -->
          <font face="Webdings">7</font>&nbsp;
          <%if currentpage>1 then%><a href="<%=filename%>?action=<%=request("action")%>&stat_year=<%=request("stat_year")%>&stat_month=<%=request("stat_month")%>&stat_day=<%=request("stat_day")%>"><%end if%>首页<%if currentpage>1 then%></a><%end if%>
&nbsp;&nbsp;
        <%if currentpage>1 then%><a href="<%=filename%>?page=<%=currentPage-1%>&action=<%=request("action")%>&stat_year=<%=request("stat_year")%>&stat_month=<%=request("stat_month")%>&stat_day=<%=request("stat_day")%>"><%end if%>上一页<%if currentpage>1 then%></a><%end if%>
&nbsp;&nbsp;&nbsp;
        <%if cint(currentpage)<totalpage then%><a href="<%=filename%>?page=<%=currentPage+1%>&action=<%=request("action")%>&stat_year=<%=request("stat_year")%>&stat_month=<%=request("stat_month")%>&stat_day=<%=request("stat_day")%>"><%end if%>下一页<%if cint(currentpage)<totalpage then%></a><%end if%>
&nbsp;&nbsp;&nbsp;
        <%if cint(currentpage)<totalpage then%><a href="<%=filename%>?page=<%=totalpage%>&action=<%=request("action")%>&stat_year=<%=request("stat_year")%>&stat_month=<%=request("stat_month")%>&stat_day=<%=request("stat_day")%>"><%end if%>尾页<%if cint(currentpage)<totalpage then%></a><%end if%>
&nbsp;<font face="Webdings">8</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 共有<span class="font3"><%=totalhow%></span>条记录&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;共<span class="font3"><%=currentPage%></span>/<span class="font3"><%=totalpage%></span>页</td>
      <td width="129">　
          <select name="topage" size="1" class="select1" onChange="JavaScript:tourl(document.form1.topage.options[document.form1.topage.selectedIndex].value)">
            <%
for j=1 to totalpage
%>
            <option value="<%=filename%>?page=<%=j%>&action=<%=request("action")%>&stat_year=<%=request("stat_year")%>&stat_month=<%=request("stat_month")%>&stat_day=<%=request("stat_day")%>" <%if cint(request("page"))=j then%>selected<%end if%>> 第<%=j%>页 </option>
            <%next%>
        </select></td>
  </form>
  <!-- ############################ 判断分页类型结束 ######################## -->
</table>
<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>