<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%
If session("admau")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
elseIf session("canadmhost")="" Then
	ef=True
	ec="您没有此操作的权限。"
end if
if not ef then%>
<!--#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" onClick="ShowDtable(1,6)"><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"><font color="#FFFFFF"> 报表信息</font><br></td>
            <td width="5" background="img/midtop2.gif">&nbsp;</td>
          </tr>
      </table></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="reporttime.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" align="left">&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="1" cellpadding="2" align="center" bgcolor="#333333">
        <tr bgcolor="#C1BFBF" align="center">
          <td height="21" bgcolor="#C1BFBF">虚拟主机受控服务器</td>
          <td width="120" bgcolor="#C1BFBF">总量/不含子目录/试用</td>
          <td width="100">正常</td>
          <td width="100">暂停</td>
          <td width="100">停止</td>
          <td width="100">未备案</td>
        </tr>
		<%Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set dsX = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Serverlist order by orderbyid desc,id asc"
		dsX.Open Sql,conn,1,1

while not dsX.Eof%>

        <tr align="center" bgcolor="#FFFFFF">
          <td height="30" bgcolor="#FFFFFF"><%=dsX("id")%>.<%=dsX("servername")%> <%=dsX("ip")%> <%if dsX("agent1")<>"n" then%>　代理名：<a href="searchagent.asp?username=<%=dsX("agent1")%>"><font color="#0000FF"><%=dsX("agent1")%></font></a>
    <%end if%></td>
          <td bgcolor="#FFFFFF"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_Host where ServerlistID = '"&dsX ("id")&"'"
		        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 ServerlistID = '"&dsX ("id")&"' 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 ServerlistID = '"&dsX ("id")&"' and istest='y'"
		        dsph.Open Sql,conn,1,1  
		  %>
            <%=dsph(0)%>
            <%dsph.close%>            </td>
          <td><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_Host where ServerlistID = '"&dsX ("id")&"' and status='正常'"
		        dsph.Open Sql,conn,1,1  
		  %>
            <%=dsph(0)%>
            <%dsph.close%></td>
          <td><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_Host where ServerlistID = '"&dsX ("id")&"' and status='暂停'"
		        dsph.Open Sql,conn,1,1  
		  %><%=dsph(0)%><%dsph.close%></td>
          <td><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_Host where ServerlistID = '"&dsX ("id")&"' and status='停止'"
		        dsph.Open Sql,conn,1,1  
		  %><%=dsph(0)%><%dsph.close%></td>
          <td><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_Host where ServerlistID = '"&dsX ("id")&"' and beianstatus is null"
		        dsph.Open Sql,conn,1,1  
		  %><%=dsph(0)%><%dsph.close%></td>
        </tr>
        <%
dsX.movenext
wend%>
      </table>
      <br>
      <table width="98%" border="0" cellspacing="1" cellpadding="2" align="center" bgcolor="#333333">
        <tr bgcolor="#C1BFBF" align="center">
          <td height="21" bgcolor="#C1BFBF">本地云服务器</td>
          <td width="120" bgcolor="#C1BFBF">开通数量</td>
          <td width="100">正常</td>
          <td width="100">暂停</td>
          <td width="100">停止</td>
          <td width="100">失败</td>
          <td width="100">等装系统</td>
          <td width="100">准备开通</td>
        </tr>
        <%Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set dsX = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_ServerVPSlist order by id asc"
		dsX.Open Sql,conn,1,1

while not dsX.Eof%>
        <tr align="center" bgcolor="#FFFFFF">
          <td height="30" bgcolor="#FFFFFF"><%=dsX("id")%>.<%=dsX("servername")%> <%=dsX("ip")%>
              <%if dsX("agent1")<>"n" then%>
      　 代理名：<a href="searchagent.asp?username=<%=dsX("agent1")%>"><font color="#0000FF"><%=dsX("agent1")%></font></a>
      <%end if%></td>
          <td width="120" bgcolor="#FFFFFF"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_VPS where ServerlistID = '"&dsX ("id")&"'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%></td>
          <td width="100"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_VPS where ServerlistID = '"&dsX ("id")&"' and status='正常'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%></td>
          <td width="100"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_VPS where ServerlistID = '"&dsX ("id")&"' and status='暂停'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%></td>
          <td width="100"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_VPS where ServerlistID = '"&dsX ("id")&"' and status='停止'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%></td>
          <td width="100"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_VPS where ServerlistID = '"&dsX ("id")&"' and status='失败'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%></td>
          <td width="100"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_VPS where ServerlistID = '"&dsX ("id")&"' and status='等待安装操作系统'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%></td>
          <td width="100"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_VPS where ServerlistID = '"&dsX ("id")&"' and status='准备开通'"
		        dsph.Open Sql,conn,1,1  
		  %>
            <%=dsph(0)%>
            <%dsph.close%></td>
        </tr>
        <%
