<!--#include virtual="/incs/config.asp" -->
<!--#include virtual="/incs/top.asp" -->
<%
chk_log()
chk_newpwr 1,0,1
	hnme=SafeRequest("hnme")
	If hnme="" Then
	call errorpage(-2,"对不起，参数错误！")
	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,"对不起，该主机不存在或者您无权操作！")
	response.end
	end if
 
u_nme=trim(rs("h_unme"))
 

%>
<%          hostname=trim(rs("h_ftpusr"))
			    freedomain = rs("h_ftpusr")&"."&rs("h_svrnme") 
			    proid=trim(rs("h_prd"))
				h_maxdns=rs("h_maxdns")
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" style="border-collapse: collapse" width="100%" height="218" align="center">
        <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="14" width="100%" valign="top"> 
                  <table align="center" border="0" cellpadding="0" cellspacing="0" width="100%" class=datalist >
                    <tr align="middle" > 
                      <th colspan=3 height="22" class=datalistheader > 
                        <div align="center"><b>运行状态</b></div>
                      </th>
                    </tr>
                    <tr > 
                      <td class=datalistgrida height="22"  width="25%"> 
                        <div align="center">产品名称：</div>
                      </td>
                      <td class=datalistgrida  colspan="2"> 
                        <%
								  query="select top 1 g_nme from pdtlst where g_prd='"&trim(rs("h_prd"))&"'"
								  rs1.open query,conn,1,1
								  if not rs1.eof then
								  response.write trim(rs1("g_nme"))&"("&trim(rs("h_prd"))&")"
								  end if
								  rs1.close
								  %>
                      </td>
                    </tr>
                    <tr > 
                      <td class=datalistgrida  height="22" > 
                        <div align="center">免费域名：</div>
                      </td>
                      <td class=datalistgrida  colspan="2"> <a href="http://<%= freedomain %>" class=commonface  target=_blank><%= freedomain %></a></td>
                    </tr>
                    <tr > 
                      <td class=datalistgrida  height="22" > 
                        <div align="center">主机空间：</div>
                      </td>
                      <td class=datalistgrida  colspan="2"> <b><font color=#ff0000> 
                        <%if clng(rs("h_dskqta"))=0 then
					  response.write 1
					  else
					  response.write clng(rs("h_dskqta"))
					  end if
					  %>
                        </font></b>&nbsp;/&nbsp;<%=clng(rs("h_sze"))+clng(rs("h_szeadd"))%> 
                        M &nbsp;&nbsp; 
                        <input type="button" name="Submit3" value="查 看" class=btxx  onClick="javascript:location.href='hst_sze.asp?hnme=<%=hnme%>';"   <%=startstr%>  style="cursor:hand;">
                      </td>
                    </tr>
                    <tr > 
                      <td class=datalistgrida  height="22" > 
                        <div align="center">物理路径：</div>
                      </td>
                      <td class=datalistgrida  colspan="2"><b><%=(rs("h_hmedir"))%></b> 
                      </td>
                    </tr>
                    <% if session("sysclass")<4 then %>
                    <form action="hst_mng.asp" method =post name= webcontrol>
                      <tr > 
                        <td class=datalistgrida  height="22" > 
                          <div align="center">WEB 状态：</div>
                        </td>
                        <td class=datalistgrida  colspan="2"> 
                          <%
