<%@ Language=VBScript %>
<%If session("admau")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
elseIf session("cancheckmoney")="" Then
	ef=True
	ec="您没有此操作的权限。"
end if
if not ef then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
'	Set dsmoney = Server.CreateObject("ADODB.Recordset")	
'	Sql="Select * from FreeHost.FreeHost_moneylog where isnew='y' and isdel is null order by id desc"
'if Request.QueryString ("op") ="all" then Sql="Select * from FreeHost.FreeHost_Product_Host order by id desc"
'if Request.QueryString ("op") ="pause" then Sql="Select * from FreeHost.FreeHost_Product_Host where endtime<'"&now&"' order by endtime desc"
'if Request.QueryString ("op") ="del" then Sql="Select * from FreeHost.FreeHost_Product_Host where endtime<'"&dateadd("d",-30,now)&"' order by endtime desc"
'	dsmoney.PageSize = 25
'	dsmoney.Open Sql,conn,1,1
%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html8")%>
<%=htmlwrite("html9")%>
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 background="img/midtop4.gif">
  <TBODY>
    <TR>
      <TD width=53 align="left" background="img/midtop1.gif" ><strong> 　 </strong><font color="#FFFFFF">─<strong>&gt;</strong></font> </TD>
      <TD width="83"><table height="59"  border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="7" background="img/midtop.gif">&nbsp;</td>
            <td width="60" align="center" valign="middle" background="img/r3.jpg" style="FONT-WEIGHT: bolder; Cursor:hand"  id="tableTop1"><a href="moneyall.asp"><font color="#FFFFFF"> 财务管理</font></a><br></td>
            <td width="5" background="img/midtop2.gif">&nbsp;</td>
          </tr>
      </table></TD>
      <TD width="83">&nbsp;</TD>
      <TD width="83"><table height="59"  border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="7" background="img/midtop.gif">&nbsp;</td>
            <td width="60" align="center" valign="middle" background="img/r3.jpg"  id="tableTop4" style="Cursor:hand"><a href="moneydeep.asp"><b><font color="#FFFFFF">财务分析</font></b></a></td>
            <td width="5" background="img/midtop2.gif">&nbsp;</td>
          </tr>
      </table></TD>
      <TD width="83" align="left" id="tableTop2">&nbsp;</TD>
      <TD width="83" align="left">&nbsp;</TD>
      <TD align="left">&nbsp;</TD>
      <TD width=23 align="right"><IMG height=59 
                  src="img/rtop4.jpg" 
                  width=19></TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR>
      <TD width=19 background="img/midlef.gif"  id=rightid>&nbsp;</TD>
      <TD height="462" align="center" vAlign=top background="contopa.gif" bgcolor="#FFFFFF">


        <table width="98%"  border="0" cellspacing="0" cellpadding="0" id="table1">
          <tr>
            <td width="10" height="23" background="img/contopa.gif">&nbsp;</td>
            <td height="23" align="left" valign="top" background="img/contopb.gif"><table width="100%"  border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td height="8" colspan="3"></td>
                </tr>
                <tr>
                  <td width="25">&nbsp;</td>
                  <td align="left" valign="top"><font color="#FFFFFF"><strong>财务分析</strong></font></td>
                  <td width="10"><a href="#"  onClick="table1.style.display='none';"><font color="#FFFFFF">X</font></a></td>
                </tr>
            </table></td>
            <td width="10" height="23" background="img/contopc.gif">&nbsp;</td>
          </tr>
          <tr>
            <td background="img/conmid1.gif">&nbsp;</td>
            <td align="center">
			
			

<table width="100%" height="7"  border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>

<table width="100%" height="69"  border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
  <tr bgcolor="#eeeeee">
    <td height="67" align="center" valign="middle" bgcolor="#FFFFFF"> <br>　
      <h2>所有新注册域名最近31天分析</h2>

        <table width="520" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td align="right" valign="top" id="endMaxid" style="line-height: 12px; margin-right: 2;text-align: right;padding:0px"> </td>
            <td><table width="500" border="1" cellpadding="0" cellspacing="0" background="img/deepback.gif">
              <tr>
                <td><table width="18"  border="0" cellspacing="1" cellpadding="1">
                    <tr>
                      <%
nowtime=Date
runcountMax=0
'runcountMaxAGN=0
Y=1
For i=-30 To 0
runtime=dateadd("d",i,nowtime)
runtime2=dateadd("d",i+1,nowtime)
		Set dsuser = Server.CreateObject("ADODB.Recordset")	
Sql="Select count(*) from FreeHost.FreeHost_Product_Domain where status='正常' and starttime>'"&runtime&"' and starttime<'"&runtime2&"'"
'response.write sql
dsuser.Open Sql,conn,1,1
runcount=dsuser(0)
dsuser.close
If runcount>runcountMax Then runcountMax=runcount
Sql="Select count(*) from FreeHost.FreeHost_Product_Domain where status='正常' and starttime>'"&runtime&"' and starttime<'"&runtime2&"' and agent1<>'n'"
dsuser.Open Sql,conn,1,1
'response.write sql
runcountAGN=dsuser(0)
'If runcountAGN>runcountMaxAGN Then runcountMaxAGN=runcountAGN
dsuser.close
%>
                      <td width="14" height="100" valign="bottom" title="<%=runcount%>" id="TDid<%=Y%>"><table width="14"  border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td valign="bottom" bgcolor="#006600"  id="TDidX<%=Y%>" title="<%=Year(runtime)%>-<%=Month(runtime)%>-<%=Day(runtime)%> <%If Weekday(runtime)=7 then%>(星期六)<%End If%><%If Weekday(runtime)=1 then%>(星期日)<%End If%>
总数量: <%=runcount%> 个
代理数量: <%=runcountAGN%> 个"><table width="14" height="0" border="0" cellpadding="0" cellspacing="0">
  <tr title="<%=runcountAGN%>" id="TDidAGN<%=Y%>">
    <td height="0" bgcolor="#009999" id="TDidXAGN<%=Y%>" title="<%=Year(runtime)%>-<%=Month(runtime)%>-<%=Day(runtime)%> <%If Weekday(runtime)=7 then%>(星期六)<%End If%><%If Weekday(runtime)=1 then%>(星期日)<%End If%>
总数量: <%=runcount%> 个
代理数量: <%=runcountAGN%> 个"></td>
  </tr>
</table>
</td>
                          </tr>
                      </table></td>
                      <%
Y=Y+1
next%>
                    </tr>
                    <tr>
                      <%
'nowtime=date
For i=-30 To 0
runtime=dateadd("d",i,nowtime)
runtime2=dateadd("d",i+1,nowtime)
%>
                      <td width="14" title="<%=Year(runtime)%>-<%=Month(runtime)%>-<%=Day(runtime)%>"><a href="listmydomain.asp?starttime1=<%=Year(runtime)%>-<%=Month(runtime)%>-<%=Day(runtime)%>&starttime2=<%=Year(runtime2)%>-<%=Month(runtime2)%>-<%=Day(runtime2)%>" target=_blank>
                        <%If Weekday(runtime)=1 or Weekday(runtime)=7 then%>
                        <font color=red><%=Day(runtime)%></font>
                        <%else%>
                        <%=Day(runtime)%>
                        <%End if%>
                      </a></td>
                      <%next%>
                    </tr>
                </table></td>
              </tr>
            </table></td>
          </tr>
        </table>
        <div style="width:520px;margin:12px 0px 12px 18px;color:#999">小提示: 在图形柱下面的数字上点击，即可立即转向相应日期开通记录</div>
<%if runcountMax=0 then runcountMax=0.001%>
<script>
document.getElementById("endMaxid").innerHTML="<%=FormatNumber(runcountMax,2,-1)%><br><br><%=FormatNumber(runcountMax*3/4,2,-1)%><br><br><%=FormatNumber(runcountMax*2/4,2,-1)%><br><br><%=FormatNumber(runcountMax*1/4,2,-1)%>";
<%For Y=1 To 31%>
document.getElementById("TDidX<%=Y%>").style.height = document.getElementById("TDid<%=Y%>").title*100/<%=runcountMax%>;
document.getElementById("TDidXAGN<%=Y%>").style.height = document.getElementById("TDidAGN<%=Y%>").title*100/<%=runcountMax%>;
<%next%>
</script>

　
      <h2>所有新开的正式虚拟主机最近31天分析</h2>

        <table width="520" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td align="right" valign="top" id="endMaxidHost" style="line-height: 12px; margin-right: 2;text-align: right;padding:0px"></td>
            <td><table width="500" border="1" cellpadding="0" cellspacing="0" background="img/deepback.gif">
                <tr>
                  <td><table width="18"  border="0" cellspacing="1" cellpadding="1">
                      <tr>
                        <%
nowtime=Date
runcountMax=0
'runcountMaxAGN=0
Y=1
For i=-30 To 0
runtime=dateadd("d",i,nowtime)
runtime2=dateadd("d",i+1,nowtime)
		Set dsuser = Server.CreateObject("ADODB.Recordset")	