dsX.movenext
wend%>
      </table>
      <br>
      <br>
      <table width="98%" border="0" cellspacing="1" cellpadding="2" align="center" bgcolor="#333333">
        <tr bgcolor="#C1BFBF" align="center">
          <td height="21" bgcolor="#C1BFBF">邮箱受控服务器</td>
          <td width="120" bgcolor="#C1BFBF">开通数量</td>
          <td width="100">正常</td>
          <td width="100">暂停</td>
          <td width="100">停止</td>
          <td width="100">&nbsp;</td>
        </tr>
        <%Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set dsX = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_ServerEmaillist order by id asc"
		dsX.Open Sql,conn,1,1

while not dsX.Eof%>
        <tr align="center" bgcolor="#FFFFFF">
          <td height="30" bgcolor="#FFFFFF"><%=dsX("id")%>.<%=dsX("servername")%> <%=dsX("ip")%>
              <%if dsX("agent1")<>"n" then%>
      　 代理名：<a href="searchagent.asp?username=<%=dsX("agent1")%>"><font color="#0000FF"><%=dsX("agent1")%></font></a>
      <%end if%></td>
          <td width="120" bgcolor="#FFFFFF"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_Email where ServerlistID = '"&dsX ("id")&"'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%></td>
          <td width="100"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_Email where ServerlistID = '"&dsX ("id")&"' and status='正常'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%></td>
          <td width="100"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_Email where ServerlistID = '"&dsX ("id")&"' and status='暂停'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%></td>
          <td width="100"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_Email where ServerlistID = '"&dsX ("id")&"' and status='停止'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%></td>
          <td width="100">&nbsp;</td>
        </tr>
        <%
dsX.movenext
wend%>
      </table>
      <br>
      <table width="98%" border="0" cellspacing="1" cellpadding="2" align="center" bgcolor="#333333">
        <tr bgcolor="#C1BFBF" align="center">
          <td height="21" bgcolor="#C1BFBF">数据库受控服务器</td>
          <td width="120" bgcolor="#C1BFBF">数据库数量</td>
          <td width="100">正常</td>
          <td width="100">暂停</td>
          <td width="100">停止</td>
          <td width="100">&nbsp;</td>
        </tr>
        <%Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set dsX = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_ServerSQLlist order by id asc"
		dsX.Open Sql,conn,1,1

while not dsX.Eof%>
        <tr align="center" bgcolor="#FFFFFF">
          <td height="30" bgcolor="#FFFFFF"><%=dsX("id")%>.<%=dsX("servername")%> <%=dsX("ip")%>
              <%if dsX("agent1")<>"n" then%>
              　 代理名：<a href="searchagent.asp?username=<%=dsX("agent1")%>"><font color="#0000FF"><%=dsX("agent1")%></font></a>
              <%end if%></td>
          <td width="120" bgcolor="#FFFFFF"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_SQL where ServerlistID = '"&dsX ("id")&"'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%></td>
          <td width="100"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_SQL where ServerlistID = '"&dsX ("id")&"' and status='正常'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%></td>
          <td width="100"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_SQL where ServerlistID = '"&dsX ("id")&"' and status='暂停'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%></td>
          <td width="100"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_SQL where ServerlistID = '"&dsX ("id")&"' and status='停止'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%></td>
          <td width="100">&nbsp;</td>
        </tr>
        <%
dsX.movenext
wend%>
      </table>
      <br>
      <br>
      <table width="98%" border="0" cellspacing="1" cellpadding="2" align="center" bgcolor="#333333">
        <tr bgcolor="#C1BFBF" align="center">
          <td height="21" bgcolor="#C1BFBF">多点分布CDN产品</td>
          <td width="120" bgcolor="#C1BFBF">数量</td>
          <td width="100">正常</td>
          <td width="100">暂停</td>
          <td width="100">试用</td>
          <td width="100">&nbsp;</td>
        </tr>
        <%Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set dsX = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_ServerCDNlist where cdntype='多点分布CDN加速用' order by id asc"
		dsX.Open Sql,conn,1,1

