<!-- #include file="include/adovbs.inc" -->
<!-- #include file="include/dataconn.asp" -->
<!-- #include file="include/checksession.asp" -->
<!-- #include file="common.asp" -->
<%
sql = "select hy.*,HyClub.AddTime,HyClub.HyNumber from hy left join HyClub on Hy.ID=HyClub.HyID  where hy.IsApproved=False"
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,1
	Fahrcnt=rs.recordcount
	rs.close
	set rs=nothing
	set rs=server.createobject("adodb.recordset")
	sql="select Hy.HyLocation,Hy.HyName,Hy.HyCardNo,Hy.HyOpenBankNo,Hy.HyParentNumber,Hy.HyTjNumber,Hy.HyBuyCount,Hy.ID,HyClub.HyNumber,HyClub.AddTime from hy left join hyClub on hy.ID=HyClub.HyID where Hy.IsApproved=True"
	rs.open sql,conn,1,1
	Trhrcnt=rs.recordcount
	rs.close
	set rs=nothing
	sql = "select Hy.HyLocation,Hy.HyName,Hy.HyMobile,Hy.HyCardNo,Hy.HyOpenBankNo,Hy.HyParentNumber,Hy.HyTjNumber,Hy.HyBuyCount,Hy.ID,HyClub.HyNumber,HyClub.AddTime from hy left join hyClub on hy.ID=HyClub.HyID  where Hy.IsApproved=True and HyClub.AddTime='" & thistoday &"'"
    set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,1
	adhrcnt=rs.recordcount
	rs.close
	set rs=nothing
    sql = "select * from PaySignLog order by ID desc"
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,1
	Payhrcnt=rs.recordcount
	rs.close
	set rs=nothing
	sql = "select * from PaySignLog where IsSendMoneyByPal=False order by ID desc"
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,1
	noPayhrcnt=rs.recordcount
	rs.close
	set rs=nothing
	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 &"' and HyMoneyLog.AllMoney>0"
    set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,1
	hrcnt=rs.recordcount
    rs.close
	set rs=nothing
	sql = "select HyPickupMoneyLog.*,HyMoneyAccount.HyMoneyAccount from HyPickupMoneyLog "
	sql =sql & " left join HyMoneyAccount on HyMoneyAccount.Hynumber=HyPickupMoneyLog.HyNumber"
	sql =sql & " order by HyPickupMoneyLog.id desc"
	 set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,1
	hrcnts=rs.recordcount
    rs.close
	set rs=nothing
	sql = "select HyPickupMoneyLog.*,HyMoneyAccount.HyMoneyAccount from HyPickupMoneyLog "
	sql =sql & " left join HyMoneyAccount on HyMoneyAccount.Hynumber=HyPickupMoneyLog.HyNumber where HyPickupMoneyLog.PickupStatus=0"
	sql =sql & " order by HyPickupMoneyLog.id desc"
	 set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,1
	PickupStatus=rs.recordcount
    rs.close
	set rs=nothing

	
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body>

</script>
</head>
<body topmargin="30">
<table  width="735" border="0" cellspacing="1" cellpadding="5"  align="center" bgcolor="#aaaaaa">
  <tr>
    <td height="13" colspan="2" align="center" bgcolor=#457D8D><font color="#FFFFFF"><b>总 后 台 办 公 桌 面</b></font></td>
  </tr>
    
  <tr bgcolor="#FFFFFF"> 
      
    <td width="524" height="181" valign="top" style="padding-top: 3px">
	<table width="100%"  border="0" cellspacing="1" cellpadding="3" bgcolor="#cccccc">
      <tr>
        <td height="24" bgcolor="#f1f1f1"> <a href="infoman.asp">公告/新闻</a> </td>
      </tr>
	  <%
	  Set rs=Server.CreateObject("ADODB.recordset")
      sql="select top 6 * from t_InfoDetail order by CreateDateTime desc"
      rs.open sql,conn,1,1
	  if rs.recordcount>0 then
	  do until rs.eof
	  %>
      <tr>
        <td bgcolor="#FFFFFF">
		<img border="0" src="Image/014.gif" width="15" height="9"> <a href="Javascript:" onClick ="openwin('NewList.asp?ID=<% =Rs("infoid")%>',600)"><%=rs("InfoTitle")%></a> 
        <font color="#0066FF">[<%=rs("CreateDateTime")%>]</font></td>
      </tr>
	  <%
	  rs.movenext
	  loop
	  end if
	  rs.close
	  set rs=nothing
	  %>
    </table>
	<br>
	<table width="100%"  border="0" cellspacing="1" cellpadding="3" bgcolor="#cccccc">
      <tr>
        <td height="24" bgcolor="#f1f1f1">          <a href="khbook.asp">留言信息</a></td>
      </tr>
	  <%
      set rs=Server.CreateObject("ADODB.recordset")
      sql="select top 6 * from GuestBook order by id desc"
      rs.open sql,conn,1,1
	  if rs.recordcount>0 then
	  do until rs.eof
	  %>
      <tr>
        <td bgcolor="#FFFFFF">
		<img border="0" src="Image/015.gif" width="15" height="9"> <%=rs("Title")%>（<font color="#dd0000"><%=server.htmlencode(rs("Content"))%></font>）</td>
      </tr>
	  <%
	  rs.movenext
	  loop
	  end if
	  	  rs.close
	  set rs=nothing
	  %>
    </table>
	</td>
    <td width="188" valign="top" style="padding-top: 3px">
	<table width="100%"  border="0" cellspacing="1" cellpadding="3" bgcolor="#7C96B8">
      <tr>
        <td bgcolor="#457d8d"><font color="#ffffff">节日提醒</font></td>
      </tr>
      <tr>
        <td bgcolor="#FFFFFF" align=center> <SCRIPT language=javascript>                                 
