⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 host_add.asp

📁 使用Asp+Access+FSO+Jmail+Servu开发
💻 ASP
字号:
<!--#include file="admin.asp"-->
<%chk_admin_login(1)%>
<%
if Request("option")="save" then
if Request.Form("asp")="" or Request.Form("ifreg")="" or Request.Form("onlymail")="" or Request.Form("iptime")="" or Request.Form("active")="" or Request.Form("ftpreg")="" or Request.Form("ftp")="" or Request.Form("domain")="" or Request.Form("ifupload")="" then
response.redirect("../error.asp?error=illegal")
response.end
end if
if Request.Form("ftp")=True then
if not IsObjInstalled("XingerServU.Control") Then
	Response.Write "<script>alert('您的服务器没有安装FTP功能插件,请关闭直接开通FTP功能!');location.href='javascript:history.back()'</script>"
	Response.End
end if
end if
If not conn.Execute("Select * From [host] where name='"&Request.Form("name")&"'").eof Then
response.write "<script>alert('添加失败,"&Request.Form("name")&"已经存在!');location.href='javascript:history.back()'</script>"
response.end
end if
If not conn.Execute("Select * From [host] where userdir='"&Request.Form("userdir")&"'").eof Then
response.write "<script>alert('添加失败,您所填写的空间存储路径已经被另外一种空间类型占用!\n\n请选择另外的存储路径');location.href='javascript:history.back()'</script>"
response.end
end if
sql="select * from host"
rs.open sql,conn,1,3
rs.addnew
rs("name")=Trim(Request.Form("name"))
rs("type")=Trim(Request.Form("type"))
rs("asp")=Trim(Request.Form("asp"))
rs("space")=Request.Form("space")
rs("userdir")=Request.Form("userdir")
rs("bakfolder")=Request.Form("bakfolder")
rs("userurl")=Request.Form("userurl")
rs("content")=server.htmlencode(Trim(Request("content")))
rs("img")=Trim(Request.Form("img"))
rs("price")=Trim(Request.Form("price"))
rs("point")=Trim(Request.Form("point"))
rs("usedays")=Trim(Request.Form("usedays"))
rs("ifreg")=Trim(Request.Form("ifreg"))
rs("onlymail")=Trim(Request.Form("onlymail"))
rs("iptime")=Trim(Request.Form("iptime"))
rs("active")=Trim(Request.Form("active"))
rs("dayreg")=Trim(Request.Form("dayreg"))
rs("maxreg")=Trim(Request.Form("maxreg"))
rs("ftpreg")=Trim(Request.Form("ftpreg"))
rs("ftp")=Trim(Request.Form("ftp"))
rs("html")=Trim(Request.Form("html"))
rs("domain")=Trim(Request.Form("domain"))
rs("ifupload")=Trim(Request.Form("ifupload"))
rs("uptype")=Trim(Request.Form("uptype"))
rs("filecount")=Trim(Request.Form("filecount"))
rs("filetype")=Trim(Request.Form("filetype"))
rs("uploadsize")=Trim(Request.Form("uploadsize"))
rs("badcode")=Trim(Request.Form("badcode"))
rs.update
rs.close
response.write"<script>alert('新的空间类型添加成功!');location.href='host_admin.asp'</script>"
end if 
 %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<LINK href="../css/admin.css" rel=stylesheet type=text/css>
<script language="JavaScript" src="../js/check.js"></script>
</head>
<body>
  <table width="650" border="1" align="center" cellpadding="4" cellspacing="0" class="table-line">
  <form name="form1" method="post" action="?option=save" onSubmit="return check_input()">
    <tr align="center">
      <td colspan="2" class="td-title-color"><table  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td class="shadow">增加新的空间类型</td>
        </tr>
      </table>      </td>
    </tr>
    <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> 
      <td width="100">空间名称:</td>
      <td width="435"><input name="name" type="text"> 
        * <font color="#FF0000">如:免费Ⅱ型</font></td>
    </tr>
    <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
      <td>空间类型:</td>
      <td><select name="type">
        <option selected>请选择</option>
        <option value="free">免费空间</option>
        <option value="vip">收费空间</option>
      </select>
      *</td>
    </tr>
    <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
      <td>ASP权限:</td>
      <td><input type="radio" name="asp" value="True">
打开
  <input type="radio" name="asp" value="False">
