<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%
If session("admau")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
elseIf session("canshowpro")="" 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"><strong> 　 </strong><font color="#FFFFFF">─<strong>&gt;</strong></font> </TD>
      <TD width="151"><table height="59"  border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="7" background="img/midtop.gif">&nbsp;</td>
            <td width="120" align="center" valign="middle" background="img/r3.jpg" id="tableTop1" style="Cursor:hand"><a href="product-host.asp"><font color="#FFFFFF">虚拟主机产品定义</font></a></td>
            <td width="5" background="img/midtop2.gif">&nbsp;</td>
          </tr>
      </table></TD>
      <TD width="15">&nbsp;</TD>
      <TD align="left"><table height="59"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="7" background="img/midtop.gif">&nbsp;</td>
          <td width="120" align="center" valign="middle" background="img/r3.jpg" id="tableTop1" style="Cursor:hand"><a href="product-netcn.asp"><font color="#FFFFFF">万网主机产品定义</font></a></td>
          <td width="5" background="img/midtop2.gif">&nbsp;</td>
        </tr>
      </table></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="300" align="center" vAlign=top bgcolor="#FFFFFF">
	  
	  
<%
PAY_Month="0.084"
PAY_Season="0.25"
PAY_halfyear="0.5"
PAY_Nextyear="1"
PAY_2year="2"
PAY_3year="3"
PAY_4year="4"
PAY_5year="5"

MaxBandwidth="4294967295"
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_HostProductlist order by orderbyid desc"
		ds.Open Sql,conn,1,1
If ds.Eof Then%>
产品列表为空.
<%
canbyenduser="y"
canbyagnenduser="y"
canbyagn="y"
orderbyid=0
typeid=0
subweb=0
allowdomain=15



else%>
<DIV class="tableborder">
<table width="100%"  border="0" cellspacing="1">
  <tr >
    <td width="24%" height="24" align="center" background="img/tablebg.gif"><font color="#FFFFFF">编号</font></td>
    <td width="63%" align="center" background="img/tablebg.gif"><font color="#FFFFFF">产品参数</font></td>
    <td height="24" colspan="2" align="center" background="img/tablebg.gif"><font color="#FFFFFF">操作</font></td>
    </tr><%
while not ds.Eof
if  Request.QueryString ("id")=Cstr(ds("id")) then
Hosttype=ds("Hosttype")
usermoney=ds("usermoney")
MaxConnections=ds("MaxConnections")
ServerlistID=ds("ServerlistID")
ServerlistID2=ds("ServerlistID2")
ServerlistID3=ds("ServerlistID3")
ServerlistID4=ds("ServerlistID4")
ServerlistID5=ds("ServerlistID5")
spacelimt=ds("spacelimt")
info=ds("info")
infomore=ds("infomore")
AppPoolnum=ds("AppPoolnum")
html=ds("html")
asp=ds("asp")
aspx=ds("aspx")
php=ds("php")
cgi=ds("cgi")
jsp=ds("jsp")
cantest=ds("cantest")
canmonth=ds("canmonth")
canseason=ds("canseason")
canhalfyear=ds("canhalfyear")
MaxBandwidth=ds("MaxBandwidth")

canbyenduser=ds("canbyenduser")
canbyagnenduser=ds("canbyagnenduser")
canbyagn=ds("canbyagn")
isbydomain=ds("isbydomain")
Domaintype=ds("Domaintype")
orderbyid=ds("orderbyid")
typeid=ds("typeid")
allowupdate=ds("allowupdate")
allowupdatetoother=ds("allowupdatetoother")
allowsub=ds("allowsub")
subweb=ds("subweb")
allowdomain=ds("allowdomain")

Maxbytes=CDbl(CDbl(ds("Maxbytes"))/1024/1024)
MaxCPU=round((CDbl(ds("MaxCPU"))/8640000/5),2)
cangetlog=ds("cangetlog")

canseelog=ds("canseelog")
canrar=ds("canrar")
canback=ds("canback")
updatebytypeid=ds("updatebytypeid")
canupdatespace=ds("canupdatespace")
updatespacemoney=ds("updatespacemoney")

canupdateiis=ds("canupdateiis")
updateiismoney=ds("updateiismoney")

canupdatebank=ds("canupdatebank")
updatebanksmoney=ds("updatebanksmoney")

canupdatebyte=ds("canupdatebyte")
updatebytesmoney=ds("updatebytesmoney")

canupdatecpu=ds("canupdatecpu")
updatecpusmoney=ds("updatecpusmoney")
oridir=ds("oridir")
netver=ds("netver")
cantwodb=ds("cantwodb")

PAY_Month=ds("PAY_Month")
PAY_Season=ds("PAY_Season")
PAY_halfyear=ds("PAY_halfyear")
PAY_Nextyear=ds("PAY_Nextyear")
PAY_2year=ds("PAY_2year")
PAY_3year=ds("PAY_3year")
PAY_4year=ds("PAY_4year")
PAY_5year=ds("PAY_5year")

onlyusebyagn=ds("onlyusebyagn")