<!--                             
calendar = new Date(); 
month = calendar.getMonth();                                 
date = calendar.getDate();                                 
year = calendar.getYear();
hours= calendar.getHours();
if (year< 100)  year = 2000 + year;
 document.write(" <font color=red size=2 face=黑体>今天是："+year+"年"+(month+1)+"月"+date+"日</font>");                             
//提前十天提醒节日                                 
document.write("<font color=FF0000 size=2 face=黑体><br>"); 
//以下为元旦提醒 
if ((month == 11) && (date == 22))  document.write("距元旦还有十天！");
if ((month == 11) && (date == 23))  document.write("距元旦还有九天！");
if ((month == 11) && (date == 24))  document.write("距元旦还有八天！");
if ((month == 11) && (date == 25))  document.write("距元旦还有七天！");
if ((month == 11) && (date == 26))  document.write("距元旦还有六天！");
if ((month == 11) && (date == 27))  document.write("距元旦还有五天！");
if ((month == 11) && (date == 28))  document.write("距元旦还有四天！");
if ((month == 11) && (date == 29))  document.write("距元旦还有三天！");
if ((month == 11) && (date == 30))  document.write("距元旦还有二天！");
if ((month == 11) && (date == 31))  document.write("距元旦还有一天！");               
if ((month == 0) && (date == 1))  document.write("元旦快乐！");
//情人节提醒 
if ((month == 1) && (date == 4)) document.write("距情人节还有十天！");
if ((month == 1) && (date == 5)) document.write("距情人节还有九天！");
if ((month == 1) && (date == 6)) document.write("距情人节还有八天！");
if ((month == 1) && (date == 7)) document.write("距情人节还有七天！");
if ((month == 1) && (date == 8)) document.write("距情人节还有六天！");
if ((month == 1) && (date == 9)) document.write("距情人节还有五天！");
if ((month == 1) && (date == 10)) document.write("距情人节还有四天！");
if ((month == 1) && (date == 11)) document.write("距情人节还有三天！");
if ((month == 1) && (date == 12)) document.write("距情人节还有二天！");
if ((month == 1) && (date == 13)) document.write("距情人节还有一天！");                    
if ((month == 1) && (date == 14)) document.write("情人节快乐！");
//妇女节提醒，还要考虑是不是闰年的问题 
if ((((year%4)==0)&&((year%100)!=0))||((year%400)==0))
{
if ((month == 1) && (date == 26)) document.write("距劳动妇女节还有十天！");
if ((month == 1) && (date == 27)) document.write("距劳动妇女节还有九天！");
if ((month == 1) && (date == 28)) document.write("距劳动妇女节还有八天！");
if ((month == 1) && (date == 29)) document.write("距劳动妇女节还有七天！");
}
else
{
if ((month == 1) && (date == 25)) document.write("距劳动妇女节还有十天！");
if ((month == 1) && (date == 26)) document.write("距劳动妇女节还有九天！");
if ((month == 1) && (date == 27)) document.write("距劳动妇女节还有八天！");
if ((month == 1) && (date == 28)) document.write("距劳动妇女节还有七天！");
}


if ((month == 2) && (date == 1)) document.write("距劳动妇女节还有六天！");
if ((month == 2) && (date == 2)) document.write("距劳动妇女节还有五天！");
if ((month == 2) && (date == 3)) document.write("距劳动妇女节还有四天！");
if ((month == 2) && (date == 4)) document.write("距劳动妇女节还有三天！");
if ((month == 2) && (date == 6)) document.write("距劳动妇女节还有二天！");
if ((month == 2) && (date == 7)) document.write("距劳动妇女节还有一天！");         
if ((month == 2) && (date == 8)) document.write("今天是国际劳动妇女节！");
//儿童节提醒

if ((month == 4) && (date == 22)) document.write("距儿童节还有十天！");
if ((month == 4) && (date == 23)) document.write("距儿童节还有九天！");
if ((month == 4) && (date == 24)) document.write("距儿童节还有八天！");
if ((month == 4) && (date == 25)) document.write("距儿童节还有七天！");
if ((month == 4) && (date == 26)) document.write("距儿童节还有六天！");
if ((month == 4) && (date == 27)) document.write("距儿童节还有五天！");
if ((month == 4) && (date == 28)) document.write("距儿童节还有四天！");
if ((month == 4) && (date == 29)) document.write("距儿童节还有三天！");
if ((month == 4) && (date == 30)) document.write("距儿童节还有二天！");
if ((month == 4) && (date == 31)) document.write("距儿童节还有一天！");
if ((month == 5) && (date == 1)) document.write("今天是国际儿童节！");
//教师节提醒
if ((month == 7) && (date == 31)) document.write("距教师节还有十天！");
if ((month == 8) && (date == 1)) document.write("距教师节还有九天！");
if ((month == 8) && (date == 2)) document.write("距教师节还有八天！");
if ((month == 8) && (date == 3)) document.write("距教师节还有七天！");
if ((month == 8) && (date == 4)) document.write("距教师节还有六天！");
if ((month == 8) && (date == 5)) document.write("距教师节还有五天！");
if ((month == 8) && (date == 6)) document.write("距教师节还有四天！");
if ((month == 8) && (date == 7)) document.write("距教师节还有三天！");
if ((month == 8) && (date == 8)) document.write("距教师节还有二天！");
if ((month == 8) && (date == 9)) document.write("距教师节还有一天！");
if ((month == 8) && (date == 10)) document.write("今天是教师节！");
//国庆节提醒 
if ((month == 8) && (date == 21)) document.write("距国庆节还有十天！");
if ((month == 8) && (date == 22)) document.write("距国庆节还有九天！");
if ((month == 8) && (date == 23)) document.write("距国庆节还有八天！");
if ((month == 8) && (date == 24)) document.write("距国庆节还有七天！");
if ((month == 8) && (date == 25)) document.write("距国庆节还有六天！");
if ((month == 8) && (date == 26)) document.write("距国庆节还有五天！");
if ((month == 8) && (date == 27)) document.write("距国庆节还有四天！");
if ((month == 8) && (date == 28)) document.write("距国庆节还有三天！");
if ((month == 8) && (date == 29)) document.write("距国庆节还有二天！");
if ((month == 8) && (date == 30)) document.write("距国庆节还有一天！");           
if ((month == 9) && (date == 1)) document.write("今天是国庆节！");
//圣诞提醒  
if ((month == 11) && (date == 15)) document.write("距圣诞还有十天！");
if ((month == 11) && (date == 16)) document.write("距圣诞还有九天！");
if ((month == 11) && (date == 17)) document.write("距圣诞还有八天！");
if ((month == 11) && (date == 18)) document.write("距圣诞还有七天！");
if ((month == 11) && (date == 19)) document.write("距圣诞还有六天！");
if ((month == 11) && (date == 20)) document.write("距圣诞还有五天！");
if ((month == 11) && (date == 21)) document.write("距圣诞还有四天！");
if ((month == 11) && (date == 22)) document.write("距圣诞还有三天！");
if ((month == 11) && (date == 23)) document.write("距圣诞还有二天！");
if ((month == 11) && (date == 24)) document.write("距圣诞还有一天！");
if ((month == 11) && (date == 25)) document.write("圣诞快乐！");
document.write("</font>");                              
                             
//-->                                 
</SCRIPT>                                 
</td>
      </tr>
    </table>
	<br>
	
	<table width="100%"  border="0" cellspacing="1" cellpadding="3" bgcolor="#7C96B8">
      <tr>
        <td bgcolor="#457d8d"><font color="#ffffff">系统统计</font></td>
      </tr>
      <tr>
        <td bgcolor="#FFFFFF" align=left> <a href="hyman.asp">待确认会员</a></td>
      </tr>
      <tr>
        <td bgcolor="#FFFFFF" align=left> <a href="hymanOk.asp">已确认会员：</a><%=Trhrcnt%>人</td>
      </tr>
      <tr>
        <td bgcolor="#FFFFFF" align=left> <a href="hymanOktoday.asp">今日新增会员：</a><%=adhrcnt%>人</td>
      </tr>
	  <tr>
        <td bgcolor="#FFFFFF" align=left> <a href="hyWeekmoneymanok.asp">拿奖会员：</a> <%=hrcnt%>人</td>
      </tr>
      <tr>
        <td bgcolor="#FFFFFF" align=left> <a href="huikuanman.asp">汇款登记信息：</a><%=Payhrcnt%>条<font color=red>(<%=noPayhrcnt%>条未确认)</font></td>
      </tr>
      <tr>
        <td bgcolor="#FFFFFF" align=left> <a href="HyPickupMoneyLog.asp">提款管理：</a> <%=hrcnts%>条<font color=red>(<%=PickupStatus%>条未处理)</font></td>
      </tr>
    </table>
	</td>
  </tr>
</table>
</body>
</html>