关闭 </td>
    </tr>
    <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
      <td>空间大小:</td>
      <td><input name="space" type="text">
      M* (只填写数字) </td>
    </tr>
    <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
      <td>存储路径:</td>
      <td><input name="userdir" type="text" size="30"> 
      *所在服务器的物理路径,如:E:\web\,以&quot;\&quot;结束</td>
    </tr>
    <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
      <td>备份路径:</td>
      <td><input name="bakfolder" type="text" id="bakfolder" size="30">       
         *便于在必要时恢复数据,格式同上↑</td>
    </tr>
    <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
      <td>空间域名:</td>
      <td><input name="userurl" type="text" value="http://" size="30">
      *该类型空间的域名前缀,以&quot;/&quot;结束</td>
    </tr>
    <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
      <td>UBB代码:</td>
      <td><script src=../Inc/ubbcode.js></script> 
                <!--#include file="../inc/ubb.inc" --></td>
    </tr>
    <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> 
      <td>详细介绍:</td>
      <td><textarea name="content" cols="50" rows="5" wrap="PHYSICAL"></textarea>
      *
      </td>
    </tr>
    <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
      <td>图标:</td>
      <td><input name="img" type="text" value="images/host_1.gif" size="30">
      *</td>
    </tr>
    <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> 
      <td>价格:</td>
      <td><input name="price" type="text" size="10">
      元/年 (必须为数字,免费空间填&quot;0&quot;<font color="#FF0000">)</font></td>
    </tr>
    <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
      <td>虚拟货币点数:</td>
      <td><input name="point" type="text" size="10"> 
        (用户可通过网络虚拟货币购买/升级此类型空间,必须为数字)</td>
    </tr>
    <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
      <td>提供使用天数:</td>
      <td><input name="usedays" type="text" size="10">
      天 (填&quot;0&quot;表示不限 如果是收费空间,建议填写365,表示一年) </td>
    </tr>
	          <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> 
            <td height="30">是否关闭用户注册:</td>
            <td height="23"> <input type="radio" name="ifreg" value="True">
              打开
                <input type="radio" name="ifreg" value="False">
              关闭 </td>
          </tr>
		            <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> 
            <td height="30">一个E-mail只能注册一个帐号</td>
            <td height="23"> <input type="radio" name="onlymail" value="1" >
              打开&nbsp;&nbsp; <input type="radio" name="onlymail" value="0">
              关闭 </td>
          </tr>
          <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
            <td height="30">同一IP每天只可注册一次</td>
            <td height="23"> <input type="radio" name="iptime" value="1">
              打开&nbsp;&nbsp; <input type="radio" name="iptime" value="0">
              关闭 </td>
          </tr>
          <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> 
            <td height="30">每天允许注册用户数:</td>
            <td height="23"> <input name="dayreg" type="text" size="12">
              个 (填&quot;0&quot;表示不限 ) </td>
          </tr>
          <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> 
            <td height="30">系统总允许注册用户数:</td>
            <td height="23"> <input name="maxreg" type="text" size="12">
            个 (填&quot;0&quot;表示不限 )            </td>
          </tr>
	    <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
	      <td>开通方式:</td>
	      <td><input type=radio name=active value=1>
即时开通
  <input type=radio name=active value=0>
管理员审核</td>
    </tr>
	    <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
	      <td>FTP申请权限:</td>
	      <td><input type=radio name=ftpreg value=True>
	        打开
            <input type=radio name=ftpreg value=False>
            关闭</td>
    </tr>
	    <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
      <td>是否直接开通FTP:</td>
      <td><input type=radio name=ftp value=True> 
          <input type=radio name=ftp value=False>  
           否        </td>
    </tr>
	          <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
	            <td height="23">HTML编辑器:</td>
	            <td height="23"><input type=radio name=html value=True>
打开
  <input type=radio name=html value=False>
关闭</td>
    </tr>
	          <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
	            <td height="23">二级域名权限:</td>
	            <td height="23"><input type=radio name=domain value=True>
打开
  <input type=radio name=domain value=False>
关闭 (如在虚拟主机上,请选择"关闭") </td>
    </tr>
	          <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> 
            <td height="23">用户WEB上传:</td>
            <td height="23"> <input type="radio" name="ifupload" value="True">
              打开
                <input type="radio" name="ifupload" value="False">
              关闭 </td>
          </tr>
          <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> 
            <td height="23">文件上传组件:</td>
            <td height="23"><select name="uptype">
                <option value="">请选择</option>
                <option value="0">Asp Upload</option>
                <option value="1">FSO</option>
                <option value="2">无组件上传</option>
              </select> 
            速度分别为:快、中、慢</td>
          </tr>
          <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> 
            <td height="23">每次上传文件个数:</td>
            <td height="23"><input name="filecount" type="text" id="filecount" size="12">
              个(填数字,建议在10-20之间)              </td>
          </tr>
          <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> 
            <td height="23">禁止的文件类型:<strong></strong></td>
            <td height="23"><input name="filetype" type="text" size="40">              如:<font color="#FF0000">asp|exe|bat</font>,多个用&quot;|&quot;'分隔</td>
          </tr>
          <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
            <td height="23">单个文件允许的大小:</td>
            <td height="23"><input name="uploadsize" type="text" size="10">
单位<font color="#FF0000">KB</font> (1M=1024KB,建议≤2M)</td>
          </tr>
          <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> 
            <td height="23">过滤非法字符或代码:</td>
            <td height="23"><textarea name="badcode" cols="50" rows="5"></textarea>
            多个用&quot;|&quot;'分隔</td>
    </tr>
    <tr align="center"> 
      <td colspan="2"><input type="submit" name="Submit" value="确定增加"></td>
    </tr>
	</form>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -