📄 admincp.asp

📁 一个asp写的论坛源代码,论坛所需要的功能都有
💻 ASP
📖 第 1 页 / 共 5 页
字号:
12 3 4 5 下一页
<!--#include file="../Conn.asp"-->
<!--#include file="Const.asp"-->
<SCRIPT src="../js/Command.js"></SCRIPT>
<script>
function admin_Size(num,objname)
{
    var obj=document.getElementById(objname)
    if (parseInt(obj.rows)+num>=3) {
        obj.rows = parseInt(obj.rows) + num;    
    }
    if (num>0)
    {
        obj.width="90%";
    }
}
</script>
<%
Dim ID
Call Master_Us()
Header()
Dim Admin_Class
Admin_Class=",1,"
Call Master_Se()
Select Case Request("action")
	Case "Settingok"
		Call Settingok
	Case "upreg"
		team.Execute("Update ["&isforum&"Clubconfig] Set AgreeMent='"&team.checkStr(Request.Form("myinfos"))&"'")
		Cache.DelCache("Club_Class")
		SuccessMsg("注册协议编辑成功!")
	Case Else
		Call Main()
End Select


Sub Main()
	Dim InstalledObjects(10)
	'水印
	InstalledObjects(0) = "CreatePreviewImage.cGvbox"	'CreatePreviewImage
	InstalledObjects(1) = "Persits.Jpeg"				'AspJpeg
	InstalledObjects(2) = "SoftArtisans.ImageGen"		'SoftArtisans ImgWriter V1.21
	InstalledObjects(3) = "sjCatSoft.Thumbnail"			'sjCatSoft.Thumbnail V2.6
	'上传
	InstalledObjects(4) = "Adodb.Stream"				'Adodb.Stream
	InstalledObjects(5) = "Persits.Upload"				'Aspupload3.0
	InstalledObjects(6) = "SoftArtisans.FileUp"			'SA-FileUp 4.0
	InstalledObjects(7) = "Scripting.FileSystemObject"	'FSO
	'邮件
	InstalledObjects(8) = "JMail.Message"
	InstalledObjects(9) = "CDONTS.NewMail"
%>
<form method="Post" action="?action=Settingok">
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="10" topmargin="10">
<table cellspacing="1" cellpadding="4" width="90%" align="center" class="a2" >
<tr class="a1"><td>技巧提示</td></tr>
<tr class="a3"><td>
<br><ul><li>选项以加下划线的斜体字显示时，说明此选项和系统效率、负载能力与资源消耗有关(提高效率、或降低效率)，建议依据自身服务器情况进行调整。
</ul></td></tr></table>
<br>

<a name="基本设置"></a>
<table cellspacing="1" cellpadding="4" width="90%" align="center" class="a2">
<tr class="a1">
<td colspan="2">基本设置</td>
</tr>
<tr>
	<td width="60%"  bgcolor="#F8F8F8"><b>论坛名称:</b><br><span class="a3">论坛名称，将显示在导航条和标题中</span></td>
	<td bgcolor="#FFFFFF"><input type="text" size="30" name="Club_Class(1)" value="<%=team.Club_Class(1)%>"></td>
</tr>
<tr><% team.Club_Class(2) = "" %>
	<td width="60%"  bgcolor="#F8F8F8"><b>论坛URL:</b><br></td>
	<td bgcolor="#FFFFFF"><input type="text" size="30" name="Club_Class(2)" value="<%
	If team.Club_Class(2)="" Then 
		Response.Write "http://"&Request.ServerVariables("server_name")&""&replace(Request.ServerVariables("script_name"),ManagePath&"Admincp.asp","")&"" 
	Else 
		Response.Write team.Club_Class(2)
	End If 
	%>"></td>
</tr>
<tr>
	<td width="60%" bgcolor="#F8F8F8"><b>网站名称:</b><br><span class="a3">网站名称，将显示在页面底部的联系方式处</span></td><td bgcolor="#FFFFFF"><input type="text" size="30" name="Club_Class(3)" value="<%=team.Club_Class(3)%>"></td>
</tr>
<tr>
	<td width="60%" bgcolor="#F8F8F8" ><b>建站日期:</b><br><span class="a3">网站开始运行的日期，可调用参数。</span></td>
	<td bgcolor="#FFFFFF"><input type="text" size="30" name="Club_Class(29)" value="<%=team.Club_Class(29)%>"></td>
</tr>
<tr>
	<td width="60%" bgcolor="#F8F8F8" ><b>网站 URL:</b><br><span class="a3">网站 URL，将作为链接显示在页面底部</span></td>
	<td bgcolor="#FFFFFF"><input type="text" size="30" name="Club_Class(4)" value="<%=team.Club_Class(4)%>"></td>
