hostedit.asp

一个非常优秀的自动建站程序

<%
HostID = Request("HostID")
if (HostID="") then Response.Redirect ("error.asp?id=001")
%>
<!--#include file="top.asp"-->
<!--#include file="../checkpost.asp"-->
<%
if Request("action")="action" then
if Trim(Request.Form("HostName"))="" or Trim(Request.Form("HostSize"))="" or Trim(Request.Form("MailSize"))="" or Trim(Request.Form("MailNum"))="" or Trim(Request.Form("Price1"))="" or Trim(Request.Form("Price2"))="" or Trim(Request.Form("Price3"))="" or Trim(Request.Form("Price4"))="" or Trim(Request.Form("Price5"))="" or Trim(Request.Form("Other1"))="" or Trim(Request.Form("Other2"))="" or Trim(Request.Form("WebRootPath"))="" then response.redirect "error.asp?id=004"
if right(trim(Request.Form("WebRootPath")),1)="\" then 
UserRootPath=left(trim(Request.Form("WebRootPath")),len(trim(Request.Form("WebRootPath")))-1)
else
UserRootPath=trim(Request.Form("WebRootPath"))
end if
if inchinese(trim(Request.Form("WebRootPath")))=true then Response.Redirect("error.asp?id=022")
set rs=server.createobject("adodb.recordset")
sql="select * from [Host_List] where HostID=" & HostID
rs.open sql,conn,1,3
if rs.bof and rs.eof then Response.Redirect("error.asp?id=001")
if Request.Form("sale")=1 then sale=1 else sale=0
rs("HostName")=Request.Form("HostName")
rs("HostSize")=Request.Form("HostSize")
rs("MailSize")=Request.Form("MailSize")
rs("MailNum")=Request.Form("MailNum")
rs("Price1")=Request.Form("Price1")
rs("Price2")=Request.Form("Price2")
rs("Price3")=Request.Form("Price3")
rs("Price4")=Request.Form("Price4")
rs("Price5")=Request.Form("Price5")
rs("Other1")=Request.Form("Other1")
rs("Other2")=Request.Form("Other2")
rs("Webip")=Request.Form("Webip")
rs("WebDefaultDomain")=Request.Form("DefDomain")
rs("WebRootPath")=UserRootPath
if Request.Form("WebMaxConnections")<>"" then rs("WebMaxConnections")=Request.Form("WebMaxConnections")
rs("WebSize")=Request.Form("WebSize")
if Request.Form("WebMaxBandwidth")<>"" then rs("WebMaxBandwidth")=Request.Form("WebMaxBandwidth")
if Request.Form("WebCPULimit")<>"" then rs("WebCPULimit")=Request.Form("WebCPULimit")
if Request.Form("WebAccessSource")="1" then rs("WebAccessSource")=1 else rs("WebAccessSource")=0
if Request.Form("WebAccessRead")="1" then rs("WebAccessRead")=1 else rs("WebAccessRead")=0
if Request.Form("WebAccessWrite")="1" then rs("WebAccessWrite")=1 else rs("WebAccessWrite")=0
rs("WebAccessScript")=Request.Form("WebAccessScript")
rs("WebAppIsolated")=Request.Form("WebAppIsolated")
rs("WebScriptMaps")=Request.Form("WebScriptMaps")
rs("WebAppPools")=Request.Form("WebAppPools")
rs("WebFooter")=Request.Form("WebFooter")
rs("WebIndexDoc")=Request.Form("WebIndexDoc")
rs("sales")=sale
rs.update
rs.close
set rs=nothing
response.redirect "HostIndex.asp"
response.end
else
set rs=server.createobject("adodb.recordset")
sql="select * from [Host_List] where HostID=" & HostID
rs.open sql,conn,1,3
if rs.bof and rs.eof then Response.Redirect("error.asp?id=001")
HostName=rs("HostName")
HostSize=rs("HostSize")
MailSize=rs("MailSize")
MailNum=rs("MailNum")
Price1=rs("Price1")
Price2=rs("Price2")
Price3=rs("Price3")
Price4=rs("Price4")
Price5=rs("Price5")
Other1=rs("Other1")
Other2=rs("Other2")
Webip=rs("WebIP")
DefDomain=rs("WebDefaultDomain")
WebRootPath=rs("WebRootPath")
WebMaxConnections=rs("WebMaxConnections")
WebSize=rs("WebSize")
WebMaxBandwidth=rs("WebMaxBandwidth")
WebCPULimit=rs("WebCPULimit")
WebConnectionTimeout=rs("WebConnectionTimeout")
WebAccessSource=rs("WebAccessSource")
WebAccessRead=rs("WebAccessRead")
WebAccessWrite=rs("WebAccessWrite")
WebAccessScript=rs("WebAccessScript")
WebAppIsolated=rs("WebAppIsolated")
WebScriptMaps=rs("WebScriptMaps")
WebAppPools=rs("WebAppPools")
WebFooter=rs("WebFooter")
WebIndexDoc=rs("WebIndexDoc")
sale=rs("sales")
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select * from [Host_OK] where HostID=" & HostID
rs.open sql,conn,1,3
if rs.bof and rs.eof then read="" else read="readonly"
rs.close
set rs=nothing
end if
%>

