📄 hostadd.asp
字号:
<!--#include file="top.asp"-->
<%
if Request("action")="action" then
if Request.Form("sale")=1 then sale=1 else sale=0
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"
set rs=server.createobject("adodb.recordset")
sql="select * from [Host_List] where (HostID is null)"
rs.open sql,conn,1,3
rs.addnew
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")=Request.Form("WebRootPath")
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
if Request.Form("WebAccessRead")="1" then rs("WebAccessRead")=1
if Request.Form("WebAccessWrite")="1" then rs("WebAccessWrite")=1
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
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" method=post>
<tr>
<td bgcolor=ffffff align=center height=24 colspan="3">
添加主机
</td>
</tr>
<tr>
<td bgcolor=FFFFFF width=24%>
<font color=red>*</font> 产品名称:
</td>
<td bgcolor=FFFFFF width=40%>
<input name="HostName" style="width:210px" value="">
</td>
<td bgcolor=FFFFFF width=36%>
产品名称
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
<font color=red>*</font> 空间大小:
</td>
<td bgcolor=FFFFFF>
<input name="HostSize" style="width:210px" value="100">
</td>
<td bgcolor=FFFFFF>
单位MB (小于等于4位数)
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
<font color=red>*</font> 邮箱大小:
</td>
<td bgcolor=FFFFFF>
<input name="MailSize" style="width:210px" value="0">
</td>
<td bgcolor=FFFFFF>
单位MB (小于等于4位数)
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
<font color=red>*</font> 邮箱数量:
</td>
<td bgcolor=FFFFFF>
<input name="MailNum" style="width:210px" value="0">
</td>
<td bgcolor=FFFFFF>
单位MB (小于等于4位数)
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
<font color=red>*</font> 代理价-1:
</td>
<td bgcolor=FFFFFF>
<input name="Price1" style="width:210px" value="">
</td>
<td bgcolor=FFFFFF>
单位RMB (小于等于8位数)
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
<font color=red>*</font> 代理价-2:
</td>
<td bgcolor=FFFFFF>
<input name="Price2" style="width:210px" value="">
</td>
<td bgcolor=FFFFFF>
单位RMB (小于等于8位数)
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
<font color=red>*</font> 代理价-3:
</td>
<td bgcolor=FFFFFF>
<input name="Price3" style="width:210px" value="">
</td>
<td bgcolor=FFFFFF>
单位RMB (小于等于8位数)
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
<font color=red>*</font> 代理价-4:
</td>
<td bgcolor=FFFFFF>
<input name="Price4" style="width:210px" value="">
</td>
<td bgcolor=FFFFFF>
单位RMB (小于等于8位数)
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
<font color=red>*</font> 代理价-5:
</td>
<td bgcolor=FFFFFF>
<input name="Price5" style="width:210px" value="">
</td>
<td bgcolor=FFFFFF>
单位RMB (小于等于8位数)
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
<font color=red>*</font> 简要说明:
</td>
<td bgcolor=FFFFFF>
<input name="Other1" style="width:210px" value="">
</td>
<td bgcolor=FFFFFF>
主机功能简要说明
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
<font color=red>*</font> 详细说明:
</td>
<td bgcolor=FFFFFF colspan="2">
<textarea name="Other2" style="width:360px;height=70px"></textarea>
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
<font color=red>*</font> 服务器:
</td>
<td bgcolor=FFFFFF>
<input name="Webip" style="width:210px" value="<%=Request.ServerVariables("LOCAL_ADDR")%>">
</td>
<td bgcolor=FFFFFF>
在指定服务器上开通用户空间
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
<font color=red>*</font> 绑定的域名:
</td>
<td bgcolor=FFFFFF>
<input name="DefDomain" style="width:210px" value="<%=DefDomain%>">
</td>
<td bgcolor=FFFFFF>
开通指定的二级域名用户空间
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
<font color=red>*</font> 服务器路径:
</td>
<td bgcolor=FFFFFF>
<input name="WebRootPath" style="width:210px" value="D:\ClientWeb">
</td>
<td bgcolor=FFFFFF>
用户空间目录(<font color=red>不允许使用中文</font>)
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
<font color=red>*</font> IIS连接:
</td>
<td bgcolor=FFFFFF>
<input name="WebMaxConnections" style="width:210px" value="50">
</td>
<td bgcolor=FFFFFF>
IIS最大连接数
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
<font color=red>*</font> 网络带宽:
</td>
<td bgcolor=FFFFFF>
<input name="WebMaxBandwidth" style="width:210px" value="512">
</td>
<td bgcolor=FFFFFF>
(KB) 网络带宽最大使用量
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
<font color=red>*</font> 最大CPU使用:
</td>
<td bgcolor=FFFFFF>
<input name="WebCPULimit" style="width:210px" value="3">
</td>
<td bgcolor=FFFFFF>
% 最大CPU使用
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
<font color=red>*</font> 默认首页:
</td>
<td bgcolor=FFFFFF>
<input name="WebIndexDoc" style="width:210px" value="index.htm,index.asp">
</td>
<td bgcolor=FFFFFF>
默认首页
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
<font color=red>*</font> 站点性能:
</td>
<td bgcolor=FFFFFF colspan="2">
<input name="WebSize" type="radio" value="0" style="border:0px">低（小于10000）
<input name="WebSize" type="radio" value="1" style="border:0px" checked>中（小于100000）
<input name="WebSize" type="radio" value="2" style="border:0px">高（超过100000）
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
<font color=red>*</font> 空间类型:
</td>
<td bgcolor=FFFFFF>
<input name="WebScriptMaps" style="width:210px" value="ASP">
</td>
<td bgcolor=FFFFFF>
空间类型，用","隔开
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
<font color=red>*</font> 执行许可:
</td>
<td bgcolor=FFFFFF colspan="2">
<input name="WebAccessScript" type="radio" value="0" style="border:0px">无
<input name="WebAccessScript" type="radio" value="1" style="border:0px" checked>纯脚本
<input name="WebAccessScript" type="radio" value="2" style="border:0px">脚本和可执行程序
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
<font color=red>*</font> 应用权限保护:
</td>
<td bgcolor=FFFFFF colspan="2">
<input name="WebAppIsolated" type="radio" value="0" style="border:0px">低（IIS进程）
<input name="WebAppIsolated" type="radio" value="2" style="border:0px" checked>中（共用的）
<input name="WebAppIsolated" type="radio" value="1" style="border:0px">高（独立的）
</td>
</tr>
<tr>
<td bgcolor=FFFFFF width=24%>
<font color=red>*</font> 应用程序池:
</td>
<td bgcolor=FFFFFF colspan="2">
<input name="WebAppPools" type="radio" value="1" style="border:0px" checked>独立
<input name="WebAppPools" type="radio" value="0" style="border:0px">共用
<font color=red>2003下有效</font></td>
</tr>
<tr>
<td bgcolor=FFFFFF width=24%>
<font color=red>*</font> 强制广告:
</td>
<td bgcolor=FFFFFF colspan="2">
<input name="WebFooter" type="radio" value="1" style="border:0px" checked>是
<input name="WebFooter" type="radio" value="0" style="border:0px">否
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
<font color=red>*</font> 正式销售:
</td>
<td bgcolor=FFFFFF colspan="2">
<input name="sale" type="checkbox" value="1" style="border:0px" 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'">
<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'">
</td>
</tr>
</form>
</table>
<br>
</td>
</tr>
</table>
<!--#include file="foot.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -