<!--#include file="conn.asp" -->
<% adm_power_page=3 '分配本页的用户访问权限 %>
<!--#include file="admin_dn.asp" -->
<% 
 function je_num(je,num)
  i=0
  for i=1 to len(je)
  if instr("0123456789",mid(je,i,1))=0 then je_num="<li>价格"&num&"为非法的数字</li>"
  next
 end function
 
 function ftp_host(host_1)
  i=0
  for i=1 to len(host)
  if instr("0123456789",mid(host_1,i,1))=0 then ftp_host="<li>ftp空间大小只能为数字</li>"
  next
 end function
 
if Trim(Request.QueryString("w"))="save" then
msg=""
 msg=msg&je_num(Request.Form("je1"),1)
 msg=msg&je_num(Request.Form("je2"),2)
 msg=msg&je_num(Request.Form("je3"),3)
 msg=msg&je_num(Request.Form("je4"),4)
 msg=msg&je_num(Request.Form("je5"),5)
 
 if Trim(Request.Form("bh"))="" or Trim(Request.Form("title"))="" then msg="<li>产品名称或是产品编号为空</li>"

if Trim(Request.Form("ftp_auto"))="1" then
      msg=msg&ftp_host(Request.Form("ftp_host"))
      if Trim(Request.Form("ftp_host"))="" or Trim(Request.Form("ftp_host"))=empty then msg=msg&"<li>ftp空间大小不能为空</li>"
      if Trim(Request.Form("ftp_path"))="" or instr(Trim(Request.Form("ftp_path")),":")=0 then msg=msg&"<li>ftp账号所在目录非法.</li>"
 end if
 
if trim(msg)="" then
rs.open "select * from host where id="&request("id"),conn,2,3
rs("bh")=Trim(Request.Form("bh"))
rs("title")=Trim(Request.Form("title"))
rs("kj")=Request.Form("kj")
rs("je1")=Request.Form("je1")
rs("je2")=Request.Form("je2")
rs("je3")=Request.Form("je3")
rs("je4")=Request.Form("je4")
rs("je5")=Request.Form("je5")
if Trim(Request.Form("Recommend"))="1" then 
rs("Recommend")=true
else
rs("Recommend")=false
end if
rs("web_ip")=Request.Form("web_ip")
rs("img")=Trim(Request.Form("img"))
rs("je5")=Request.Form("je5")
rs("ej")=Trim(Request.Form("ej"))
rs("fj")=Trim(Request.Form("fj"))
rs("access")=Trim(Request.Form("access"))
rs("mail")=Trim(Request("mail"))
rs("bak")=Trim(Request.Form("bak"))
rs("bm")=Trim(Request.Form("bm"))
if Trim(Request.Form("ftp_auto"))="1" then
  rs("ftp_auto")=true
  rs("ftp_path")=Trim(Request.Form("ftp_path"))
  rs("ftp_host")=Trim(Request.Form("ftp_host"))
  rs("iis_UserName")=Trim(Request.Form("iis_UserName"))
  rs("iis_Password")=Trim(Request.Form("iis_Password"))
  else
  rs("ftp_auto")=false
 end if 
rs.update
%>
<script language="VBScript" type="text/VBScript">
msgbox "修改成功..."
</script>

<%
msg="修改成功!!!"
rs.close
else
msg="修改失败!!!<ul>"&msg&"</ul>"
end if
end if

rs.open "select * from host where id="&request("id"),conn,1,1



 %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>:::管理页面:::</title>
<link href="css.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="2" topmargin="0">
<p>虚拟主机产品新增:</p>
<p>&nbsp;</p>

