<!--#include file="conn.asp" -->
<!--#include file="inc/usdl.asp" -->
<!--#include file="inc/gl1.asp" -->
<!--#include file="inc/hostconfig.asp" -->
<% 
call gl(Trim(Request.QueryString("bh")))
us=session("us")
bh=request.QueryString("bh")

  sql="select * from host_shop where bh="&bh&"and userid='"&us&"' and ftp_auto=true" 
	rs.open sql,conn,1,1
	 if not rs.eof then
	  User_Name=rs("ftp")
	  else
	   Response.Write("对不起您所指点的ftp用户名不存在或此订单不支持在线管理功能..")
		Response.end
	  end if
	rs.close		 


Set myfileobject=server.createobject("scripting.filesystemobject")
 set myfile=myfileobject.opentextfile(seuv_filepath)
INPUT_INI_TEXT = myfile.ReadAll
  UserVal  = "[USER=" & User_Name & "|" & 1 & "]"
	Get_User = InStr(INPUT_INI_TEXT,UserVal)
	If Get_User=0 Then
		Response.Write "对不起您所指点的ftp用户名不存在"
		Response.end
	End If
d=true
e=true
set myfile=myfileobject.opentextfile(seuv_filepath)
  file_t=false
  while not myfile.atendofstream
   temp=myfile.readline
   if temp="[USER=" & User_Name & "|" & 1 & "]" or file_t then
    if instr(temp,"DiskQuota=")<>0 then
	   file_temp=temp
	   file_t=false
	  else
	  file_t=true
	  end if
   end if
  wend
  num1= Split(trim(file_temp),"=")(1)
  num2=Split(trim(num1),"|")(1)
  num2=num2/1024/1000
  num3=Split(trim(num1),"|")(2)
  num3=num3/1000\1024
  num4=num2-num3
 %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=page_title%>>>主机管理.</title>
<link href="css.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="3" topmargin="0">

<!--#include file="head.asp" -->
<table width="763" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="763" height="19" valign="bottom"><font color="#990000">　→ </font>你当前位置：<a href="default.asp">首 
      页 </a>&gt;&gt;管理中心</td>
  </tr>
  <tr>
    <td height="1" background="images/2.jpg"></td>
  </tr>