while not dsX.Eof%>
        <tr align="center" bgcolor="#FFFFFF">
          <td height="30" bgcolor="#FFFFFF"><%=dsX("id")%>.<%=dsX("servername")%> <%=dsX("ip")%>
</td>
          <td width="120" bgcolor="#FFFFFF"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_CDN where (Bindserverid1='"&dsX ("Bindserverid1")&"' or Bindserverid2='"&dsX ("Bindserverid2")&"')"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%></td>
          <td width="100"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_CDN where (Bindserverid1='"&dsX ("Bindserverid1")&"' or Bindserverid2='"&dsX ("Bindserverid2")&"') and status='正常'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%></td>
          <td width="100"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_CDN where (Bindserverid1='"&dsX ("Bindserverid1")&"' or Bindserverid2='"&dsX ("Bindserverid2")&"') and status='暂停'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%></td>
          <td width="100"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_CDN where (Bindserverid1='"&dsX ("Bindserverid1")&"' or Bindserverid2='"&dsX ("Bindserverid2")&"') and status='试用'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%></td>
          <td width="100">&nbsp;</td>
        </tr>
        <%
dsX.movenext
wend%>
      </table>
      <br>	  
      <table width="98%" border="0" cellspacing="1" cellpadding="2" align="center" bgcolor="#333333">
        <tr bgcolor="#C1BFBF" align="center">
          <td height="21" bgcolor="#C1BFBF">域名统计</td>
          <td width="120" bgcolor="#C1BFBF">(全部)域名数量</td>
          <td width="100">正常</td>
          <td width="100">过期</td>
          <td width="100">预注册</td>
          <td width="100">&nbsp;</td>
        </tr>

        <tr align="center" bgcolor="#FFFFFF">
          <td height="30" bgcolor="#FFFFFF">全部类型域名</td>
          <td width="120" bgcolor="#FFFFFF"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%></td>
          <td width="100"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='正常' and endtime is not null and endtime > '"&now&"'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%></td>
          <td width="100"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where endtime is not null and endtime < '"&now&"'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%></td>
          <td width="100"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='预注册成功'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%></td>
          <td width="100">&nbsp;</td>
        </tr>
		
        <tr align="center" bgcolor="#FFFFFF">
          <td height="30" bgcolor="#FFFFFF">CN域名</td>
          <td width="120" bgcolor="#FFFFFF"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where domain like '%.cn'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where domain like '%.cn' and domain_api=1"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(新网互联)
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where domain like '%.cn' and domain_api=2"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(新网)	  
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where domain like '%.cn' and domain_api=3"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(商中)

<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where domain like '%.cn' and domain_api=4"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(中频)   
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where domain like '%.cn' and domain_api=5"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(万网)
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where domain like '%.cn' and domain_api=6"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(API6)
              <%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where domain like '%.cn' and domain_api=7"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(API7外国)
              <%dsph.close%>			  			    
		    </td>
          <td width="100"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='正常' and endtime is not null and endtime > '"&now&"' and domain like '%.cn'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='正常' and endtime is not null and endtime > '"&now&"' and domain like '%.cn' and domain_api=1"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(新网互联)
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='正常' and endtime is not null and endtime > '"&now&"' and domain like '%.cn' and domain_api=2"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(新网)	  
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='正常' and endtime is not null and endtime > '"&now&"' and domain like '%.cn' and domain_api=3"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(商中)

<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='正常' and endtime is not null and endtime > '"&now&"' and domain like '%.cn' and domain_api=4"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(中频)   
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='正常' and endtime is not null and endtime > '"&now&"' and domain like '%.cn' and domain_api=5"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(万网)
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='正常' and endtime is not null and endtime > '"&now&"' and domain like '%.cn' and domain_api=6"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(API6)
              <%dsph.close%>		
<br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='正常' and endtime is not null and endtime > '"&now&"' and domain like '%.cn' and domain_api=7"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(API7)
              <%dsph.close%>					  	    
			  
		    </td>
          <td width="100">



<%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where endtime is not null and endtime < '"&now&"' and domain like '%.cn'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where endtime is not null and endtime < '"&now&"' and domain like '%.cn' and domain_api=1"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(新网互联)
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where endtime is not null and endtime < '"&now&"' and domain like '%.cn' and domain_api=2"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(新网)	  
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where endtime is not null and endtime < '"&now&"' and domain like '%.cn' and domain_api=3"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(商中)