UAcopyName1=ds("UAcopyName1")
UAcopydir1=ds("UAcopydir1")
UAcopyabcout1=ds("UAcopyabcout1")
UAcopyName2=ds("UAcopyName2")
UAcopydir2=ds("UAcopydir2")
UAcopyabcout2=ds("UAcopyabcout2")
UAcopyName3=ds("UAcopyName3")
UAcopydir3=ds("UAcopydir3")
UAcopyabcout3=ds("UAcopyabcout3")
UAcopyName4=ds("UAcopyName4")
UAcopydir4=ds("UAcopydir4")
UAcopyabcout4=ds("UAcopyabcout4")
UAcopyName5=ds("UAcopyName5")
UAcopydir5=ds("UAcopydir5")
UAcopyabcout5=ds("UAcopyabcout5")
UAcopyName6=ds("UAcopyName6")
UAcopydir6=ds("UAcopydir6")
UAcopyabcout6=ds("UAcopyabcout6")
UAcopyName7=ds("UAcopyName7")
UAcopydir7=ds("UAcopydir7")
UAcopyabcout7=ds("UAcopyabcout7")
UAcopyName8=ds("UAcopyName8")
UAcopydir8=ds("UAcopydir8")
UAcopyabcout8=ds("UAcopyabcout8")
ostype=ds("ostype")
vdomains=ds("vdomains")
nemails=ds("nemails")
nemailf=ds("nemailf")
nemailml=ds("nemailml")
nemailr=ds("nemailr")
mysql=ds("mysql")
domainptr=ds("domainptr")
ftp=ds("ftp")
aftp=ds("aftp")
spam=ds("spam")
catchall=ds("catchall")
ssl=ds("ssl")
ssh=ds("ssh")
cron=ds("cron")
sysinfo=ds("sysinfo")
dnscontrol=ds("dnscontrol")
suspend_at_limit=ds("suspend_at_limit")
skin=ds("skin")
language=ds("language")
packagename=ds("packagename")
canrecypool=ds("canrecypool")
canchnetver=ds("canchnetver")
notuserar=ds("notuserar")

CDNMaxMb=ds("CDNMaxMb")
CDNpdID=ds("CDNpdID")

isagentpd=ds("isagentpd")
HostComName=ds("HostComName")
HostApiName=ds("HostApiName")
Hostcpdomain=ds("Hostcpdomain")
Agnuserid=ds("Agnuserid")
Domain_Agent_nonemd5_6=ds("Domain_Agent_nonemd5_6")
Agnidc=ds("Agnidc")
Agnproductid=ds("Agnproductid")
Agnattach=ds("Agnattach")

phpver=ds("phpver")


'if ostype="linux" then Maxbytes=CDbl(ds("Maxbytes"))

end if

%>

  <tr bgcolor="#E4EAF2" onmouseover=this.bgColor='#cccccc'; onmouseout=this.bgColor='#E4EAF2';>
    <td height="30" align="center"><%=ds("id")%>.<%=ds("Hosttype")%> <%if ds("isagentpd")=true then%>(代理上级的)<%end if%> </td>
    <td align="left">　[<%=ds("ostype")%>]:价格:<%=ds("usermoney")%>元　<%if ds("isagentpd")=false then
	Set dsserver = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_Serverlist where id='"&ds ("ServerlistID")&"'"
	dsserver.Open Sql,conn,1,1
%><%=dsserver("ip")%><%dsserver.close%><%end if%>  
       空间:<%=ds("spacelimt")%>M　
      <%if ds("cantest")="y" then%>
      可以试用
      <%else%>
      不可以试用
      <%end if%> 排队:<%=ds("orderbyid")%>　已开数量：<%
response.write conn.execute("select count(0) from FreeHost.FreeHost_Product_Host where Hosttype='"&ds("Hosttype")&"'")(0)
%><br></td>
    <td width="6%" align="center"><a href="/style/info/host.asp" target="_blank"><font color="#618ECF"><strong>浏览</strong></font></a> </td>
    <td width="7%" align="center"><a href="product-host.asp?id=<%=ds("id")%>#m"><font color="#618ECF"><strong>修改</strong></font></a> </td>
  </tr>
<%
ds.movenext
wend%>
</table>
</div>
<%end if%>	  


<%if  Request.QueryString ("id")="" then
canbyenduser="y"
canbyagnenduser="y"
canbyagn="y"
asp="y"
aspx="y"
php="y"
orderbyid=0
typeid=0
subweb=0
allowdomain=15
Maxbytes=0
MaxCPU=0
updatebytypeid="n"
cangetlog="y"
cantwodb=0
canrar="y"
ostype="windows"
vdomains="1"
nemails="10"
nemailf="10"
nemailml="10"
nemailr="10"
mysql="1"
domainptr="10"
ftp="1"
aftp="OFF"
spam="ON"
catchall="ON"
ssl="ON"
ssh="ON"
cron="ON"
sysinfo="ON"
dnscontrol="OFF"
suspend_at_limit="ON"
skin="enhanced"
language="en"
packagename="7i24"
netver="2.0"
canchnetver="y"
notuserar="n"
CDNMaxMb=0
CDNpdID=0
phpver="5.2"

if  Request.QueryString ("ostype")<>"" then ostype=Request.QueryString ("ostype")
if  Request.QueryString ("ostype")="linux" then cgi="y"

end if

%><a name="m">
              <form action="product-hostlist-sub.asp" method="post" name="form1">  
	<DIV class="tableborder">
<table width="100%"  border="0" cellspacing="1">
  <tr >
    <td height="24" colspan="2" align="center" background="img/tablebg.gif"><font color="#FFFFFF">添加/修改产品类型</font></td>
  </tr>
  <tr bgcolor="#E4EAF2">
    <td width="9%" align="right">&nbsp;</td>
    <td width="91%" align="left"><p>操作系统类型：
<%if  ostype="windows" or Request.QueryString="" then%>
      <input name="ostype" type="radio" value="windows" <%if ostype="windows" then%>checked<%end if%> onClick="window.location='product-host.asp?id=<%=Request.QueryString("id")%>&ostype=windows'">
Windows　<%end if%>　
<%if  ostype="linux" or Request.QueryString="" then%>
<input type="radio" name="ostype" value="linux" <%if ostype="linux" then%>checked<%end if%> onClick="window.location='product-host.asp?id=<%=Request.QueryString("id")%>&ostype=linux'">
Linux(DA接口) <%end if%>　<br>
<br>
<%if ostype="windows" then%>
<div id=pdwindows>
          <br>
        产品名： 
        <input name="Hosttype" type="text" id="Hosttype" value="<%=Hosttype%>" size="20" maxlength="50" <%if Hosttype<>"" then%>readonly<%end if%>>
      排队顺序：
      <input name="orderbyid" type="text" id="orderbyid" size="4" maxlength="6" value="<%=orderbyid%>">
      (数值大排前面)<br>
      价格：
      <input name="usermoney" type="text" id="usermoney" size="4" maxlength="6" value="<%=usermoney%>">