if rs("h_regstt")=1 then
statestring="启动"
startstr="disabled=1"
stopstr=" "
elseif rs("h_regstt")=2 then
statestring="暂停"
startstr=" "
stopstr=" disabled=1"
elseif rs("h_regstt")=5 then
statestring="被停止"
startstr="disabled=1"
stopstr=" disabled=1"
elseif rs("h_regstt")=4 then
statestring="被删除"
startstr="disabled=1"
stopstr=" disabled=1"
end if 
%>
                          <input type="button" name="Submit" value="启动 WEB" class=btxx  onClick="javascript:document.webcontrol.hst_regstt.value=1;document.webcontrol.submit();"   <%=startstr%>  style="cursor:hand;">
                          <input type="button" name="Submit2" value="暂停 WEB" class=btxx onClick="javascript:document.webcontrol.hst_regstt.value=2;document.webcontrol.submit();"  <%=stopstr%>  style="cursor:hand;">
                          （当前WEB 已经 <font color=#ff0000><%=statestring%></font>） 
                          <input type=hidden name="hostname" value="<%=hostname%>" >
                          <input type=hidden name="hst_regstt" value="" >
                          <input type=hidden name="oldstatus" value="<%=RS("h_regstt")%>" >
                          <input type=hidden name=module value="hst_regstt">
                        </td>
                      </tr>
                    </form>
                    <%
if rs("h_ftpstt")=1 then
statestring="启动"
startstr="disabled=1"
stopstr=" "
elseif rs("h_ftpstt")=0 then
statestring="暂停"
startstr=" "
stopstr=" disabled=1"
elseif rs("h_ftpstt")=2 then
statestring="被停止"
startstr="disabled=1"
stopstr=" disabled=1"
end if 
%>
                    <form action="hst_mng.asp" method =post name= ftpcontrol>
                      <tr > 
                        <td class=datalistgrida  height="22" > 
                          <div align="center">FTP 状态：</div>
                        </td>
                        <td class=datalistgrida  colspan="2"> 
                          <input type="button" name="Submit4" value="启动 FTP" class=btxx  onClick="javascript:document.ftpcontrol.hst_ftpstt.value=1;document.ftpcontrol.submit();"   <%=startstr%>  style="cursor:hand;">
                          <input type="button" name="Submit22" value="暂停 FTP" class=btxx onClick="javascript:document.ftpcontrol.hst_ftpstt.value=2;document.ftpcontrol.submit();"  <%=stopstr%>  style="cursor:hand;">
                          （当前FTP 已经 <font color=#ff0000><%=statestring%></font>） 
                          <input type=hidden name="hostname" value="<%=hostname%>" >
                          <input type=hidden name="hst_ftpstt" value="" >
                          <input type=hidden name=module value="hst_ftpstt">
                        </td>
                      </tr>
                    </form>
                    <% end if %>
                    <% if session("sysclass")>=4 then %>
                    <form action="hst_mng.asp" method =post name= form1>
                      <tr > 
                        <td class=datalistgrida  height="22" > 
                          <div align="center">主机状态：</div>
                        </td>
                        <td class=datalistgrida ><font color="#000000"> 
                          <%
							Call  SHOWSELECT(RS("h_regstt"),RS("h_regtpe"))
					%>
                          </font></td>
                        <td class=datalistgrida width="20%" > 
                          <input type=hidden name="hostname" value="<%=hostname%>" >
                          <input type=hidden name="oldstatus" value="<%=RS("h_regstt")%>" >
                          <input type=hidden name=module value="hst_regstt">
                          <input name="Cdrfd" type="submit" value="修改"  class=btxx>
                        </td>
                      </tr>
                    </form>
                    <% end if %>
                    <% if session("sysclass")>=4 then %>
                    <form action="hst_mng.asp" method =post name= form1>
                      <tr > 
                        <td class=datalistgrida height="22" > 
                          <div align="center">FTP状态：</div>
                        </td>
                        <td class=datalistgrida><font color="#000000"> 
                          <%
							Call  SHOWSELECT_ftp(RS("h_ftpstt"))
					%>
                          </font></td>
                        <td class=datalistgrida> 
                          <input type=hidden name="hostname" value="<%=hostname%>" >
                          <input type=hidden name="oldstatus" value="<%=RS("h_ftpstt")%>" >
                          <input type=hidden name=module value="hst_ftpstt">
                          <input name="Cdrfd2" type="submit" value="修 改"  class=btxx >
                        </td>
                      </tr>
                    </form>
                    <% end if %>
                    <tr> 
                      <td class=datalistgrida height="22" align="center"> 
                        <p style="margin-left: 6">相关操作:</p>
                      </td>
                      <td class=datalistgrida colspan=2> 
                        <p style="margin-left: 6"> 
                          <script>