Sql="Select count(*) from FreeHost.FreeHost_Product_Host where status='正常' and starttime>'"&runtime&"' and starttime<'"&runtime2&"'"
'response.write sql
dsuser.Open Sql,conn,1,1
runcount=dsuser(0)
dsuser.close
If runcount>runcountMax Then runcountMax=runcount
Sql="Select count(*) from FreeHost.FreeHost_Product_Host where status='正常' and starttime>'"&runtime&"' and starttime<'"&runtime2&"' and agent1<>'n'"
dsuser.Open Sql,conn,1,1
'response.write sql
runcountAGN=dsuser(0)
'If runcountAGN>runcountMaxAGN Then runcountMaxAGN=runcountAGN
dsuser.close
%>
                        <td width="14" height="100" valign="bottom" title="<%=runcount%>" id="TDidHost<%=Y%>"><table width="14"  border="0" cellspacing="0" cellpadding="0">
                            <tr>
                              <td valign="bottom" bgcolor="#006600"  id="TDidXHost<%=Y%>" title="<%=Year(runtime)%>-<%=Month(runtime)%>-<%=Day(runtime)%> <%If Weekday(runtime)=7 then%>(星期六)<%End If%><%If Weekday(runtime)=1 then%>(星期日)<%End If%>
总数量: <%=runcount%> 个
代理数量: <%=runcountAGN%> 个"><table width="14" height="0" border="0" cellpadding="0" cellspacing="0">
                                  <tr title="<%=runcountAGN%>" id="TDidHostAGN<%=Y%>">
                                    <td height="0" bgcolor="#009999" id="TDidXHostAGN<%=Y%>" title="<%=Year(runtime)%>-<%=Month(runtime)%>-<%=Day(runtime)%> <%If Weekday(runtime)=7 then%>(星期六)<%End If%><%If Weekday(runtime)=1 then%>(星期日)<%End If%>
总数量: <%=runcount%> 个
代理数量: <%=runcountAGN%> 个"></td>
                                  </tr>
                              </table></td>
                            </tr>
                        </table></td>
                        <%
Y=Y+1
next%>
                      </tr>
                      <tr>
                        <%
'nowtime=date
For i=-30 To 0
runtime=dateadd("d",i,nowtime)
runtime2=dateadd("d",i+1,nowtime)
%>
                        <td width="14" title="<%=Year(runtime)%>-<%=Month(runtime)%>-<%=Day(runtime)%>"><a href="admhost.asp?starttime1=<%=Year(runtime)%>-<%=Month(runtime)%>-<%=Day(runtime)%>&starttime2=<%=Year(runtime2)%>-<%=Month(runtime2)%>-<%=Day(runtime2)%>" target=_blank>
                          <%If Weekday(runtime)=1 or Weekday(runtime)=7 then%>
                          <font color=red><%=Day(runtime)%></font>
                          <%else%>
                          <%=Day(runtime)%>
                          <%End if%>
                        </a></td>
                        <%next%>
                      </tr>
                  </table></td>
                </tr>
            </table></td>
          </tr>
        </table>
        <div style="width:520px;margin:12px 0px 12px 18px;color:#999">小提示: 在图形柱下面的数字上点击，即可立即转向相应日期开通记录</div>	  
	  </td>
    </tr>
</table>
<%if runcountMax=0 then runcountMax=0.001%>
<script>
document.getElementById("endMaxidHost").innerHTML="<%=FormatNumber(runcountMax,2,-1)%><br><br><%=FormatNumber(runcountMax*3/4,2,-1)%><br><br><%=FormatNumber(runcountMax*2/4,2,-1)%><br><br><%=FormatNumber(runcountMax*1/4,2,-1)%>";
<%For Y=1 To 31%>
document.getElementById("TDidXHost<%=Y%>").style.height = document.getElementById("TDidHost<%=Y%>").title*100/<%=runcountMax%>;
document.getElementById("TDidXHostAGN<%=Y%>").style.height = document.getElementById("TDidHostAGN<%=Y%>").title*100/<%=runcountMax%>;
<%next%>
</script>




			
			
			
			
			
			</td>
            <td width="10" background="img/conmid2.gif">&nbsp;</td>
          </tr>
          <tr>
            <td width="10" height="10"><img src="img/conend1.gif" width="10" height="10"></td>
            <td height="10" background="img/conend2.gif"></td>
            <td width="10" height="10"><img src="img/conend3.gif" width="10" height="10"></td>
          </tr>
        </table>



</TD>
      <TD width=18 background="img/midri.gif">&nbsp;</TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
    <TR>
      <TD width=30><IMG height=19 
                  src="img/rb1.jpg" 
                  width=30></TD>
      <TD 
                background=img/rb2.jpg>&nbsp;</TD>
      <TD width=30><IMG height=19 
                  src="img/rb3.jpg" 
                  width=30></TD>
    </TR>
  </TBODY>
</TABLE>
<%=htmlwrite("html10")%>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>