元一年<br>
月付费率：
<input name="PAY_Month" type="text" size="4" maxlength="6" value="<%=PAY_Month%>">
 (如果一个产品是120元/年，每月支付的价格就是120X费率，默认费率是0.084=1/12)<br>
 季付费率：
 <input name="PAY_Season" type="text" size="4" maxlength="6" value="<%=PAY_Season%>">
  (如果一个产品是120元/年，每季支付的价格就是120X费率，默认费率是0.25=1/4)<br>
 半年付费率：
 <input name="PAY_halfyear" type="text" size="4" maxlength="6" value="<%=PAY_halfyear%>">
 (如果一个产品是120元/年，每半年支付的价格就是120X费率，默认费率是0.5=1/2)<br>
一次购买两年费率：
<input name="PAY_2year" type="text" size="4" maxlength="6" value="<%=PAY_2year%>">
　三年费率
<input name="PAY_3year" type="text" size="4" maxlength="6" value="<%=PAY_3year%>">
　四年费率
<input name="PAY_4year" type="text" size="4" maxlength="6" value="<%=PAY_4year%>">
　五年费率
<input name="PAY_5year" type="text" size="4" maxlength="6" value="<%=PAY_5year%>">
<br>
续费一年费率：
<input name="PAY_Nextyear" type="text" size="4" maxlength="6" value="<%=PAY_Nextyear%>">
(续费二,三,四,五年的费率和一次性购买二,三,四,五年是一样的)<br>
      (如果是代理上级的产品，费率应该和上级一致)<br>
<br>
      IIS连接数：
      <input name="MaxConnections" type="text" id="MaxConnections" size="4" value="<%=MaxConnections%>">
      (不限连接数请填写4294967295)<br>
      空间大小限制(M)：
      <input name="spacelimt" type="text" id="spacelimt" size="5" maxlength="8" value="<%=spacelimt%>">
      (不要输入单位) 
      分类编号：
      <input name="typeid" type="text" id="orderbyid" size="4" maxlength="6" value="<%=typeid%>">
      　限制只允许同一类型之间才能升级:
      <input name="updatebytypeid" type="checkbox" id="updatebytypeid" value="y" <%if updatebytypeid="y"  then%>checked<%end if%>>
      <br>
      此产品允许绑定的域名数量：
      <input name="allowdomain" type="text" id="allowdomain" size="4" value="<%=allowdomain%>">
个      (不要超过99个)<br>
      <font color="#999999">( 允许单独升级空间大小：
      <input name="canupdatespace" type="checkbox" id="canupdatespace" value="y" <%if canupdatespace="y"  then%>checked<%end if%>>
      价格：
      <input name="updatespacemoney" type="text" id="updatespacemoney" size="4" maxlength="6" value="<%=updatespacemoney%>">
  元每10M<br>
  允许单独升级IIS连接数：
  <input name="canupdateiis" type="checkbox" id="canupdateiis" value="y" <%if canupdateiis="y"  then%>checked<%end if%>>
  价格：
  <input name="updateiismoney" type="text" id="updateiismoney" size="4" maxlength="6" value="<%=updateiismoney%>">
  元每10个IIS<br>
  允许单独升级带宽限制：
  <input name="canupdatebank" type="checkbox" id="canupdatebank" value="y" <%if canupdatebank="y"  then%>checked<%end if%>>
  价格：
  <input name="updatebanksmoney" type="text" id="updatebanksmoney" size="4" maxlength="6" value="<%=updatebanksmoney%>">
  元每K<br>
  允许单独升级流量限制：
  <input name="canupdatebyte" type="checkbox" id="canupdatebyte" value="y" <%if canupdatebyte="y"  then%>checked<%end if%>>
  价格：
  <input name="updatebytesmoney" type="text" id="updatebytesmoney" size="4" maxlength="6" value="<%=updatebytesmoney%>">
  元每100M<br>
  允许单独升级CPU限制：
        <input name="canupdatecpu" type="checkbox" id="canupdatecpu" value="y" <%if canupdatecpu="y"  then%>checked<%end if%>>
价格：
<input name="updatecpusmoney" type="text" id="updatecpusmoney" size="4" maxlength="6" value="<%=updatecpusmoney%>">
元每1% 此部分内容暂时无效)<br>
          </font>多少用户共用一个应用程序池(IIS6):
            <input name="AppPoolnum" type="text" id="AppPoolnum" size="3" maxlength="5" value="<%=AppPoolnum%>">
            (1-200)　<a href="http://sys.7i24.com/system/support/show.asp?id=107251029304" target="_blank">池帮助信息&gt;&gt;</a><br>
            带宽上限：
            <input name="MaxBandwidth" type="text" id="MaxBandwidth" size="10" maxlength="10" value="<%=MaxBandwidth%>">
            字节(默认是4294967295表示无限制)(262144=2M ADSL=机房2M带宽)<br>
            流量上限：
            <input name="Maxbytes" type="text" id="Maxbytes" size="10" maxlength="20" value="<%=Maxbytes%>">
            M/月(0表示不限制)　是否允许用户下载日志:
            <input name="cangetlog" type="checkbox" id="cangetlog" value="y" <%if cangetlog="y"  then%>checked<%end if%>>
            <br>
            CDN流量上限：
            <input name="CDNMaxMb" type="text" id="CDNMaxMb" size="10" maxlength="20" value="<%=CDNMaxMb%>">