<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where endtime is not null and endtime < '"&now&"' and domain like '%.cn' and domain_api=4"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(中频)   
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where endtime is not null and endtime < '"&now&"' and domain like '%.cn' and domain_api=5"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(万网)
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where endtime is not null and endtime < '"&now&"' and domain like '%.cn' and domain_api=6"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(API6)
              <%dsph.close%>				
<br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where endtime is not null and endtime < '"&now&"' and domain like '%.cn' and domain_api=7"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(API7)
              <%dsph.close%>							    
			  
		    </td>
          <td width="100">  
			  
<%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='预注册成功'  and domain like '%.cn'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='预注册成功'  and domain like '%.cn' and domain_api=1"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(新网互联)
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='预注册成功'  and domain like '%.cn' and domain_api=2"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(新网)	  
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='预注册成功'  and domain like '%.cn' and domain_api=3"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(商中)

<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='预注册成功'  and domain like '%.cn' and domain_api=4"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(中频)   
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='预注册成功'  and domain like '%.cn' and domain_api=5"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(万网)
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='预注册成功'  and domain like '%.cn' and domain_api=6"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(API6)
              <%dsph.close%>				
<br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='预注册成功'  and domain like '%.cn' and domain_api=7"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(API7)
              <%dsph.close%>							    
			  
			  
			  
			  
			  
		    </td>
          <td width="100">&nbsp;</td>
        </tr>
		
        <tr align="center" bgcolor="#FFFFFF">
          <td height="30" bgcolor="#FFFFFF">COM/NET/ORG域名</td>
          <td width="120" bgcolor="#FFFFFF"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where (domain like '%.com' or domain like '%.net' or domain like '%.org')"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where (domain like '%.com' or domain like '%.net' or domain like '%.org') and domain_api=1"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(新网互联)
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where (domain like '%.com' or domain like '%.net' or domain like '%.org') and domain_api=2"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(新网)	  
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where (domain like '%.com' or domain like '%.net' or domain like '%.org') and domain_api=3"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(商中)

<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where (domain like '%.com' or domain like '%.net' or domain like '%.org') and domain_api=4"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(中频)   
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where (domain like '%.com' or domain like '%.net' or domain like '%.org') and domain_api=5"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(万网)
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where (domain like '%.com' or domain like '%.net' or domain like '%.org') and domain_api=6"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(API6)
              <%dsph.close%>			
<br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where (domain like '%.com' or domain like '%.net' or domain like '%.org') and domain_api=7"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(API7)
              <%dsph.close%>						      
		    </td>
          <td width="100"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='正常' and endtime is not null and endtime > '"&now&"' and (domain like '%.com' or domain like '%.net' or domain like '%.org')"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='正常' and endtime is not null and endtime > '"&now&"' and (domain like '%.com' or domain like '%.net' or domain like '%.org') and domain_api=1"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(新网互联)
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='正常' and endtime is not null and endtime > '"&now&"' and (domain like '%.com' or domain like '%.net' or domain like '%.org') and domain_api=2"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(新网)	  
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='正常' and endtime is not null and endtime > '"&now&"' and (domain like '%.com' or domain like '%.net' or domain like '%.org') and domain_api=3"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(商中)

<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='正常' and endtime is not null and endtime > '"&now&"' and (domain like '%.com' or domain like '%.net' or domain like '%.org') and domain_api=4"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(中频)   
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='正常' and endtime is not null and endtime > '"&now&"' and (domain like '%.com' or domain like '%.net' or domain like '%.org') and domain_api=5"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(万网)
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='正常' and endtime is not null and endtime > '"&now&"' and (domain like '%.com' or domain like '%.net' or domain like '%.org') and domain_api=6"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(API6)
<br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='正常' and endtime is not null and endtime > '"&now&"' and (domain like '%.com' or domain like '%.net' or domain like '%.org') and domain_api=7"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(API7)			  
              <%dsph.close%>			    
			  
		    </td>
          <td width="100">



<%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where endtime is not null and endtime < '"&now&"' and (domain like '%.com' or domain like '%.net' or domain like '%.org')"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where endtime is not null and endtime < '"&now&"' and (domain like '%.com' or domain like '%.net' or domain like '%.org') and domain_api=1"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(新网互联)
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where endtime is not null and endtime < '"&now&"' and (domain like '%.com' or domain like '%.net' or domain like '%.org') and domain_api=2"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(新网)	  
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where endtime is not null and endtime < '"&now&"' and (domain like '%.com' or domain like '%.net' or domain like '%.org') and domain_api=3"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(商中)