function deleteit(proid)
{
if (confirm("确认删除此虚拟主机吗？"))
{location.href="/master/pdtmng/hst_mng/hst_del.asp?hostname="+proid;
}
}
</script>
                          <input type="button" name="Submit22" value="订单删除" class=btxx onclick="javascript:return deleteit('<%=rs("h_ftpusr")%>');">
                          <% if rs("h_regstt")=0 then %>
                          <input type="button" name="Submit23" value="购买" class=btxx onclick="javascript:showurl('/master/pdtbuy/hst_buy/hst_pay.asp?hnme=<%=rs("h_ftpusr")%>');">
                          <% end if %>
                      </td>
                    </tr>
                    <tr > 
                      <td class=datalistgrida  height="22" > 
                        <div align="center">备案编号：</div>
                      </td>
                      <td class=datalistgrida  colspan="2"> <%= rs("h_icp") %>&nbsp;</td>
                    </tr>
                    <tr > 
                      <td class=datalistgrida  height="22" > 
                        <div align="center">购买日期：</div>
                      </td>
                      <td class=datalistgrida  colspan="2"> <%= rs("h_addtme") %></td>
                    </tr>
                    <tr > 
                      <td class=datalistgrida  height="22" > 
                        <div align="center">到期日期：</div>
                      </td>
                      <td class=datalistgrida  colspan="2"> 
                        <%
						If RS("h_regtpe")=1 and rs("h_regstt")<>0 Then
							Response.Write 	""& rs("h_exptme") &""
						  else
							Response.Write "下定单申请状态或试用状态,尚未正式购买"
						End If
				  %>
                      </td>
                    </tr>
                    <% if session("sysclass")>=4 then %>
                    <tr > 
                      <td class=datalistgrida  height="22" > 
                        <div align="center">所属会员：</div>
                      </td>
                      <td class=datalistgrida  colspan="2"><a href="/master/memmng/mem_dtl.asp?unme=<%=u_nme%>"><b><%=u_nme%></b></a> 
                      </td>
                    </tr>
                    <% end if %>
                    <tr > 
                      <td class=datalistgrida  height="22" > 
                        <div align="center">是否为套餐：</div>
                      </td>
                      <td class=datalistgrida  colspan="2"> 
                        <% if isnull(rs("setnme"))=false and rs("setnme")<>""  then %>
                        <a href="javascript:showurl('/master/pdtmng/set_mng/set_idx.asp?snme=<%=rs("setnme")%>');" class=commonface><u>查看套餐订单</u></a> 
                        <%else %>
                        不属于套餐购买 
                        <% end if %>
                      </td>
                    </tr>
                    <% if isnull(rs("pstrotprd"))=false and rs("pstrotprd")<>"" then %>
                    <tr > 
                      <td class=datalistgrida  height="22" > 
                        <div align="center">是否为赠送品：</div>
                      </td>
                      <td class=datalistgrida  colspan="2"> <a href="javascript:showurl('/master/turn.asp?gid=<%=trim(rs("pstrotprd"))%>&pid=<%=rs("pstrotnme")%>');" class=commonface><u>本品为赠送品,点击查看获得赠送的产品</u></a></td>
                    </tr>
                    <% end if %>
                  </table>
                </td>
              </tr>
              <tr> 
                <td> 
                  <table width="100%" border="0" cellspacing="0" cellpadding="0"  id=identity>
                    <tr> 
                      <td>&nbsp;</td>
                    </tr>
                    <tr> 
                      <td> 
                        <table align="center" width="100%" cellpadding="0" cellspacing="0" border="0" class=datalist>
                          <tr align="middle" > 
                            <th colspan="3" height="22" class=datalistheader > 
                              <div align="center"><b>订单信息</b></div>
                            </th>
                          </tr>
                          <tr > 
                            <td height="22" class=datalistgrida  width="25%"> 
                              <div align="center" style="display:block;">单位名称： 
                                <input type="button" name="Submit5" value="生成会员" class=btxx
			  onClick="javascript:showurl('/master/memmng/mem_add.asp?u_nme=<%=trim(rs("h_ftpusr"))%>&u_pss=<%=pss_mak(8)%>&u_copnme_cn=<%=rs("h_copnme_cn")%>&u_ctt_cn=<%=rs("h_ctt_cn")%>&u_prv_cn=<%=rs("h_prv_cn")%>&u_adr_cn=<%=rs("h_adr_cn")%>&u_cde=<%=rs("h_cde")%>&u_eml=<%=rs("h_eml")%>&u_tel=<%=rs("h_tel")%>&u_fax=<%=rs("h_fax")%>&g_prd=<%=rs("h_prd")%>&g_pnme=<%=rs("h_ftpusr")%>&oldunme=<%=rs("h_unme")%>');">
                              </div>
                            </td>
                            <td class=datalistgrida  colspan="2"><%=rs("h_copnme_cn")%></td>
                          </tr>
                          <tr > 
                            <td class=datalistgrida  height="22"> 
                              <div align="center">联系人：</div>
                            </td>
                            <td class=datalistgrida  colspan="2"><%=rs("h_ctt_cn")%></td>
                          </tr>
                          <tr > 
                            <td class=datalistgrida  height="22"> 
                              <div align="center">省份：</div>
                            </td>
                            <td class=datalistgrida  colspan="2"><%=rs("h_prv_cn")%></td>
                          </tr>
                          <tr > 
                            <td class=datalistgrida  height="22"> 
                              <div align="center">联系地址：</div>
                            </td>
                            <td class=datalistgrida  colspan="2"><%=rs("h_adr_cn")%></td>
                          </tr>
                          <tr > 
                            <td class=datalistgrida  height="22"> 
                              <div align="center">邮政编码：</div>
                            </td>
                            <td class=datalistgrida  colspan="2"><%=rs("h_cde")%></td>
                          </tr>
                          <tr > 
                            <td class=datalistgrida  height="22"> 
                              <div align="center">联系电话：</div>
                            </td>
                            <td class=datalistgrida  colspan="2"><%=rs("h_tel")%></td>
                          </tr>
                          <tr > 
                            <td class=datalistgrida  height="22"> 
                              <div align="center">传真：</div>
                            </td>
                            <td class=datalistgrida  colspan="2"><%=rs("h_fax")%></td>
                          </tr>
                          <tr > 
                            <td class=datalistgrida  height="22"> 
                              <div align="center">电子邮件：</div>
                            </td>
                            <td class=datalistgrida  colspan="2"><%=rs("h_eml")%></td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr> 
                <td   height="163"  valign="top"> <br>
                  <table align="center" border="0" cellpadding="0" cellspacing="0" width="100%" class=datalist >
                    <tr align="middle"> 
                      <th class=datalistheader colspan="3" height="22"> 
                        <div align="center"><b>上传帐号</b></div>
                      </th>
                    </tr>
                    <tr align="middle" > 
                      <td class=datalistgrida  height="22"  align=center width="25%">FTP服务器：</td>
                      <td class=datalistgrida  height="27" ><%=rs("h_svrip")%></td>
                      <td class=datalistgrida  height="27" width="20%">&nbsp;</td>
                    </tr>
                    <tr> 
                      <td class=datalistgrida   height="22"> 
                        <div align="center">FTP用户名：</div>
                      </td>
                      <%wstr=getpassoutcode(rs("h_ftppss")) %>
                      <td class=datalistgrida   height="27"><%=rs("h_ftpusr")%></td>
                      <td class=datalistgrida  >&nbsp; <a href="ftp://<%=rs("h_ftpusr")%>:<%=wstr%>@<%=rs("h_svrip")%>" target="_blank">上传</a> 
                      </td>
                    </tr>
                    <form action="hst_mng.asp" method=post>
                      <tr> 
                        <td class=datalistgrida   height="22" align="center"> 
                          FTP密&nbsp; 码： </td>
                        <td class=datalistgrida   height="27"> 
                          <input class="input" name="h_ftppss" size="30" value="<%=wstr%>" maxlength="17">
                        </td>
                        <td class=datalistgrida  > 
                          <input name="Clear" type="submit" value="修改"  class=btxx>
                          <input type=hidden name="hostname" value="<%=hostname%>" >
                          <input type=hidden name=module value=hst_ftppss>
                        </td>
                      </tr>
                    </form>
                    <tr> 
                      <td class=datalistgrida   height="22">&nbsp;</td>
                      <td class=datalistgrida   colspan="2" height="27">修改FTP密码后,新密码立即生效,请妥善保管您的密码,切勿告诉他人。</td>
                    </tr>
                    <tr> 
                      <td class=datalistgrida   height="22">&nbsp;</td>
                      <td class=datalistgrida   colspan="2" height="27">文件上传推荐使用cuteFtp或leapFtp，文件传至wwwroot目录下。</td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr> 
                <td width="98%" valign="top"> <br>
                  <table align="center" border="0" cellpadding="0" cellspacing="0" width="100%" class=datalist>
                    <tr> 
                      <th height="22" colspan="3" class=datalistheader > 
                        <div align=center><b>绑定域名</b></div>
                      </th>
                    </tr>
                    <%
								SerBindArray=split(rs("h_dme"),",")
								bindmax=Ubound(SerBindArray)
								For i= 0 To bindmax
							%>
                    <form action="hst_mng.asp" method="post">
                      <tr align="middle" > 
                        <td class=datalistgrida  width="25%" height="22" > 
                          <p align="center"><%= i+1 %> 
                        </td>
                        <td class=datalistgrida   width="300"   > <a href="http://<%=SerBindArray(i)%>" target=_blank><%=trim( SerBindArray(i))%></a> 
                          <input type=hidden name="hst_dme_del" value="<%= SerBindArray(i)%>">
                        </td>
                        <td class=datalistgrida  width="20%" align=left> 
                          <input type=submit  name="image" class=btxx value="删除" >
                          <input type=hidden name="hostname" value="<%=hostname%>" >
                          <input type=hidden name="module" value="hst_dmedel">
                        </td>
                      </tr>
                    </form>
                    <%
								Next
							If bindmax+1<h_maxdns Then
						%>
                    <form name=AddNewBindings action="hst_mng.asp" method=post>
                      <tr > 
                        <td class=datalistgrida  height="22" colspan="3"> 
                          <div align=center>加新域名: 
                            <input name=h_dme_new size="12">
                            <input type=hidden name="hostname" value="<%=hostname%>" >
                            <input type=hidden name="module" value="hst_dmeadd">
                            <input name="sxss" type="submit" value="确定"  class=btxx>
                          </div>
                        </td>
                      </tr>
                    </form>
                    <%
							End If
						%>
                    <tr> 
                      <td class=datalistgrida   height="22" width="25%">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
                      <td class=datalistgrida   height="60" colspan="2" style="line-height:150%">主机一经申请立即生效，系统将自动分配一个三级域名。<br>
                        您可以自己绑定独立域名。注意域名IP指向为: <font color=#ff0000><%= rs("h_svrip") %></font></td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr> 
                <td width="98%" valign="top"> <br>
                  <table align="center" border="0" cellpadding="0" cellspacing="0" width="100%" class=datalist >
                    <tr> 
                      <th class=datalistheader height="22" colspan="3"> 
                        <div align=center><b>默认文档</b></div>
                      </th>
                    </tr>
                    <form name=AddNewBindings action="hst_mng.asp" method=post>
                      <tr> 
                        <td class=datalistgrida    height="22" colspan="3"> 
                          <div align=center>默认文档: 
                            <input name=hst_dftdoc_edt size="60" maxlength="100" value="<%=trim(rs("h_dftdoc"))%>"  <%if h_sst=2 then
							response.write "disabled=1 "
							end if %>>
                            <input type=hidden name="hostname" value="<%=hostname%>" >
                            <input type=hidden name="module" value="hst_dftdocedt">
                            <input name="sxs" type="submit" value="确定"  class=btxx   <%if h_sst=2 then
							response.write "disabled=1 "
							end if %>>
                          </div>
                        </td>
                      </tr>
                      <tr> 
                        <td class=datalistgrida   height="22" width="25%">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
                        <td class=datalistgrida   height="60" colspan="2" style="line-height:150%">当在浏览器输入网页路径而没有指定具体文件名时，系统将按照所设置的默认文档查找网页。例如：输入http://www.domain.com/，系统就将在所设置的默认文档中从左到右搜索存在的网页并加以显示。</td>
                      </tr>
                    </form>
                  </table>
                </td>
              </tr>
            </table>
            <%