M/月(0表示不限制，只有使用ＣＤＮ功能时才有效)<br>
            CPU限制：
            <input name="MaxCPU" type="text" id="MaxCPU" size="3" maxlength="3" value="<%=MaxCPU%>">
            % (0表示不限制)    是否允许查看流量:
            <input name="canseelog" type="checkbox" id="canseelog" value="y" <%if canseelog="y"  then%>checked<%end if%>>
            　允许网站打包及网站搬家功能:
            <input name="canrar" type="checkbox" id="canrar" value="y" <%if canrar="y"  then%>checked<%end if%>>
            <br>
            允许备份还原:
            <input name="canback" type="checkbox" id="canback" value="y" <%if canback="y"  then%>checked<%end if%>>　
            允许回收池:
            <input name="canrecypool" type="checkbox" id="canrecypool" value="y" <%if canrecypool="y"  then%>checked<%end if%>>
            　　禁止下载类文件:
            <input name="notuserar" type="checkbox" id="notuserar" value="y" <%if notuserar="y"  then%>checked<%end if%>>
　允许切换.Net版本:
            <input name="canchnetver" type="checkbox" id="canchnetver" value="y" <%if canchnetver="y"  then%>checked<%end if%>>
<br>
            支持类型: 静态网页:
            <input name="html" type="checkbox" id="html" value="y" <%if html="y" or html="" then%>checked<%end if%>>
            　(ASP:
            <input name="asp" type="checkbox" id="asp" value="y" <%if asp="y" then%>checked<%end if%>>
            )
        　(ASP.Net:
            <input name="aspx" type="checkbox" id="aspx" value="y" <%if aspx="y" then%>checked<%end if%>>
            .Net版本
            <select name="netver" id="netver">
              <option value="1.1" <%if netver="1.1" then%>selected<%end if%>>1.1</option>
              <option value="2.0" <%if netver="2.0" then%>selected<%end if%>>2.0/3.5</option>
              <option value="4.0" <%if netver="4.0" then%>selected<%end if%>>4.0</option>			  
              <option value="" <%if isnull(netver) then%>selected<%end if%>>继承服务器</option>
                    </select>
            )
        　(PHP:
            <input name="php" type="checkbox" id="php" value="y" <%if php="y"  then%>checked<%end if%>>
            )
        　CGI:
            <input name="cgi" type="checkbox" id="cgi" value="y" <%if cgi="y"  then%>checked<%end if%>>
            <!--　JSP:
            <input name="jsp" type="checkbox" id="jsp" value="y" <%if jsp="y" then%>checked<%end if%>>-->
            <br>
            是否允许试用:
            <input name="cantest" type="checkbox" id="cantest" value="y" <%if cantest="y" then%>checked<%end if%>>
            是否允许月付:
            <input name="canmonth" type="checkbox" id="canmonth" value="y"   <%if canmonth="y" then%>checked<%end if%>>
            是否允许季付:
            <input name="canseason" type="checkbox" id="canseason" value="y"   <%if canseason="y" then%>checked<%end if%>>
            是否允许半年付:
            <input name="canhalfyear" type="checkbox" id="canhalfyear" value="y"   <%if canhalfyear="y" then%>checked<%end if%>>
            <br>
            此产品主站的最终用户可以看到:
            <input name="canbyenduser" type="checkbox" id="canbyenduser" value="y" <%if canbyenduser="y" then%>checked<%end if%>>
            代理的最终用户可以看到:
            <input name="canbyagnenduser" type="checkbox" id="canbyagnenduser" value="y"   <%if canbyagnenduser="y" then%>checked<%end if%>>
            代理可以看到:
            <input name="canbyagn" type="checkbox" id="canbyagn" value="y"   <%if canbyagn="y" then%>checked<%end if%>>
            <br>
            此产品不允许从别的产品升级:
            <input name="allowupdate" type="checkbox" id="allowupdate" value="y"   <%if allowupdate="y" then%>checked<%end if%>>
            　此产品不允许升级到别的产品:
            <input name="allowupdatetoother" type="checkbox" id="allowupdatetoother" value="y"   <%if allowupdatetoother="y" then%>checked<%end if%>>
            　<br>
            允许绑定域名到子目录:
            <input name="allowsub" type="checkbox" id="allowsub" value="y"   <%if allowsub="y" then%>checked<%end if%>>
            允许绑定的子目录数量:
            <input name="subweb" type="text" id="subweb" size="4" maxlength="6" value="<%=subweb%>">
            <br>
            <br>
            PHP版本：
            <select name="phpver" id="phpver">
              <option value="5.2" <%if phpver="5.2" then%>selected<%end if%>>5.2</option>
              <option value="5.3" <%if phpver="5.3" then%>selected<%end if%>>5.3</option>
              <option value="5.4" <%if phpver="5.4" then%>selected<%end if%>>5.4</option>
              <option value="5.5" <%if phpver="5.5" then%>selected<%end if%>>5.5</option>
              <option value="5.6" <%if phpver="5.6" then%>selected<%end if%>>5.6</option>  
              <option value="7.0" <%if phpver="7.0" then%>selected<%end if%>>7.0</option>  			  
              <option value="7.1" <%if phpver="7.1" then%>selected<%end if%>>7.1</option>  			  			  
            </select>
(默认是PHP5.2)<br>            
<br>
            购买此产品免费注册域名一年:
            <input name="isbydomain" type="checkbox" id="isbydomain" value="y" <%if isbydomain="y" then%>checked<%end if%>>
            赠送的域名产品:
            <%
	Set dsX = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_DomainProductlist order by id asc"
		dsX.Open Sql,conn,1,1
If dsX.Eof Then%>
            产品列表为空.
            <%else%>
            <select name="Domaintype" id="Domaintype">
          <%while not dsX.Eof%>
          <option value="<%=dsX("Domaintype")%>" <%if dsX("Domaintype")=Domaintype then%>selected<%end if%>><%=dsX("Domaintype")%></option>
          <br>
          <%
dsX.movenext
wend%>
            </select>
            <%end if%>
            <br>
            允许同时送两个数据库：
            <input type="radio" name="cantwodb" value="0" <%if cantwodb=false then%>checked<%end if%>>
  否(默认) 　　
  <input type="radio" name="cantwodb" value="1" <%if cantwodb=true then%>checked<%end if%>>
  是<br>
            用户可选的服务器一：
            <%
	Set dsX = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Serverlist where ostype='windows' order by orderbyid desc,id asc"
		dsX.Open Sql,conn,1,1