</tr>
<tr>
	<td width="60%" bgcolor="#F8F8F8" ><b>网站备案:</b><br><span class="a3">网站备案的号码，显示在页尾右下脚</span></td>
	<td bgcolor="#FFFFFF"><input type="text" size="30" name="Forum_setting(59)" value="<%=team.Forum_setting(59)%>"></td>
</tr>
<tr>
	<td width="60%" bgcolor="#F8F8F8" ><b>论坛关闭:</b><br><span class="a3">暂时将论坛关闭，其他人无法访问，但不影响管理员访问</span></td>
	<td bgcolor="#FFFFFF"><input type="radio" name="Forum_setting(2)" value="1" <%If team.Forum_setting(2)=1 Then%>checked<%End If%>> 是 &nbsp; &nbsp; <input type="radio" name="Forum_setting(2)" value="0" <%If team.Forum_setting(2)=0 Then%>checked<%End If%>> 否</td>
</tr>
<tr>
	<td width="60%" bgcolor="#F8F8F8" valign="top"><b>论坛关闭的原因:</b><br><span class="a3">论坛关闭时出现的提示信息</span></td>
	<td bgcolor="#FFFFFF"><textarea rows="5" name="Forum_setting(3)" cols="30"><%=team.Forum_setting(3)%></textarea></td>
</tr></table>
<br><center><input type="submit" name="settingsubmit" value="提 交"></center><br>

<br><a name="注册与访问控制"></a>
<table cellspacing="1" cellpadding="4" width="90%" align="center" class="a2">
<tr class="a1"><td colspan="2">注册与访问控制</td></tr>
<tr>
	<td width="60%" bgcolor="#F8F8F8" ><b>允许新用户注册:</b><br><span class="a3">选择“否”将禁止游客注册成为会员，但不影响过去已注册的会员的使用</span></td><td bgcolor="#FFFFFF"><input type="radio" name="Forum_setting(4)" value="1" <%If team.Forum_setting(4)=1 Then%>checked<%End If%>> 是 &nbsp; &nbsp; 
	<input type="radio" name="Forum_setting(4)" value="0" <%If team.Forum_setting(4)=0 Then%>checked<%End If%>> 否</td>
</tr>
<tr>
	<td width="60%" bgcolor="#F8F8F8" valign="top"><b>禁止新用户注册说明:</b><br><span class="a3">当论坛禁止游客注册成为会员时,所给出的提示文字!</span></td><td bgcolor="#FFFFFF"><textarea rows="5" name="Forum_setting(5)" cols="30"><%=team.Forum_setting(5)%></textarea></td>
</tr>
<tr>
	<td width="60%" bgcolor="#F8F8F8" ><b>允许同一 Email 注册不同用户:</b><br><span class="a3">选择“否”将只允许一个 Email 地址只能注册一个用户名</span></td><td bgcolor="#FFFFFF">
	<input type="radio" name="Forum_setting(6)" value="1" <%If team.Forum_setting(6)=1 Then%>checked<%End If%>> 是 &nbsp; &nbsp; 
	<input type="radio" name="Forum_setting(6)" value="0" <%If team.Forum_setting(6)=0 Then%>checked<%End If%>> 否
	</td>
</tr>
<tr>
	<td width="60%" bgcolor="#F8F8F8" ><b>Email组件支持:</b><br><span class="a3">请选择正确的邮件发送组件, 只有组件支持的情况下,才可以向用户发送Email验证. 否则请勿开启Email验证功能!</span><br>
	<%If IsObjInstalled(InstalledObjects(8)) Then%>□JMail.Message √<br><%End If%>
	<%If IsObjInstalled(InstalledObjects(9)) Then%>□ CDONTS.NewMail √<br><%End If%>
	<%If (Not IsObjInstalled(InstalledObjects(9)) or Not IsObjInstalled(InstalledObjects(8))) Then%><font color=red>注意: 您的服务器不支持发送邮件功能!</font><%End If%>
	</td>
	<td bgcolor="#FFFFFF">
	<input type="radio" name="Forum_setting(1)" value="0" <%If team.Forum_setting(1)=0 Then%>checked<%End If%>> 无 <br>
	<input type="radio" name="Forum_setting(1)" value="1" <%If team.Forum_setting(1)=1 Then%>checked<%End If%>> JMail.Message	<br>
	<input type="radio" name="Forum_setting(1)" value="2" <%If team.Forum_setting(1)=2 Then%>checked<%End If%>> CDONTS.NewMail	<br></td>
</tr>
<tr>
	<td width="60%" bgcolor="#F8F8F8" ><b>SMTP Server地址:</b><br><span class="a3">邮件服务器的地址</span></td><td bgcolor="#FFFFFF"><input type="text" size="30" name="Forum_setting(58)" value="<%=team.Forum_setting(58)%>"></td>
</tr>
<tr>
	<td width="60%" bgcolor="#F8F8F8" ><b>邮件服务器登录名:</b><br><span class="a3">登录邮件服务器的用户名</span></td><td bgcolor="#FFFFFF"><input type="text" size="30" name="Forum_setting(41)" value="<%=team.Forum_setting(41)%>"></td>
</tr>
<tr>
	<td width="60%" bgcolor="#F8F8F8" ><b>邮件服务器登录密码:</b><br><span class="a3">登录邮件服务器的密码</span></td><td bgcolor="#FFFFFF"><input type="password" size="30" name="Forum_setting(55)" value="<%=team.Forum_setting(55)%>"></td>
</tr>
<tr>
	<td width="60%" bgcolor="#F8F8F8" ><b>邮件发送人地址:</b><br><span class="a3">显示在邮件的发送人地址</span></td><td bgcolor="#FFFFFF"><input type="text" size="30" name="Forum_setting(57)" value="<%=team.Forum_setting(57)%>"></td>
</tr>
<tr>
	<td width="60%" bgcolor="#F8F8F8" ><b>新用户注册验证:</b><br><span class="a3">选择“无”用户可直接注册成功；选择“Email 验证”将向用户注册 Email 发送一封验证邮件以确认邮箱的有效性；选择“人工审核”将由管理员人工逐个确定是否允许新用户注册</span></td><td bgcolor="#FFFFFF">
	<input type="radio" name="Forum_setting(7)" value="0" <%If team.Forum_setting(7)=0 Then%>checked<%End If%>> 无 <br>
	<input type="radio" name="Forum_setting(7)" value="1" <%If team.Forum_setting(7)=1 Then%>checked<%End If%>> Email 验证	<br>
	<input type="radio" name="Forum_setting(7)" value="2" <%If team.Forum_setting(7)=2 Then%>checked<%End If%>> 人工审核	<br></td>
</tr>
<tr>
	<td width="60%" bgcolor="#F8F8F8" valign="top"><b>Email 禁止地址:</b><br><span class="a3">由于一些大型邮件服务提供商会过滤论坛程序发送的有效邮件，您可以要求新用户不得以某些域名结尾的邮箱注册，每行一个域名，例如 @hotmail.com</span></td><td bgcolor="#FFFFFF"><textarea rows="5" name="Club_Class(23)" cols="30"><%=team.Club_Class(23)%></textarea>
	</td>
</tr>
<tr>
	<td width="60%" bgcolor="#F8F8F8" ><b>IP 注册间隔限制(秒):</b><br><span class="a3">同一 IP 在本时间间隔内将只能注册一个帐号，限制对自修改后的新注册用户生效，0 为不限制</span></td><td bgcolor="#FFFFFF"><input type="text" size="30" name="Forum_setting(10)" value="<%=team.Forum_setting(10)%>"></td>
</tr>
<tr>
	<td width="60%" bgcolor="#F8F8F8" ><b>登陆用户尝试次数限制:</b><br><span class="a3">当用户登陆忘记密码时候， 可以尝试密码的次数限制，建议设置为默认值 5 或在不超过 10 范围内取值，0 为不限制</span></td><td bgcolor="#FFFFFF"><input type="text" size="30" name="Forum_setting(54)" value="<%=team.Forum_setting(54)%>"></td>
</tr>
<tr>
	<td width="60%" bgcolor="#F8F8F8" valign="top"><b>用户信息保留关键字:</b><br><span class="a3">用户在其用户信息(如用户名、昵称、自定义头衔等)中无法使用这些关键字。每个关键字一行，可使用通配符 "*" 如 "*版主*"(不含引号)</span></td><td bgcolor="#FFFFFF"><textarea rows="5" name="Club_Class(25)" cols="30"><%=team.Club_Class(25)%></textarea></td>
</tr>
<tr>
	<td width="60%" bgcolor="#F8F8F8" ><b>新手见习期限(分钟):</b><br><span class="a3">新注册用户在本期限内将无法发帖，不影响斑竹和管理员，0 为不限制</span></td><td bgcolor="#FFFFFF"><input type="text" size="30" name="Forum_setting(14)" value="<%=team.Forum_setting(14)%>"></td>
</tr>
<tr>
	<td width="60%" bgcolor="#F8F8F8" ><b>发送欢迎短消息:</b><br><span class="a3">选择“是”将自动向新注册用户发送一条欢迎短消息</span></td><td bgcolor="#FFFFFF">
	<input type="radio" name="Forum_setting(15)" value="1" <%If team.Forum_setting(15)=1 Then%>checked<%End If%>> 是 &nbsp; &nbsp; 
	<input type="radio" name="Forum_setting(15)" value="0" <%If team.Forum_setting(15)=0 Then%>checked<%End If%>> 否
	</td>
</tr>
12 3 4 5 下一页
⌨️ 快捷键说明

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