rs.close
conn.close
%>
          </td>
        </tr>
        <tr> 
          <td height="4" width="99%" valign="top"  >&nbsp;</td>
        </tr>
      </table>
      <br>
      <br>
      <%
Function showstatus(regstt,regtpe,exptme)
if cdate(exptme)-date()<0 then
regstt=20
elseif cdate(exptme)-date()<7 and regtpe<>0 then
regstt=19
elseif cdate(exptme)-date()<30 and regtpe<>0 then
regstt=18
end if
regtpe_str=right("000"&cstr(regtpe),2)
regstt_str=right("000"&cstr(regstt),2)
gifstr=regtpe_str&regstt_str&".gif"
showstatus="<img src=/icons/"&gifstr&">"   

End Function
%>
      <%
Sub SHOWSELECT(regstt,regtpe)
if  regtpe=0 then
stt_str="(试用)"
elseif regtpe=5 then
stt_str="(赠送)"
else
stt_str="(正式)"
end if
%>
      <select name=hst_regstt>
        <option <%If regstt=1 Then Response.Write " selected value=x" %> value=1 >运行中<%=stt_str%></option>
        <option <%If regstt=2 Then Response.Write " selected value=x" %> value=2 >暂停中<%=stt_str%></option>
        <option <%If regstt=5 Then Response.Write " selected value=x" %> value=5>管理员停止<%=stt_str%></option>
        <option <%If regstt=0 Then Response.Write " selected value=x" %> value=0>未开设<%=stt_str%></option>
        <option <%If regstt=4 Then Response.Write " selected value=x" %> value=4>已完全删除<%=stt_str%></option>
        <option <%If regstt=3 Then Response.Write " selected value=x" %> value=3>处理中<%=stt_str%></option>
        <option <%If regstt=17 Then Response.Write " selected value=x" %> value=17>仅删除WEB站点<%=stt_str%></option>
      </select>
      <%

End sub
%>
      <%
Sub SHOWSELECT_ftp(ftpstt)

%>
      <select name=hst_ftpstt>
        <option <%If ftpstt=1 Then Response.Write " selected value=x" %> value=1 >运行中</option>
        <option <%If ftpstt=2 Then Response.Write " selected value=x" %> value=2 >暂停中</option>
        <option <%If ftpstt=5 Then Response.Write " selected value=x" %> value=5>管理员停止</option>
      </select>
      <%

End sub
%>
      <br>
    </td>
  </tr>
  </tbody> 
</table>
<!--#include virtual="/incs/bottom.asp"-->