If dsX.Eof Then%>
            服务器列表为空.
            <%else%>
            <select name="ServerlistID" id="ServerlistID">
          <%while not dsX.Eof%>
          <option value="<%=dsX("id")%>" <%if ServerlistID=dsX("id") then%>selected<%end if%>><%=dsX("id")%>.<%=dsX("servername")%>
          <%if dsX("agent1")<>"n" then%> 
          代理名：<%=dsX("agent1")%>
          <%end if%> 
          [<%=dsX("netby")%>]</option>
          <%
dsX.movenext
wend%>
            </select>
            <%end if%>
            <br>
            用户可选的服务器二：
            <%
	Set dsX = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Serverlist where ostype='windows' order by orderbyid desc,id asc"
		dsX.Open Sql,conn,1,1
If dsX.Eof Then%>
            服务器列表为空.
            <%else%>
            <select name="ServerlistID2" id="ServerlistID2">
          <option value="0" selected>无</option>
          <%while not dsX.Eof%>
          <option value="<%=dsX("id")%>" <%if ServerlistID2=dsX("id") then%>selected<%end if%>><%=dsX("id")%>.<%=dsX("servername")%>
          <%if dsX("agent1")<>"n" then%> 
          代理名：<%=dsX("agent1")%>
          <%end if%> 
          [<%=dsX("netby")%>]</option>
          <%
dsX.movenext
wend%>
            </select>
            <%end if%>
    
          <br>
            用户可选的服务器三：
            <%
	Set dsX = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Serverlist where ostype='windows' order by orderbyid desc,id asc"
		dsX.Open Sql,conn,1,1
If dsX.Eof Then%>
            服务器列表为空.
            <%else%>
            <select name="ServerlistID3" id="ServerlistID3">
          <option value="0" selected>无</option>
          <%while not dsX.Eof%>
          <option value="<%=dsX("id")%>" <%if ServerlistID3=dsX("id") then%>selected<%end if%>><%=dsX("id")%>.<%=dsX("servername")%>
          <%if dsX("agent1")<>"n" then%> 
          代理名：<%=dsX("agent1")%>
          <%end if%> 
          [<%=dsX("netby")%>]</option>
          <%
dsX.movenext
wend%>
            </select>
            <%end if%>
    

            <br>
            用户可选的服务器四：
            <%
	Set dsX = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Serverlist where ostype='windows' order by orderbyid desc,id asc"
		dsX.Open Sql,conn,1,1
If dsX.Eof Then%>
            服务器列表为空.
            <%else%>
            <select name="ServerlistID4" id="ServerlistID4">
          <option value="0" selected>无</option>
          <%while not dsX.Eof%>
          <option value="<%=dsX("id")%>" <%if ServerlistID4=dsX("id") then%>selected<%end if%>><%=dsX("id")%>.<%=dsX("servername")%>
          <%if dsX("agent1")<>"n" then%> 
          代理名：<%=dsX("agent1")%>
          <%end if%> 
          [<%=dsX("netby")%>]</option>
          <%
dsX.movenext
wend%>
            </select>
            <%end if%>
    

            <br>
            用户可选的服务器五：
            <%
	Set dsX = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Serverlist where ostype='windows' order by orderbyid desc,id asc"
		dsX.Open Sql,conn,1,1
If dsX.Eof Then%>
            服务器列表为空.
            <%else%>
            <select name="ServerlistID5" id="ServerlistID5">
          <option value="0" selected>无</option>
          <%while not dsX.Eof%>
          <option value="<%=dsX("id")%>" <%if ServerlistID5=dsX("id") then%>selected<%end if%>><%=dsX("id")%>.<%=dsX("servername")%>
          <%if dsX("agent1")<>"n" then%> 
          代理名：<%=dsX("agent1")%>
          <%end if%> 
          [<%=dsX("netby")%>]</option>
          <%
dsX.movenext
wend%>
            </select>
            <%end if%>
            <br>
            简要说明：
            <textarea name="info" cols="30" rows="3" id="info"><%=info%></textarea>
            (可以用html语法)<br>
            <br>
            详细说明：
            <textarea name="infomore" cols="45" rows="6" id="infomore"><%=infomore%></textarea>
            (可以用html语法)<br>
            <br>
            开通虚拟主机后，自动复制以下目录的文件到用户web目录中：
            <input name="oridir" type="text" id="oridir" value="<%=oridir%>" size="20" maxlength="50">
            (可以不填写)(目录名中可以用$ftpname作为FTP用户名)<br>
            此产品限制只提供给指定的代理使用,代理名：
            <input name="onlyusebyagn" type="text" value="<%=onlyusebyagn%>" size="14" maxlength="14">
(可以不填写)<br>
将已开通的虚拟主机的IIS连接数及带宽限制批量修改为新的数值:
<input name="batchAction" type="checkbox" value="y">
(已开通子目录站的产品不应该使用本功能)<br>
<br>
用户区预装网站功能：(可以不填写)<br>
名称一：
<input name="UAcopyName1" type="text" value="<%=UAcopyName1%>" size="14" maxlength="50">
　原文件所在目录：
<input name="UAcopydir1" type="text" value="<%=UAcopydir1%>" size="14" maxlength="50">
　简要说明：
            <textarea name="UAcopyabcout1" cols="30" rows="3"><%=UAcopyabcout1%></textarea>
