<%@ Language=VBScript %> <% If session("agentusername")="" Then ef=True ec="授权非法，有可能是超时造成的。" end if if not ef then%> <%session("FreeHostCom").FreeHost_WR("html5")%>　报表功能<%session("FreeHostCom").FreeHost_WR("html6")%>

<%Set conn=Server.CreateObject("ADODB.Connection") conn.Open Application("FreeHostDBlink")%>

类型	总量/不含子目录/试用	正常	暂停	停止	未备案
虚拟主机	<% Set dsph = Server.CreateObject("ADODB.Recordset") SQL="Select count(*) from FreeHost.FreeHost_Product_Host where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"')" dsph.Open Sql,conn,1,1 %> <%=dsph(0)%> <%dsph.close%> / <% Set dsph = Server.CreateObject("ADODB.Recordset") SQL="Select count(*) from FreeHost.FreeHost_Product_Host where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and Hosttype<>'子目录绑定'" dsph.Open Sql,conn,1,1 %> <%=dsph(0)%> <%dsph.close%> / <% Set dsph = Server.CreateObject("ADODB.Recordset") SQL="Select count(*) from FreeHost.FreeHost_Product_Host where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and istest='y'" dsph.Open Sql,conn,1,1 %> <%=dsph(0)%> <%dsph.close%>	<% Set dsph = Server.CreateObject("ADODB.Recordset") SQL="Select count(*) from FreeHost.FreeHost_Product_Host where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and status='正常'" dsph.Open Sql,conn,1,1 %> <%=dsph(0)%> <%dsph.close%>	<% Set dsph = Server.CreateObject("ADODB.Recordset") SQL="Select count(*) from FreeHost.FreeHost_Product_Host where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and status='暂停'" dsph.Open Sql,conn,1,1 %> <%=dsph(0)%> <%dsph.close%>	<% Set dsph = Server.CreateObject("ADODB.Recordset") SQL="Select count(*) from FreeHost.FreeHost_Product_Host where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and status='停止'" dsph.Open Sql,conn,1,1 %> <%=dsph(0)%> <%dsph.close%>	<% Set dsph = Server.CreateObject("ADODB.Recordset") SQL="Select count(*) from FreeHost.FreeHost_Product_Host where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and beianstatus is null" dsph.Open Sql,conn,1,1 %> <%=dsph(0)%> <%dsph.close%>

邮箱类型	开通数量	正常	暂停	停止
邮箱	<% Set dsph = Server.CreateObject("ADODB.Recordset") SQL="Select count(*) from FreeHost.FreeHost_Product_Email where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"')" dsph.Open Sql,conn,1,1 %> <%=dsph(0)%> <%dsph.close%>	<% Set dsph = Server.CreateObject("ADODB.Recordset") SQL="Select count(*) from FreeHost.FreeHost_Product_Email where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and status='正常'" dsph.Open Sql,conn,1,1 %> <%=dsph(0)%> <%dsph.close%>	<% Set dsph = Server.CreateObject("ADODB.Recordset") SQL="Select count(*) from FreeHost.FreeHost_Product_Email where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and status='暂停'" dsph.Open Sql,conn,1,1 %> <%=dsph(0)%> <%dsph.close%>	<% Set dsph = Server.CreateObject("ADODB.Recordset") SQL="Select count(*) from FreeHost.FreeHost_Product_Email where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and status='停止'" dsph.Open Sql,conn,1,1 %> <%=dsph(0)%> <%dsph.close%>

类型	数据库数量	正常	暂停	停止
数据库	<% Set dsph = Server.CreateObject("ADODB.Recordset") SQL="Select count(*) from FreeHost.FreeHost_Product_SQL where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"')" dsph.Open Sql,conn,1,1 %> <%=dsph(0)%> <%dsph.close%>	<% Set dsph = Server.CreateObject("ADODB.Recordset") SQL="Select count(*) from FreeHost.FreeHost_Product_SQL where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and status='正常'" dsph.Open Sql,conn,1,1 %> <%=dsph(0)%> <%dsph.close%>	<% Set dsph = Server.CreateObject("ADODB.Recordset") SQL="Select count(*) from FreeHost.FreeHost_Product_SQL where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and status='暂停'" dsph.Open Sql,conn,1,1 %> <%=dsph(0)%> <%dsph.close%>	<% Set dsph = Server.CreateObject("ADODB.Recordset") SQL="Select count(*) from FreeHost.FreeHost_Product_SQL where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and status='停止'" dsph.Open Sql,conn,1,1 %> <%=dsph(0)%> <%dsph.close%>

域名统计	(全部)域名数量	正常	过期	预注册
域名	<% Set dsph = Server.CreateObject("ADODB.Recordset") SQL="Select count(*) from FreeHost.FreeHost_Product_domain where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"')" dsph.Open Sql,conn,1,1 %> <%=dsph(0)%> <%dsph.close%>	<% Set dsph = Server.CreateObject("ADODB.Recordset") SQL="Select count(*) from FreeHost.FreeHost_Product_domain where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and status='正常' and endtime is not null and endtime > '"&now&"'" dsph.Open Sql,conn,1,1 %> <%=dsph(0)%> <%dsph.close%>	<% Set dsph = Server.CreateObject("ADODB.Recordset") SQL="Select count(*) from FreeHost.FreeHost_Product_domain where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and endtime is not null and endtime < '"&now&"'" dsph.Open Sql,conn,1,1 %> <%=dsph(0)%> <%dsph.close%>	<% Set dsph = Server.CreateObject("ADODB.Recordset") SQL="Select count(*) from FreeHost.FreeHost_Product_domain where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and status='预注册成功'" dsph.Open Sql,conn,1,1 %> <%=dsph(0)%> <%dsph.close%>

 

<%session("FreeHostCom").FreeHost_WR("html7")%> <%end if if ef then Response.Redirect "e.asp?e="&ec end if%>