</table>
<table width="763" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="175" valign="top"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td><div align="center"><img src="pic/manager.gif" width="174" height="70" border="1"></div></td>
        </tr>
        <tr> 
          <td height="17" bgcolor="#EEEEEE"> <div align="center">欢迎: <font color="#FF0000"><strong><%= session("us") %></strong></font> 光临</div></td> 
        </tr>
        <tr> 
          <% 
			sql="select * from user where userid='"&us&"'"
			 rs.open sql,conn,1,1
			 zje1=rs("je")
			 %>
          <td><p><font color="#FF0000">您的账面存款：</font></p>
            <p>&nbsp;</p>
            <p align="center"><font color="#FF0000">￥ <%= rs("je") %></font></p> 
            <p align="center">&nbsp;</p>
            <p>客户等级: <font color="#FF0000"><%= rs("dl") %> 
              <% rs.close  %>
              </font></p></td>
        </tr>
        <tr>
          <td height="1" background="images/2.jpg"> </td>
        </tr>
      </table> 
	  <div align="center"> 
       <!--#include file="user_inc.asp" -->
      </div></td>
    <td width="1" bgcolor="#F5F5F5"> </td>
    <td width="587" valign="top"> 
      <table width="573" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="573">
            <p align="center"><a href="user.asp"><img src="images/mameger.gif" width="437" height="43"></a></p>
          </td>
        </tr>
        <tr>
		<% 
			sql="select * from host_shop where bh="&bh&"and userid='"&us&"'" 
			 rs.open sql,conn,1,1
			 if not rs.eof then
		 %>
          <td height="240" valign="top"> 
            <p>&nbsp;</p>
            <table width="516" border="0" align="center" cellpadding="1" cellspacing="1">
              <tr> 
                <td width="100" bgcolor="FF9900" onmouseover="this.style.backgroundColor='#FFD89D';return true;" onmouseout="this.style.backgroundColor='#FF9900';"> 
                  <div align="center"><a href="user8_host_1.asp?bh=<%=bh%>"><font color="#FFFFFF"> 
                    </font></a><a href="user8_host.asp?bh=<%=bh%>"><font color="#FFFFFF">订  
                    单 参 数</font></a></div></td> 
                <td width="105" bgcolor="#FF9900" onmouseover="this.style.backgroundColor='#FFD89D';return true;" onmouseout="this.style.backgroundColor='#FF9900';"> 
                  <div align="center"><a href="user8_host_2.asp?bh=<%=bh%>"><font color="#FFFFFF">更改Ftp密码</font></a></div></td>
                <td width="114" bgcolor="#FF9900" onmouseover="this.style.backgroundColor='#FFD89D';return true;" onmouseout="this.style.backgroundColor='#FF9900';"> 
                  <div align="center"><a href="user8_host_3.asp?bh=<%=bh%>"><font color="#FFFFFF">绑 
                    定 域 名</font></a></div></td>
                <td width="94" bgcolor="#FF9900" onmouseover="this.style.backgroundColor='#FFD89D';return true;" onmouseout="this.style.backgroundColor='#FF9900';"> 
                  <div align="center"><a href="user8_host_4.asp?bh=<%=bh%>"><font color="#FFFFFF">修改默认主页</font></a></div></td>
                <td width="87" bgcolor="#FF9900" onmouseover="this.style.backgroundColor='#FFD89D';return true;" onmouseout="this.style.backgroundColor='#FF9900';"><div align="center"><a href="user8_host_1.asp?bh=<%=bh%>"><font color="#FFFFFF">空 
                    间 参 数</font></a></div></td>
              </tr>
            </table>
            <p>&nbsp;</p>
            <table width="82%" height="134" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFEFD7" bordercolorlight="" bordercolordark="ffffff">
              <tr> 
                <td bgcolor="#FFF9F0"> 订　单　号:</td>
                <td><strong><font color="#FF0000"><%= bh %></font></strong></td>
              </tr>
              <tr> 
                <td width="24%" bgcolor="#FFF9F0">Ftp用户名：</td>
                <td width="76%"><strong><%=User_Name %></strong></td>
              </tr>
              <tr> 
                <td bgcolor="#FFF9F0">账号总空间：</td>
                <td><img src="inc/back.gif" width="200" height="8"><font color="#009900"> 
                  100% </font><font color="#FF0000"><strong></strong></font> <font color="#FF0000"><strong><%= num2 %></strong></font> MB</td> 
              </tr>
              <tr> 
                <td bgcolor="#FFF9F0">已 用 空间：</td> 
                <td><font color="#FF0000"><strong><img src="inc/back.gif" width="<% Response.Write num3/num2*200 %>" height="8"> 
                  </strong></font><font color="#009900"><%= 100*num3\num2 %>%</font> <font color="#FF0000"><strong><%= num3 %> </strong></font>MB</td> 
              </tr>
              <tr> 
                <td bgcolor="#FFF9F0">还 剩 空间：</td> 
                <td><font color="#FF0000"><strong><img src="inc/back.gif" width="<% Response.Write num4/num2*200 %>" height="8"> 
                  </strong></font><font color="#009900"><%= 100*num4\num2 %>%</font> <font color="#FF0000"><strong><%= num4 %> </strong></font>MB</td> 
              </tr>
            </table>
            
          </td>
			 <% else
			Response.Write("<p><p><b><td>对不起参数不正确</b>")
			end if %> 
        </tr>
      </table>
      <table width="516" border="0" align="center" cellpadding="1" cellspacing="1">
        <tr> 
          <td width="100" bgcolor="FF9900" onmouseover="this.style.backgroundColor='#FFD89D';return true;" onmouseout="this.style.backgroundColor='#FF9900';"> 
            <div align="center"><a href="user8_host_1.asp?bh=<%=bh%>"><font color="#FFFFFF"> 
              </font></a><a href="user8_host.asp?bh=<%=bh%>"><font color="#FFFFFF">订  
              单 参 数</font></a></div></td> 
          <td width="105" bgcolor="#FF9900" onmouseover="this.style.backgroundColor='#FFD89D';return true;" onmouseout="this.style.backgroundColor='#FF9900';"> 
            <div align="center"><a href="user8_host_2.asp?bh=<%=bh%>"><font color="#FFFFFF">更改Ftp密码</font></a></div></td>
          <td width="114" bgcolor="#FF9900" onmouseover="this.style.backgroundColor='#FFD89D';return true;" onmouseout="this.style.backgroundColor='#FF9900';"> 
            <div align="center"><a href="user8_host_3.asp?bh=<%=bh%>"><font color="#FFFFFF">绑 
              定 域 名</font></a></div></td>
          <td width="94" bgcolor="#FF9900" onmouseover="this.style.backgroundColor='#FFD89D';return true;" onmouseout="this.style.backgroundColor='#FF9900';"> 
            <div align="center"><a href="user8_host_4.asp?bh=<%=bh%>"><font color="#FFFFFF">修改默认主页</font></a></div></td>
          <td width="87" bgcolor="#FF9900" onmouseover="this.style.backgroundColor='#FFD89D';return true;" onmouseout="this.style.backgroundColor='#FF9900';"><div align="center"><a href="user8_host_1.asp?bh=<%=bh%>"><font color="#FFFFFF">空 
              间 参 数</font></a></div></td>
        </tr>
      </table>
      <p>&nbsp;</p></td>
  </tr>
  <tr> 
    <td>&nbsp;</td>
    <td colspan="2">&nbsp;</td>
  </tr>
</table>
<%
call CloseDatabase '关闭数据库链接
%>
<!--#include file="top.asp" -->

</body>
</html>





