<form name="form1" method="post" action="adm_3_e.asp?w=save">
  <table width="95%" height="364" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr> 
      <td width="20%">产 品 编 号：</td>
      <td width="80%"><input name="bh" type="text" id="bh" value="<%=rs("bh")%>" size="10"> 
        <font color="#FF0000">你对产品进行编号 
        <input name="id" type="hidden" id="id" value="<%=request("id")%>">
        </font></td>
    </tr>
    <tr> 
      <td>排 列 序 号：</td>
      <td><input name="bm" type="text" id="bm" value="<%=rs("bm")%>" size="10"></td>
    </tr>
    <tr> 
      <td>产 品 名 称：</td>
      <td><input name="title" type="text" id="title" value="<%=rs("title")%>"> 
        <font color="#FF0000">简要的介绍</font></td>
    </tr>
    <tr> 
      <td>产品图片地址:</td>
      <td><input name="img" type="text" id="img" value="<%=rs("img")%>"></td>
    </tr>
    <tr> 
      <td>是否首页推荐:</td>
      <td>不推荐: 
        <% checked1=""
	                 checked2=""
					 if rs("Recommend") then 
					 checked2="checked"
					 else
					 checked1="checked"
					 end if
	                 %> <input name="Recommend" type="radio" class="unnamed1" value="0"<%=checked1  %>>
        在首页推荐: 
        <input name="Recommend" type="radio" class="unnamed1" value="1"<%=checked2  %>></td>
    </tr>
    <tr> 
      <td>磁 盘 空 间：</td>
      <td><input name="kj" type="text" id="kj" value="<%=rs("kj")%>"></td>
    </tr>
    <tr> 
      <td>硬 件 说 明：</td>
      <td><input name="ej" type="text" id="ej" value="<%=rs("ej")%>" size="30"> 
        <font color="#FF0000">对服务器硬件的说明</font></td>
    </tr>
    <tr> 
      <td>环 境 说 明：</td>
      <td><input name="fj" type="text" id="fj" value="<%=rs("fj")%>" size="30"> 
        <font color="#FF0000">网络等</font></td>
    </tr>
    <tr> 
      <td>数 据 库：</td>
      <td><input name="access" type="text" id="access" value="<%=rs("access")%>"></td>
    </tr>
    <tr> 
      <td>赠 送 邮 局：</td>
      <td><input name="mail" type="text" id="mail" value="<%=rs("mail")%>" size="15"></td>
    </tr>
    <tr> 
      <td>其 它 说 明：</td>
      <td><textarea name="bak" cols="30" rows="4" id="bak"><%=rs("bak")%></textarea> 
        <font color="#FF0000">支持 html</font></td>
    </tr>
    <tr> 
      <td>产品价格1：</td>
      <td><input name="je1" type="text" id="je1" value="<%=rs("je1")%>" size="10">
        元/年 <font color="#FF0000">只能为数字</font></td>
    </tr>
    <tr> 
      <td>产品价格2：</td>
      <td><input name="je2" type="text" id="je2" value="<%=rs("je2")%>" size="10">
        元/年<font color="#FF0000"> 只能为数字</font></td>
    </tr>
    <tr> 
      <td>产品价格3：</td>
      <td><input name="je3" type="text" id="je3" value="<%=rs("je3")%>" size="10">
        元/年<font color="#FF0000"> 只能为数字</font></td>
    </tr>
    <tr> 
      <td>产品价格4：</td>
      <td><input name="je4" type="text" id="je4" value="<%=rs("je4")%>" size="10">
        元/年<font color="#FF0000"> 只能为数字</font></td>
    </tr>
    <tr> 
      <td>产品价格5：</td>
      <td><input name="je5" type="text" id="je5" value="<%=rs("je5")%>" size="10">
        元/年<font color="#FF0000"> 只能为数字</font></td>
    </tr>
    <tr> 
      <td colspan="2"><fieldset>
        <legend><font color="#FF0000">::服务器参数设置::</font></legend>
        <table width="100%" border="0" cellpadding="0" cellspacing="0">
          <tr> 
            <td height="23">服务器IP:</td>
            <td><input name="web_ip" type="text" id="web_ip" value="<%=rs("web_ip")%>" size="20">
              客户绑定的ip</td>
          </tr>
          <tr> 
            <td width="20%" height="23">是否支持在线开通:</td>
            <td width="80%"> <select name="ftp_auto" id="ftp_auto">
                <% k1=""
			k2=""
			if rs("ftp_auto") then
			k1="selected"
			else
			k2="selected"
			end if %>
                <option value="1" <%= k1 %>>-支持在线开通-</option>
                <option value="0" <%= k2 %>>-不支持在线开通-</option>
              </select></td>
          </tr>
          <tr> 
            <td height="20">ftp账号所在目录:</td>
            <td><input name="ftp_path" type="text" id="ftp_path" value="<%=rs("ftp_path")%>">
              请先在服务器硬盘上建立此文件夹 如: c:\wwwroot 后面请不要加&quot;\&quot;</td>
          </tr>
          <tr> 
            <td>ftp空间大小:</td>
            <td><input name="ftp_host" type="text" id="ftp_host" value="<%=rs("ftp_host")%>" size="15"> 
              <font color="#FF0000">&nbsp; </font><font color="#FF0000">M</font> 注意 
              这里只能写数字。</td>
          </tr>
          <tr> 
            <td>iis站点的用户名:</td>
            <td><input name="iis_UserName" type="text" id="iis_UserName" value="<%=rs("iis_UserName")%>" size="10"></td>
          </tr>
          <tr>
            <td>iis站点密码:</td>
            <td><input name="iis_Password" type="text" id="iis_Password" value="<%=rs("iis_Password")%>" size="10"></td>
          </tr>
        </table>
        </fieldset></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td><input type="submit" name="Submit" value="确定修改"></td>
    </tr>
  </table>
</form>
<table width="60%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td><font color="#FF0000"><%= msg %></font></td>
  </tr>
</table>
<p align="center">&nbsp;</p>
<% rs.close %>
</body>
</html>