<table width="100%" align="center" bgcolor="#cccccc" border="0" cellpadding="2" cellspacing="1" style="font-size: 9pt; line-height: 200%">
<tr>
<td align=center bgcolor="#FFFFFF">

<br>
<table align=center width=500 cellpadding="2" cellspacing="1" bgcolor=#cccccc>
<form name=AddForm action="?action=action&HostID=<%=HostID%>" method=post>
<tr>
<td bgcolor=ffffff align=center height=24 colspan="3">
修改主机
</td>
</tr>
<tr>
<td bgcolor=FFFFFF width=24%>
&nbsp;<font color=red>*</font> 产品名称:
</td>
<td bgcolor=FFFFFF width=40%>
<input name="HostName" style="width:210px" value="<%=HostName%>">
</td>
<td bgcolor=FFFFFF width=36%>
产品名称
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 空间大小:
</td>
<td bgcolor=FFFFFF>
<input name="HostSize" style="width:210px" value="<%=HostSize%>">
</td>
<td bgcolor=FFFFFF>
单位MB (小于等于4位数)
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 邮箱大小:
</td>
<td bgcolor=FFFFFF>
<input name="MailSize" style="width:210px" value="<%=MailSize%>">
</td>
<td bgcolor=FFFFFF>
单位MB (小于等于4位数)
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 邮箱数量:
</td>
<td bgcolor=FFFFFF>
<input name="MailNum" style="width:210px" value="<%=MailNum%>">
</td>
<td bgcolor=FFFFFF>
单位MB (小于等于4位数)
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 代理价-1:
</td>
<td bgcolor=FFFFFF>
<input name="Price1" style="width:210px" value="<%=Price1%>">
</td>
<td bgcolor=FFFFFF>
单位RMB (小于等于8位数)
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 代理价-2:
</td>
<td bgcolor=FFFFFF>
<input name="Price2" style="width:210px" value="<%=Price2%>">
</td>
<td bgcolor=FFFFFF>
单位RMB (小于等于8位数)
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 代理价-3:
</td>
<td bgcolor=FFFFFF>
<input name="Price3" style="width:210px" value="<%=Price3%>">
</td>
<td bgcolor=FFFFFF>
单位RMB (小于等于8位数)
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 代理价-4:
</td>
<td bgcolor=FFFFFF>
<input name="Price4" style="width:210px" value="<%=Price4%>">
</td>
<td bgcolor=FFFFFF>
单位RMB (小于等于8位数)
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 代理价-5:
</td>
<td bgcolor=FFFFFF>
<input name="Price5" style="width:210px" value="<%=Price5%>">
</td>
<td bgcolor=FFFFFF>
单位RMB (小于等于8位数)
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 简要说明:
</td>
<td bgcolor=FFFFFF>
<input name="Other1" style="width:210px" value="<%=Other1%>">
</td>
<td bgcolor=FFFFFF>
主机功能简要说明
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 详细说明:
</td>
<td bgcolor=FFFFFF colspan="2">
<textarea name="Other2" style="width:360px;height=70px"><%=Other2%></textarea>
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 服务器:
</td>
<td bgcolor=FFFFFF>
<input name="Webip" style="width:210px" value="<%=Webip%>" <%=read%>>
</td>
<td bgcolor=FFFFFF>
在指定服务器上开通用户空间
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 绑定的域名:
</td>
<td bgcolor=FFFFFF>
<input name="DefDomain" style="width:210px" value="<%=DefDomain%>" <%=read%>>
</td>
<td bgcolor=FFFFFF>
开通指定的二级域名用户空间
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 服务器路径:
</td>
<td bgcolor=FFFFFF>
<input name="WebRootPath" style="width:210px" value="<%=WebRootPath%>">
</td>
<td bgcolor=FFFFFF>
用户空间目录(<font color=red>不允许使用中文</font>)
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> IIS连接:
</td>
<td bgcolor=FFFFFF>
<input name="WebMaxConnections" style="width:210px" value="<%=WebMaxConnections%>">
</td>
<td bgcolor=FFFFFF>
IIS最大连接数
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 网络带宽:
</td>
<td bgcolor=FFFFFF>
<input name="WebMaxBandwidth" style="width:210px" value="<%=WebMaxBandwidth%>">
</td>
<td bgcolor=FFFFFF>
(KB) 网络带宽最大使用量
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 最大CPU使用:
</td>
<td bgcolor=FFFFFF>
<input name="WebCPULimit" style="width:210px" value="<%=WebCPULimit%>">
</td>
<td bgcolor=FFFFFF>
% 最大CPU使用
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 默认首页:
</td>
<td bgcolor=FFFFFF>
<input name="WebIndexDoc" style="width:210px" value="<%=WebIndexDoc%>">
</td>
<td bgcolor=FFFFFF>
默认首页
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 站点性能:
</td>
<td bgcolor=FFFFFF colspan="2">
<input name="WebSize" type="radio" value="0" style="border:0px"<%if WebSize=0 then Response.Write (" checked")%>>低（小于10000）
<input name="WebSize" type="radio" value="1" style="border:0px"<%if WebSize=1 then Response.Write (" checked")%>>中（小于100000）
<input name="WebSize" type="radio" value="2" style="border:0px"<%if WebSize=2 then Response.Write (" checked")%>>高（超过100000）
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 空间类型:
</td>
<td bgcolor=FFFFFF>
<input name="WebScriptMaps" style="width:210px" value="<%=ucase(WebScriptMaps)%>">
</td>
<td bgcolor=FFFFFF>
空间类型，用","隔开
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 执行许可:
</td>
<td bgcolor=FFFFFF colspan="2">
<input name="WebAccessScript" type="radio" value="0" style="border:0px"<%if WebAccessScript=0 then Response.Write (" checked")%>>无
<input name="WebAccessScript" type="radio" value="1" style="border:0px"<%if WebAccessScript=1 then Response.Write (" checked")%>>纯脚本
<input name="WebAccessScript" type="radio" value="2" style="border:0px"<%if WebAccessScript=2 then Response.Write (" checked")%>>脚本和可执行程序
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 应用权限保护:
</td>
<td bgcolor=FFFFFF colspan="2">
<input name="WebAppIsolated" type="radio" value="0" style="border:0px"<%if WebAppIsolated=0 then Response.Write (" checked")%>>低（IIS进程） 
<input name="WebAppIsolated" type="radio" value="2" style="border:0px"<%if WebAppIsolated=2 then Response.Write (" checked")%>>中（共用的） 
<input name="WebAppIsolated" type="radio" value="1" style="border:0px"<%if WebAppIsolated=1 then Response.Write (" checked")%>>高（独立的）
</td>
</tr>
<tr>
<td bgcolor=FFFFFF width=24%>
&nbsp;<font color=red>*</font> 应用程序池:
</td>
<td bgcolor=FFFFFF colspan="2">
<input name="WebAppPools" type="radio" value="1" style="border:0px"<%if WebAppPools=1 then Response.Write (" checked")%>>独立 
<input name="WebAppPools" type="radio" value="0" style="border:0px"<%if WebAppPools=0 then Response.Write (" checked")%>>共用
&nbsp;<font color=red>2003下有效</font></td>
</tr>
<tr>
<td bgcolor=FFFFFF width=24%>
&nbsp;<font color=red>*</font> 强制广告:
</td>
<td bgcolor=FFFFFF colspan="2">
<input name="WebFooter" type="radio" value="1" style="border:0px"<%if WebFooter=1 then Response.Write (" checked")%>>是 
<input name="WebFooter" type="radio" value="0" style="border:0px"<%if WebFooter=0 then Response.Write (" checked")%>>否
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 正式销售:
</td>
<td bgcolor=FFFFFF colspan="2">
<input name="sale" type="checkbox" value="1" style="border:0px"<%if sale then Response.Write (" checked")%>><font color=red>正式销售</font>
</td>
</tr>
<tr>
<td bgcolor=FFFFFF align=center height=30 colspan="3">
<input type="submit" value=" 提交 " name="Submit" style="font-size: 9pt; COLOR: #ffffff; height:20px;background-color:#568ac2;" onMouseOver ="this.style.backgroundColor='#77A3D2'" onMouseOut ="this.style.backgroundColor='#568ac2'">
&nbsp;&nbsp;&nbsp;
<input type="reset" value=" 重 置 " name="B2" style="font-size: 9pt; COLOR: #ffffff; height:20px;background-color:#568ac2;" onMouseOver ="this.style.backgroundColor='#77A3D2'" onMouseOut ="this.style.backgroundColor='#568ac2'">
&nbsp;
</td>
</tr>
</form>
</table>
<br>
</td>
</tr>
</table>
<!--#include file="foot.asp"-->