<!--#include virtual="/incs/config.asp" -->
<!--#include virtual="/incs/top.asp" -->
<%
chk_log()
	hnme=SafeRequest("hnme")
	If hnme="" Then
	call errorpage(-2,"对不起，参数错误a！")
	End If
if session("sysclass")>=5 then
query="select * from v_hstlst   where h_ftpusr ='"&hnme&"'"
elseif session("sysclass")>=4 then
query="select * from v_hstlst  where h_ftpusr ='"&hnme&"'  and  ((("&session("sysarestr")&" or u_myare=0) and u_rotnme='') or u_rotnme='"&session("usrname")&"')"
else
query="select * from v_hstlst  where h_unme='"&session("usrname")&"' and h_ftpusr ='"&hnme&"'"
end if
	conn.open constr
	rs.open query,conn,1,1
    if rs.recordcount<>1 then
	rs.close
	conn.close
	call errorpage(-2,"对不起，该主机不存在或者您无权操作！")
elseif rs("h_regstt")=0 then
	call errorpage(-2,"对不起，该主机未开通！")

	end if

%>
<%
			    freedomain = rs("h_ftpusr")&"."&rs("h_svrnme") 
			    proid=trim(rs("h_prd"))
                strServerComment=trim(rs("h_ftpusr"))
				h_sst=rs("g_sst")
		%>

      <script language=javascript>
		function expl()
		{
		if (identity.style.display=="none")
		identity.style.display="block";
		else
		identity.style.display="none";
		}
		</script>
 <table cellspacing=2 cellpadding=0 width="100%" border=0>
              <tbody> 
              <tr> 
                
    <td  colspan=2 valign="middle"> 
      <table class=line cellspacing=0 cellpadding=0 width="100%" 
                  border=0 align="center">
        <tbody> 
        <tr> 
          <td valign=bottom width="25%" height=20><font color="#000000" class=ddropshadow><b><span class=enbold><strong><font color="#000000">主机列表<a href="index.asp"  class=commonface ><font color="#FF0000">（查询）</font></a></font></strong></span></b></font></td>
          <td valign=bottom noWrap align=right 
                        width="75%"><a href="hst_lst.asp?querytype=8" class=commonface >今天新开通</a> 
            <font color="#000000">|</font> <a href="hst_lst.asp?querytype=9" class=commonface >本周新开通</a> 
            <font color="#000000">|</font> <a href="hst_lst.asp?querytype=10" class=commonface >本周到期</a> 
            <font color="#000000">| </font><a href="hst_lst.asp?querytype=11" class=commonface >本月到期</a></td>
        </tr>
        <tr> 
          <td align=middle width="100%" colspan=2 height=5></td>
        </tr>
        <tr> 
          <td align=middle width="100%" colspan=2 height=2 class=menuline></td>
        </tr>
        </tbody> 
      </table>
      <br>
                </td>
              </tr>
              <tr> 
                <td  colspan=2 valign="middle" height="28"> 
                  
      <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
                      <td> 
                        <!--#include file="menu.asp"-->
                      </td>
                    </tr>
                  </table>
                  <br>
                  
      <table cellpadding="0" cellspacing="0" id="AutoNumber3" class=datalist width="100%" align="center" border="0">
        <tr> 
                      <td height="4" width="99%" valign="top"  > 
                        <table cellpadding="0" cellspacing="0" id="AutoNumber3" style="border-collapse: collapse" width="100%" height="118" border="0">
                         
                          <tr> 
                            <td height="163"  valign="top"> 
                              
                  <table align="center" border="0" cellpadding="0" cellspacing="0" width="100%"  class=datalist>
                    <tr align="middle"> 
                      <th class=datalistheader colspan=3> 
                        <div align="center"><b>网站空间使用情况</b><a href="http://<%= freedomain %>" target=_blank></a></div>
                                  </th>
                                </tr>
                                <%
			  
			  
   substrContent = "entryclass:hst_mng"&Vend
   substrContent =substrContent& "entrytype:hst_get_sze"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&Vend
   substrContent = substrContent & "hostname:" & strServerComment & Vend
   substrContent = substrContent & "." & Vend
   wstr = hzsocket(substrContent)
 