<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where endtime is not null and endtime < '"&now&"' and (domain like '%.com' or domain like '%.net' or domain like '%.org') and domain_api=4"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(中频)   
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where endtime is not null and endtime < '"&now&"' and (domain like '%.com' or domain like '%.net' or domain like '%.org') and domain_api=5"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(万网)
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where endtime is not null and endtime < '"&now&"' and (domain like '%.com' or domain like '%.net' or domain like '%.org') and domain_api=6"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(API6)
              <%dsph.close%>				
<br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where endtime is not null and endtime < '"&now&"' and (domain like '%.com' or domain like '%.net' or domain like '%.org') and domain_api=7"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(API7)
              <%dsph.close%>							    
			  
		    </td>
          <td width="100">  
			  
<%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='预注册成功'  and (domain like '%.com' or domain like '%.net' or domain like '%.org')"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='预注册成功'  and (domain like '%.com' or domain like '%.net' or domain like '%.org') and domain_api=1"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(新网互联)
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='预注册成功'  and (domain like '%.com' or domain like '%.net' or domain like '%.org') and domain_api=2"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(新网)	  
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='预注册成功'  and (domain like '%.com' or domain like '%.net' or domain like '%.org') and domain_api=3"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(商中)

<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='预注册成功'  and (domain like '%.com' or domain like '%.net' or domain like '%.org') and domain_api=4"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(中频)   
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='预注册成功'  and (domain like '%.com' or domain like '%.net' or domain like '%.org') and domain_api=5"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(万网)
<%dsph.close%><br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='预注册成功'  and (domain like '%.com' or domain like '%.net' or domain like '%.org') and domain_api=6"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(API6)
              <%dsph.close%>				
<br>
<%Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_domain where status='预注册成功'  and (domain like '%.com' or domain like '%.net' or domain like '%.org') and domain_api=7"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>(API7)
              <%dsph.close%>							    
			  
			  
			  
			  
			  
		    </td>
          <td width="100">&nbsp;</td>
        </tr>
						
				
      </table>
      <br>
      <table width="98%" border="0" cellspacing="1" cellpadding="2" align="center" bgcolor="#333333">
        <tr bgcolor="#C1BFBF" align="center">
          <td height="21" bgcolor="#C1BFBF">机柜统计</td>
          <td width="120" bgcolor="#C1BFBF">开通数量</td>
          <td width="100">正常</td>
          <td width="100">暂停</td>
          <td width="100">过期</td>
          <td width="100">空闲</td>
          <td width="100">等待处理</td>
          <td width="100">准备上架</td>
        </tr>
        <%Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set dsX = Server.CreateObject("ADODB.Recordset")	
Sql="Select * from FreeHost.FreeHost_IDCJG order by jfname,id asc"
		dsX.Open Sql,conn,1,1

while not dsX.Eof%>
        <tr align="center" bgcolor="#FFFFFF">
          <td height="30" bgcolor="#FFFFFF"><%=dsX("id")%>.<%=dsX("jfname")%>　<%=dsX("jgname")%>
              <%if dsX("agent1")<>"n" then%>
      　 代理名：<a href="searchagent.asp?username=<%=dsX("agent1")%>"><font color="#0000FF"><%=dsX("agent1")%></font></a>
      <%end if%></td>
          <td width="120" bgcolor="#FFFFFF"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_IDC where ServerlistID = '"&dsX ("id")&"'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%></td>
          <td width="100"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_IDC where ServerlistID = '"&dsX ("id")&"' and status='正常'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%></td>
          <td width="100"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_IDC where ServerlistID = '"&dsX ("id")&"' and status='暂停'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%></td>
          <td width="100"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_IDC where ServerlistID = '"&dsX ("id")&"' and status='过期'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%></td>
          <td width="100"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_IDC where ServerlistID = '"&dsX ("id")&"' and status='空闲'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%></td>
          <td width="100"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_IDC where ServerlistID = '"&dsX ("id")&"' and status='等待处理'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%></td>
          <td width="100"><%
		  	Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select count(*) from FreeHost.FreeHost_Product_IDC where ServerlistID = '"&dsX ("id")&"' and status='准备上架'"
		        dsph.Open Sql,conn,1,1  
		  %>
              <%=dsph(0)%>
              <%dsph.close%></td>
        </tr>
        <%
dsX.movenext
wend%>
      </table>
      <br></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%>