(100汉字内，可以用html语法)<br>
名称二：
<input name="UAcopyName2" type="text" value="<%=UAcopyName2%>" size="14" maxlength="50">
　原文件所在目录：
<input name="UAcopydir2" type="text" value="<%=UAcopydir2%>" size="14" maxlength="50">
　简要说明：
<textarea name="UAcopyabcout2" cols="30" rows="3"><%=UAcopyabcout2%></textarea>
(100汉字内，可以用html语法)<br>
名称三：
<input name="UAcopyName3" type="text" value="<%=UAcopyName3%>" size="14" maxlength="50">
　原文件所在目录：
<input name="UAcopydir3" type="text" value="<%=UAcopydir3%>" size="14" maxlength="50">
　简要说明：
<textarea name="UAcopyabcout3" cols="30" rows="3"><%=UAcopyabcout3%></textarea>
(100汉字内，可以用html语法)<br>
名称四：
<input name="UAcopyName4" type="text" value="<%=UAcopyName4%>" size="14" maxlength="50">
　原文件所在目录：
<input name="UAcopydir4" type="text" value="<%=UAcopydir4%>" size="14" maxlength="50">
　简要说明：
<textarea name="UAcopyabcout4" cols="30" rows="3"><%=UAcopyabcout4%></textarea>
(100汉字内，可以用html语法)<br>
名称五：
<input name="UAcopyName5" type="text" value="<%=UAcopyName5%>" size="14" maxlength="50">
　原文件所在目录：
<input name="UAcopydir5" type="text" value="<%=UAcopydir5%>" size="14" maxlength="50">
　简要说明：
<textarea name="UAcopyabcout5" cols="30" rows="3"><%=UAcopyabcout5%></textarea>
(100汉字内，可以用html语法)<br>
名称六：
<input name="UAcopyName6" type="text" value="<%=UAcopyName6%>" size="14" maxlength="50">
　原文件所在目录：
<input name="UAcopydir6" type="text" value="<%=UAcopydir6%>" size="14" maxlength="50">
　简要说明：
<textarea name="UAcopyabcout6" cols="30" rows="3"><%=UAcopyabcout6%></textarea>
(100汉字内，可以用html语法)<br>
名称七：
<input name="UAcopyName7" type="text" value="<%=UAcopyName7%>" size="14" maxlength="50">
　原文件所在目录：
<input name="UAcopydir7" type="text" value="<%=UAcopydir7%>" size="14" maxlength="50">
　简要说明：
<textarea name="UAcopyabcout7" cols="30" rows="3"><%=UAcopyabcout7%></textarea>
(100汉字内，可以用html语法)<br>
名称八：
<input name="UAcopyName8" type="text" value="<%=UAcopyName8%>" size="14" maxlength="50">
　原文件所在目录：
<input name="UAcopydir8" type="text" value="<%=UAcopydir8%>" size="14" maxlength="50">
　简要说明：
<textarea name="UAcopyabcout8" cols="30" rows="3"><%=UAcopyabcout8%></textarea>
(100汉字内，可以用html语法)<br>
</div>
<%end if%>
<%if ostype="linux" then%>
<div id=pdlinux>
产品名： 
        <input name="Hosttype" type="text" id="Hosttype" value="<%=Hosttype%>" size="20" maxlength="50" <%if Hosttype<>"" then%>readonly<%end if%>>
      排队顺序：
      <input name="orderbyid" type="text" id="orderbyid" size="4" maxlength="6" value="<%=orderbyid%>">
      (数值大排前面)<br>
      价格：
      <input name="usermoney" type="text" id="usermoney" size="4" maxlength="6" value="<%=usermoney%>">
元一年<br>
月付费率：
<input name="PAY_Month" type="text" size="4" maxlength="6" value="<%=PAY_Month%>">
 (如果一个产品是120元/年，每月支付的价格就是120X费率，默认费率是0.084=1/12)<br>
 季付费率：
 <input name="PAY_Season" type="text" size="4" maxlength="6" value="<%=PAY_Season%>">
  (如果一个产品是120元/年，每季支付的价格就是120X费率，默认费率是0.25=1/4)<br>
 半年付费率：
 <input name="PAY_halfyear" type="text" size="4" maxlength="6" value="<%=PAY_halfyear%>">
 (如果一个产品是120元/年，每季支付的价格就是120X费率，默认费率是0.5=1/2)<br>
一次购买两年费率：
<input name="PAY_2year" type="text" size="4" maxlength="6" value="<%=PAY_2year%>">
　三年费率
<input name="PAY_3year" type="text" size="4" maxlength="6" value="<%=PAY_3year%>">
　四年费率
<input name="PAY_4year" type="text" size="4" maxlength="6" value="<%=PAY_4year%>">
　五年费率
<input name="PAY_5year" type="text" size="4" maxlength="6" value="<%=PAY_5year%>">
<br>
续费一年费率：
<input name="PAY_Nextyear" type="text" size="4" maxlength="6" value="<%=PAY_Nextyear%>">
(续费二,三,四,五年的费率和一次性购买二,三,四,五年是一样的)<br>
      <br>
<br>
      <br>
      空间总大小限制(M)：
      <input name="spacelimt" type="text" id="spacelimt" size="5" maxlength="8" value="<%=spacelimt%>">
      (不要输入单位) 
      分类编号：
      <input name="typeid" type="text" id="orderbyid" size="4" maxlength="6" value="<%=typeid%>">
      　限制只允许同一类型之间才能升级:
      <input name="updatebytypeid" type="checkbox" id="updatebytypeid" value="y" <%if updatebytypeid="y"  then%>checked<%end if%>>
      <br>
      此产品允许开通的虚拟主机数量：
      <input name="vdomains" type="text" id="vdomains" size="4" value="<%=vdomains%>">
个 此产品允许绑定的子域名数量：
      <input name="allowdomain" type="text" id="allowdomain" size="3" value="<%=allowdomain%>">
个      域名转发数量：
      <input name="domainptr" type="text" id="domainptr" size="3" value="<%=domainptr%>">
个<br>
            流量上限：
            <input name="Maxbytes" type="text" id="Maxbytes" size="10" maxlength="20" value="<%=Maxbytes%>">
            M/月(0表示不限制)<br>
            允许开通的邮箱数量：
            <input name="nemails" type="text" id="nemails" size="3" value="<%=nemails%>">
个            　邮箱转发数量：
            <input name="nemailf" type="text" id="nemailf" size="3" value="<%=nemailf%>">