if instr(wstr,"10000")<=0 then
call errorpage(-2,left(wstr,5)&" 对不起，获取主机当前容量情况失败(a)！")
end if

s_size=clng(rs("h_sze"))+clng(rs("h_szeadd"))
 s_used=replace(wstr,"result:","")
s_used=right(s_used,len(s_used)-5)
 s_used=round(s_used,2)
if  not chk_num(s_used) then
call errorpage(-2,left(wstr,5)&" 对不起，获取主机当前容量情况失败(b)！")
end if
if s_used=0 then
s_used=1
end if
s_remain=s_size-s_used			  
s_rate=s_used/s_size*100
s_rate=cstr(s_rate)
if instr(s_rate,".")>0 then
s_rate=left(s_rate,instr(s_rate,".")+4)
end if
s_rate=clng(s_rate)
s_rate_show=s_Rate
if s_rate<=1 then
s_rate_show=1
end if
			  %>
                                
                    <tr> 
                      <td height="22"  width="25%" class=datalistgrida > 
                                    <div align="center">空间总量：</div>
                                  </td>
                                  
                      <td  class=datalistgrida  ><%=s_size%> M</td>
                                </tr>
                                
                    <tr> 
                      <td height="22"  width="25%" class=datalistgrida > 
                                    <div align="center">总体情况：</div>
                                  </td>
                                  
                      <td colspan="2" class=datalistgrida  > 
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                      <tr> 
                                        <td width="70%"> 
                                          <table width="300" border="0" cellspacing="0" cellpadding="0"  style="border:#000000 1px double" >
                                            <tr> 
                                              <td   style="font-size:4px;" width=<%=s_rate_show%>%  bgcolor=#ff0000>&nbsp;</td>
                                              <td style="font-size:4px;" bgcolor="#CCCCCC">&nbsp;</td>
                                            </tr>
                                          </table>
                                        </td>
                                        <td>&nbsp;&nbsp;<%=s_rate%> % </td>
                                      </tr>
                                    </table>
                                  </td>
                                </tr>
                                
                    <tr> 
                      <td height="22"  width="25%" class=datalistgrida > 
                                    <div align="center">已用空间：</div>
                                  </td>
                                  
                      <td colspan="2"  class=datalistgrida > 
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                      <tr> 
                                        <td width=<%=300*s_rate/100+8%>> 
                                          <table width="<%=300*s_rate/100%>" border="0" cellspacing="0" cellpadding="0"  bgcolor=#ff0000>
                                            <tr> 
                                              <td   style="font-size:4px;border:#000000 1px double"  >&nbsp;</td>
                                            </tr>
                                          </table>
                                        </td>
                                        <td><%=s_used%> M</td>
                                      </tr>
                                    </table>
                                  </td>
                                </tr>
                                
                    <tr> 
                      <td height="22"  width="25%" class=datalistgrida > 
                                    <div align="center">剩余空间：</div>
                                  </td>
                                  
                      <td colspan="2"  class=datalistgrida > 
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                      <tr> 
                                        <td width=<%=300-300*s_rate/100+8%>> 
                                          <table width="<%=300-300*s_rate/100%>" border="0" cellspacing="0" cellpadding="0"  bgcolor=#cccccc>
                                            <tr> 
                                              <td   style="font-size:4px;border:#000000 1px double"  >&nbsp;</td>
                                            </tr>
                                          </table>
                                        </td>
                                        <td><%=s_remain%> M</td>
                                      </tr>
                                    </table>
                                  </td>
                                </tr>
                              </table>
                              <br>
                              
                            </td>
                          </tr>
                        </table>
                        <%
rs.close
conn.close
%>
                      </td>
                    </tr>
                    <tr> 
                      <td height="4" width="99%" valign="top"  >&nbsp;</td>
                    </tr>
                  </table>
                  <br>
                  <br>
                
                 
                  <br>
                </td>
              </tr>
              </tbody> 
            </table>
      <!--#include virtual="/incs/bottom.asp"-->