个             　邮箱列表数量：
            <input name="nemailml" type="text" id="nemailml" size="2" value="<%=nemailml%>">
个             　邮箱自动回复数量：
            <input name="nemailr" type="text" id="nemailr" size="2" value="<%=nemailr%>">
个<br>
允许开通的MySQL数量：
<input name="mysql" type="text" id="mysql" size="3" value="<%=mysql%>">
个　允许开通的FTP数量：
<input name="ftp" type="text" id="ftp" size="3" value="<%=ftp%>">
个　是否允许匿名FTP:
<input name="aftp" type="checkbox" id="aftp" value="ON" <%if aftp="ON" then%>checked<%end if%>>
(默认不选中)
　<br>
            支持类型: PHP:
            <input name="php" type="checkbox" id="php" value="y" <%if php="y"  then%>checked<%end if%>>
            
        　CGI:
            <input name="cgi" type="checkbox" id="cgi" value="y" <%if cgi="y"  then%>checked<%end if%>>
            <!--　JSP:
            <input name="jsp" type="checkbox" id="jsp" value="y" <%if jsp="y" then%>checked<%end if%>>-->
            <br>
            <br>
超过限制时自动停止此用户:
<input name="suspend_at_limit" type="checkbox" id="suspend_at_limit" value="ON" <%if suspend_at_limit="ON" then%>checked<%end if%>>
<br>
外观：
      <input name="skin" type="text" id="skin" size="10" maxlength="20" value="<%=skin%>">
　　面板语言：
      <input name="language" type="text" id="language" size="4" maxlength="20" value="<%=language%>">
(如果您在DA中安装了中文包，可以修改为cn)<br>
            <br>
            是否允许试用:
            <input name="cantest" type="checkbox" id="cantest" value="y" <%if cantest="y" then%>checked<%end if%>>
            是否允许月付:
            <input name="canmonth" type="checkbox" id="canmonth" value="y"   <%if canmonth="y" then%>checked<%end if%>>
            是否允许季付:
            <input name="canseason" type="checkbox" id="canseason" value="y"   <%if canseason="y" then%>checked<%end if%>>
            是否允许半年付:
            <input name="canhalfyear" type="checkbox" id="canhalfyear" value="y"   <%if canhalfyear="y" then%>checked<%end if%>>
            <br>
            此产品主站的最终用户可以看到:
            <input name="canbyenduser" type="checkbox" id="canbyenduser" value="y" <%if canbyenduser="y" then%>checked<%end if%>>
            代理的最终用户可以看到:
            <input name="canbyagnenduser" type="checkbox" id="canbyagnenduser" value="y"   <%if canbyagnenduser="y" then%>checked<%end if%>>
            代理可以看到:
            <input name="canbyagn" type="checkbox" id="canbyagn" value="y"   <%if canbyagn="y" then%>checked<%end if%>>
            <br>
            此产品不允许从别的产品升级:
            <input name="allowupdate" type="checkbox" id="allowupdate" value="y"   <%if allowupdate="y" then%>checked<%end if%>>
            　此产品不允许升级到别的产品:
            <input name="allowupdatetoother" type="checkbox" id="allowupdatetoother" value="y"   <%if allowupdatetoother="y" then%>checked<%end if%>>
            　<br>
            <br>
            购买此产品免费注册域名一年:
            <input name="isbydomain" type="checkbox" id="isbydomain" value="y" <%if isbydomain="y" then%>checked<%end if%>>
            赠送的域名产品:
            <%
	Set dsX = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_DomainProductlist order by id asc"
		dsX.Open Sql,conn,1,1
If dsX.Eof Then%>
            产品列表为空.
            <%else%>
            <select name="Domaintype" id="Domaintype">
          <%while not dsX.Eof%>
          <option value="<%=dsX("Domaintype")%>" <%if dsX("Domaintype")=Domaintype then%>selected<%end if%>><%=dsX("Domaintype")%></option>
          <br>
          <%
dsX.movenext
wend%>
            </select>
            <%end if%>
            <br>
            用户可选的服务器一：
            <%
	Set dsX = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Serverlist where ostype='linux' order by id asc"
		dsX.Open Sql,conn,1,1
If dsX.Eof Then%>
            服务器列表为空.
            <%else%>
            <select name="ServerlistID" id="ServerlistID">
          <%while not dsX.Eof%>
          <option value="<%=dsX("id")%>" <%if ServerlistID=dsX("id") then%>selected<%end if%>><%=dsX("id")%>.<%=dsX("servername")%>
          <%if dsX("agent1")<>"n" then%> 
          代理名：<%=dsX("agent1")%>
          <%end if%> 
          [<%=dsX("netby")%>]</option>
          <%
dsX.movenext
wend%>
            </select>
            <%end if%>
            <br>
            用户可选的服务器二：
            <%
	Set dsX = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Serverlist where ostype='linux' order by id asc"
		dsX.Open Sql,conn,1,1
If dsX.Eof Then%>
            服务器列表为空.
            <%else%>
            <select name="ServerlistID2" id="ServerlistID2">
          <option value="0" selected>无</option>
          <%while not dsX.Eof%>
          <option value="<%=dsX("id")%>" <%if ServerlistID2=dsX("id") then%>selected<%end if%>><%=dsX("id")%>.<%=dsX("servername")%>
          <%if dsX("agent1")<>"n" then%> 
          代理名：<%=dsX("agent1")%>
          <%end if%> 
          [<%=dsX("netby")%>]</option>
          <%
dsX.movenext
wend%>
            </select>
            <%end if%>
    
          <br>
            用户可选的服务器三：
            <%
	Set dsX = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Serverlist where ostype='linux' order by id asc"
		dsX.Open Sql,conn,1,1
If dsX.Eof Then%>
            服务器列表为空.
            <%else%>
            <select name="ServerlistID3" id="ServerlistID3">
          <option value="0" selected>无</option>
          <%while not dsX.Eof%>
          <option value="<%=dsX("id")%>" <%if ServerlistID3=dsX("id") then%>selected<%end if%>><%=dsX("id")%>.<%=dsX("servername")%>
          <%if dsX("agent1")<>"n" then%> 
          代理名：<%=dsX("agent1")%>
          <%end if%> 
          [<%=dsX("netby")%>]</option>
          <%
dsX.movenext
wend%>
            </select>
            <%end if%>
    

            <br>
            用户可选的服务器四：
            <%
	Set dsX = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Serverlist where ostype='linux' order by id asc"
		dsX.Open Sql,conn,1,1
If dsX.Eof Then%>
            服务器列表为空.
            <%else%>
            <select name="ServerlistID4" id="ServerlistID4">
          <option value="0" selected>无</option>
          <%while not dsX.Eof%>
          <option value="<%=dsX("id")%>" <%if ServerlistID4=dsX("id") then%>selected<%end if%>><%=dsX("id")%>.<%=dsX("servername")%>
          <%if dsX("agent1")<>"n" then%> 
          代理名：<%=dsX("agent1")%>
          <%end if%> 
          [<%=dsX("netby")%>]</option>
          <%
dsX.movenext
wend%>
            </select>
            <%end if%>
    

            <br>
            用户可选的服务器五：
            <%
	Set dsX = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Serverlist where ostype='linux' order by id asc"
		dsX.Open Sql,conn,1,1
If dsX.Eof Then%>
            服务器列表为空.
            <%else%>
            <select name="ServerlistID5" id="ServerlistID5">
          <option value="0" selected>无</option>
          <%while not dsX.Eof%>
          <option value="<%=dsX("id")%>" <%if ServerlistID5=dsX("id") then%>selected<%end if%>><%=dsX("id")%>.<%=dsX("servername")%>
          <%if dsX("agent1")<>"n" then%> 
          代理名：<%=dsX("agent1")%>
          <%end if%> 
          [<%=dsX("netby")%>]</option>
          <%
dsX.movenext
wend%>
            </select>
            <%end if%>
            <br>
            简要说明：
            <textarea name="info" cols="30" rows="3" id="info"><%=info%></textarea>
            (可以用html语法)<br>
            <br>
            详细说明：
            <textarea name="infomore" cols="45" rows="6" id="infomore"><%=infomore%></textarea>
            (可以用html语法)<br>
此产品限制只提供给指定的代理使用,代理名：
<input name="onlyusebyagn" type="text" value="<%=onlyusebyagn%>" size="14" maxlength="14">
(可以不填写)<br>

            <%end if%><br>
</div>


            赠送的CDN产品：
            <%
	Set dsCDN = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_CDNProductlist order by id asc"
		dsCDN.Open Sql,conn,1,1
If dsCDN.Eof Then%>
            产品列表为空.
            <%else%>
            <select name="CDNpdID">
<option value="0"selected>无</option>
          <%while not dsCDN.Eof%><br>
          <option value="<%=dsCDN("id")%>" <%if dsCDN("id")=CDNpdID then%>selected<%end if%>><%=dsCDN("CDNtype")%></option>
          <br>
          <%
dsCDN.movenext
wend%>
            </select>
<%end if%>
            <br>
            <br><br>
此产品是否是代理别人的产品：
            <input name="isagentpd" type="checkbox" id="isagentpd" value="1" <%if isagentpd=true then%>checked<%end if%>>
            <a href="http://7i24.com/freehostfull/hostapi.htm" target="_blank"><font color="#FF0000">点这儿寻找虚拟主机服务器运营商&gt;&gt;</font></a><br>
            　　　　上级公司名：
            <input name="HostComName" type="text" id="orderbyid" size="20" maxlength="50" value="<%=HostComName%>">
            <br>
            　　　　上级API域名：
            <input name="HostApiName" type="text" id="orderbyid" size="30" maxlength="80" value="<%=HostApiName%>">
            <br>
            　　　　上级虚拟主机服务器面板域名：
            <input name="Hostcpdomain" type="text" id="orderbyid" size="30" maxlength="80" value="<%=Hostcpdomain%>">
            <br>
            　　　　上级代理名：
            <input name="Agnuserid" type="text" id="orderbyid" size="14" maxlength="14" value="<%=Agnuserid%>">
            <br>
            　　　　上级代理密码：
            <input name="Domain_Agent_nonemd5_6" type="password" id="orderbyid" size="14" maxlength="14" value="<%=Domain_Agent_nonemd5_6%>">
            <br>
            　　　　上级虚拟主机服务器用的产品id：
            <input name="Agnproductid" type="text" id="orderbyid" size="4" maxlength="4" value="<%=Agnproductid%>">
(问上级公司了解)<br>
            　　　　上级虚拟主机服务器用的服务器id：
            <input name="Agnidc" type="text" id="orderbyid" size="4" maxlength="4" value="<%=Agnidc%>">
(设置为0或不填写就代表用默认服务器)<br>

　　　　
<input name="Submit" type="submit" id="Submit" value="添加">
<input name="modify" type="submit" id="modify" value="修改">
　　　　　　
<input name="delit" type="submit" id="delit" value="删除">
<br>
            <br>
      </p>
      </td>
  </tr>
</table>
	</div>
</form>


              <form name="form2" method="post" action="product-host-modifyname.asp">           
<DIV class="tableborder">
<table width="100%"  border="0" cellspacing="1">
  <tr >
    <td height="24" colspan="2" align="center" background="img/tablebg.gif"><font color="#FFFFFF">修改产品名称：</font></td>
  </tr>
  <tr bgcolor="#E4EAF2">
    <td width="9%" height="40" align="right">&nbsp;</td>
    <td width="91%" align="left">	                  原产品名：
                  <input name="Hosttype" type="text" id="Hosttype" size="20" maxlength="50">
新产品名：
                <input name="newHosttype" type="text" id="newHosttype" size="20" maxlength="50">
                <input type="submit" name="Submit" value="提交"></td>
  </tr>
</table></div>
</form>

  
	  </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%>
