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

📄 admin_setup.asp

📁 感谢您使用BBSXP
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
	<tr>
		<td width="45%" class="a3"><b>过滤HTML标签内的事件（请用“|”隔开）</b><br>
		例如：javascript:|Document.|onerror|onload|onmouseover</td>
		<td class="a4">
		<input size="40" value="<%=SiteSettings("BannedHtmlEvent")%>" name="BannedHtmlEvent"></td>
	</tr>
	<tr>
		<td width="45%" class="a3"><b>过滤敏感词（请用“|”隔开）</b><br>
		例如：fuck|shit|你妈</td>
		<td class="a4">
		<input size="40" value="<%=SiteSettings("BannedText")%>" name="BannedText"></td>
	</tr>
	<tr>
		<td width="45%" class="a3"><b>过滤用户帖子（请用“|”隔开）</b><br>
		例如：yuzi|裕裕</td>
		<td class="a4">
		<input size="40" value="<%=SiteSettings("BannedUserPost")%>" name="BannedUserPost"></td>
	</tr>
	<tr>
		<td width="45%" class="a3"><b>禁止注册的用户名（请用“|”隔开）</b><br>
		例如：yuzi|裕裕</td>
		<td class="a4">
		<input size="40" value="<%=SiteSettings("BannedRegUserName")%>" name="BannedRegUserName"></td>
	</tr>
	<tr>
		<td width="45%" class="a3"><b>禁止IP地址进入论坛（请用“|”隔开）</b><br>
		例如：127.0.0.1|192.168.0.1</td>
		<td class="a4">
		<input size="40" value="<%=SiteSettings("BannedIP")%>" name="BannedIP"></td>
	</tr>
</table>
<br>
<a name="用户选项"></a>
<table cellspacing="1" cellpadding="5" width="100%" border="0" class="a2" align="center" id="table8">
	<tr height="25" id="TableTitleLink">
		<td class="a1" colspan="2"><b>用户选项 [<a href="#TOP">TOP</a>]</b></td>
	</tr>
	<tr>
		<td width="45%" class="a3"><b>关闭用户注册</b></td>
		<td class="a4">
		<input type="radio" name="CloseRegUser" value="1" <%if sitesettings("closereguser")=1 then%>checked<%end if%>>是 
		<input type="radio" name="CloseRegUser" value="0" <%if sitesettings("closereguser")=0 then%>checked<%end if%>>否 
		</td>
	</tr>
	<tr>
		<td width="45%" class="a3"><b>注册后自动激活用户<br>
		</b>如果选择“否”则注册后需要管理员手动审核才能登录</td>
		<td class="a4">
		<input type="radio" name="EnableUser" value="1" <%if sitesettings("enableuser")=1 then%>checked<%end if%>>是 
		<input type="radio" name="EnableUser" value="0" <%if sitesettings("enableuser")=0 then%>checked<%end if%>>否 
		</td>
	</tr>
	<tr>
		<td width="45%" class="a3"><b>一个Email只能注册一个帐号</b></td>
		<td class="a4">
		<input type="radio" name="OnlyMailReg" value="1" <%if sitesettings("onlymailreg")=1 then%>checked<%end if%>>是 
		<input type="radio" name="OnlyMailReg" value="0" <%if sitesettings("onlymailreg")=0 then%>checked<%end if%>>否 
		</td>
	</tr>
	<tr>
		<td width="45%" class="a3"><b>注册用户密码通过Email发送</b><br>
		服务器必须支持邮件发送功能才能选择此项</td>
		<td class="a4">
		<input type="radio" name="RegSendPassword" value="1" <%if sitesettings("regsendpassword")=1 then%>checked<%end if%>>是 
		<input type="radio" name="RegSendPassword" value="0" <%if sitesettings("regsendpassword")=0 then%>checked<%end if%>>否 
		</td>
	</tr>
</table>
<br>
<a name="论坛选项"></a>
<table cellspacing="1" cellpadding="5" width="100%" border="0" class="a2" align="center" id="table9">
	<tr height="25" id="TableTitleLink">
		<td class="a1" colspan="2"><b>论坛选项 [<a href="#TOP">TOP</a>]</b></td>
	</tr>
	<tr>
		<td width="45%" class="a3"><b>开放申请论坛功能</b></td>
		<td class="a4">
		<input type="radio" name="ForumApply" value="1" <%if sitesettings("forumapply")=1 then%>checked<%end if%>>是 
		<input type="radio" name="ForumApply" value="0" <%if sitesettings("forumapply")=0 then%>checked<%end if%>>否 
		</td>
	</tr>
	<tr>
		<td width="45%" class="a3"><b>类别论坛与下属论坛拥有同样功能</b><br>
		如：发帖、浏览</td>
		<td class="a4">
		<input type="radio" name="SortShowForum" value="1" <%if sitesettings("sortshowforum")=1 then%>checked<%end if%>>是 
		<input type="radio" name="SortShowForum" value="0" <%if sitesettings("sortshowforum")=0 then%>checked<%end if%>>否 
		</td>
	</tr>
</table>
<br>
<a name="金币和经验设置"></a>
<table cellspacing="1" cellpadding="5" width="100%" border="0" class="a2" align="center" id="table9">
	<tr height="25" id="TableTitleLink">
		<td class="a1" colspan="2"><b>金币和经验设置 [<a href="#TOP">TOP</a>]</b></td>
	</tr>
	<tr>
		<td width="45%" class="a3"><b>发主题帖</b><br>
		用户每发一个主题帖所得金币和经验</td>
		<td class="a4">
		<input size="20" value="<%=SiteSettings("IntegralAddThread")%>" name="IntegralAddThread"></td>
	</tr>
	<tr>
		<td width="45%" class="a3"><b>回帖</b><br>
		用户每回一个帖子所得金币和经验</td>
		<td class="a4">
		<input size="20" value="<%=SiteSettings("IntegralAddPost")%>" name="IntegralAddPost"></td>
	</tr>
	<tr>
		<td width="45%" class="a3"><b>加精华</b><br>
		斑竹将某帖子加为精华后，帖子的发帖人所得金币和经验 </td>
		<td class="a4">
		<input size="20" value="<%=SiteSettings("IntegralAddValuedPost")%>" name="IntegralAddValuedPost"></td>
	</tr>
	<tr>
		<td width="45%" class="a3"><b>主题帖被删除</b><br>
		斑竹删除某主题帖后，帖子的发帖人所得金币和经验 </td>
		<td class="a4">
		<input size="20" value="<%=SiteSettings("IntegralDeleteThread")%>" name="IntegralDeleteThread"></td>
	</tr>
	<tr>
		<td width="45%" class="a3"><b>回帖被删除</b><br>
		斑竹删除某回帖后，帖子的发帖人所得金币和经验</td>
		<td class="a4">
		<input size="20" value="<%=SiteSettings("IntegralDeletePost")%>" name="IntegralDeletePost"></td>
	</tr>
	<tr>
		<td width="45%" class="a3"><b>精华被取消</b><br>
		斑竹取消某精华后，帖子的发帖人所得金币和经验</td>
		<td class="a4">
		<input size="20" value="<%=SiteSettings("IntegralDeleteValuedPost")%>" name="IntegralDeleteValuedPost"></td>
	</tr>
</table>
<table border="0" width="100%" align="center">
	<tr>
		<td align="right"><input type="submit" value=" 保 存 ">
		<input type="reset" value=" 重 置 "></form></td>
	</tr>
</table>
<%
end sub


sub variableok

if Request("SiteName")="" then error2("请输入社区名称")
if Request("DefaultSiteStyle")="" then error2("默认风格不能没有设置")
if Request("RegSendPassword")="1" and Request("SelectMailMode")="" then error2("您选择了注册用户密码通过Email发送，但是您没有设定发送邮件组件")
filtrate=split(Request("BannedIP"),"|")
for i = 0 to ubound(filtrate)
if instr("|"&Request.ServerVariables("REMOTE_ADDR")&"","|"&filtrate(i)&"") > 0 then error2("请检查您输入的IP地址是否正确")
next

on error resume next
if Request("SelectMailMode")<>"" then
Set test=Server.CreateObject(Request("SelectMailMode"))
If -2147221005 = Err Then error2("本服务器不支持 "&Request("SelectMailMode")&" 组件！请关闭发送邮件功能！")
end if
On Error GoTo 0

on error resume next
if Request("UpFileOption")<>"" then
Set test=Server.CreateObject(Request("UpFileOption"))
If -2147221005 = Err Then error2("本服务器不支持 "&Request("UpFileOption")&" 组件！请关闭上传文件功能！")
end if
On Error GoTo 0


Rs.Open "[BBSXP_SiteSettings]",Conn,1,3
Rs("SiteName")=Request("SiteName")
Rs("SiteURL")=Request("SiteURL")
Rs("MetaDescription")=Request("MetaDescription")
Rs("MetaKeywords")=Request("MetaKeywords")
Rs("ThreadsPerPage")=Request("ThreadsPerPage")
Rs("PostsPerPage")=Request("PostsPerPage")
Rs("Timeout")=Request("Timeout")
Rs("UserOnlineTime")=Request("UserOnlineTime")
Rs("DefaultSiteStyle")=Request("DefaultSiteStyle")
Rs("CompanyName")=Request("CompanyName")
Rs("CompanyURL")=Request("CompanyURL")
Rs("DisplayWhoIsOnline")=Request("DisplayWhoIsOnline")
Rs("DisplayLink")=Request("DisplayLink")
Rs("DisplayForumFloor")=Request("DisplayForumFloor")
Rs("DuplicatePostIntervalInMinutes")=Request("DuplicatePostIntervalInMinutes")
Rs("RegUserTimePost")=Request("RegUserTimePost")
Rs("PopularPostThresholdPosts")=Request("PopularPostThresholdPosts")
Rs("PopularPostThresholdViews")=Request("PopularPostThresholdViews")
Rs("EnableCensorship")=Request("EnableCensorship")
Rs("UpFileOption")=Request("UpFileOption")
Rs("UpFileTypes")=Request("UpFileTypes")
Rs("MaxFileSize")=Request("MaxFileSize")
Rs("MaxFaceSize")=Request("MaxFaceSize")
Rs("MaxPhotoSize")=Request("MaxPhotoSize")
Rs("MinVoteOptions")=Request("MinVoteOptions")
Rs("MaxVoteOptions")=Request("MaxVoteOptions")
Rs("SelectMailMode")=Request("SelectMailMode")
Rs("SmtpServer")=Request("SmtpServer")
Rs("SmtpServerUserName")=Request("SmtpServerUserName")
Rs("SmtpServerPassword")=Request("SmtpServerPassword")
Rs("SmtpServerMail")=Request("SmtpServerMail")
Rs("BannedHtmlLabel")=Request("BannedHtmlLabel")
Rs("BannedHtmlEvent")=Request("BannedHtmlEvent")
Rs("BannedText")=Request("BannedText")
Rs("BannedUserPost")=Request("BannedUserPost")
Rs("BannedRegUserName")=Request("BannedRegUserName")
Rs("BannedIP")=Request("BannedIP")
Rs("ForumApply")=Request("ForumApply")
Rs("SortShowForum")=Request("SortShowForum")
Rs("OnlyMailReg")=Request("OnlyMailReg")
Rs("RegSendPassword")=Request("RegSendPassword")
Rs("EnableUser")=Request("EnableUser")
Rs("CloseRegUser")=Request("CloseRegUser")
Rs("IntegralAddThread")=Request("IntegralAddThread")
Rs("IntegralAddPost")=Request("IntegralAddPost")
Rs("IntegralAddValuedPost")=Request("IntegralAddValuedPost")
Rs("IntegralDeleteThread")=Request("IntegralDeleteThread")
Rs("IntegralDeletePost")=Request("IntegralDeletePost")
Rs("IntegralDeleteValuedPost")=Request("IntegralDeleteValuedPost")
Rs.update
Rs.close
%>
更新成功<br><br><a href=javascript:history.back()>返 回</a>
<%
end sub
sub Showbanner
%><form method="POST" action="?menu=bannerok">
	<table cellspacing="1" cellpadding="2" width="100%" border="0" class="a2" align="center">
		<tr height="25">
			<td class="a1" align="middle" colspan="2"><b>广告代码设置</b></td>
		</tr>
		<tr>
			<td class="a3" align="middle" width="20%">顶部广告代码<br>
			<font color="#FF0000">支持HTML</font> </td>
			<td class="a3">
			<textarea name="TopBanner" rows="6" style="width:100%"><%=SiteSettings("TopBanner")%></textarea></td>
		</tr>
		<tr>
			<td class="a3" align="middle" width="20%">底部版权信息<br>
			<font color="#FF0000">支持HTML</font> </td>
			<td class="a3">
			<textarea name="BottomAD" rows="6" style="width:100%"><%=SiteSettings("BottomAD")%></textarea></td>
		</tr>
	</table>
	<input type="submit" value=" 保 存 ">		<input type="reset" value=" 重 置 ">
</form>
<%
end sub


sub agreement
%><form method="POST" action="?menu=agreementok">
<table cellspacing="1" cellpadding="2" width="100%" border="0" class="a2" align="center">
  <tr height=25>
    <td class=a1 align=middle><b>注册用户协议设置</b></td>
  </tr>
    <tr>
    <td class=a3 align=middle>
<textarea name="RegUserAgreement" rows="18" style="width:100%"><%=SiteSettings("RegUserAgreement")%></textarea></td>
  </tr>
        
  </table>
<input type="submit" value=" 保 存 ">		<input type="reset" value=" 重 置 ">
</form>
<%
end sub
sub SiteStat
%><form method="POST" action="?menu=SiteStatok">
<table cellspacing="1" cellpadding="2" width="100%" border="0" class="a2" align="center">
  <tr height=25>
    <td class=a1 align=middle colspan="2"><b>社区统计信息</b></td>
  </tr>
	<tr>
		<td width="45%" class="a3"><b>统计注册用户</b></td>
		<td class="a4">
		<input size="20" value="<%=SiteSettings("TotalUser")%>" name="TotalUser"></td>
	</tr>
	<tr>
		<td width="45%" class="a3"><b>统计主题数</b></td>
		<td class="a4">
		<input size="20" value="<%=SiteSettings("TotalThread")%>" name="TotalThread"></td>
	</tr>
        
	<tr>
		<td width="45%" class="a3"><b>统计帖子数</b></td>
		<td class="a4">
		<input size="20" value="<%=SiteSettings("TotalPost")%>" name="TotalPost"></td>
	</tr>

	<tr>
		<td width="45%" class="a3"><b>今日总发帖数</b></td>
		<td class="a4">
		<input size="20" value="<%=SiteSettings("TodayPost")%>" name="TodayPost"></td>
	</tr>
        
	<tr>
		<td width="45%" class="a3"><b>昨日总发帖数</b></td>
		<td class="a4">
		<input size="20" value="<%=SiteSettings("OldDayPost")%>" name="OldDayPost"></td>
	</tr>
	<tr>
		<td width="45%" class="a3"><b>最高在线人数</b></td>
		<td class="a4">
		<input size="20" value="<%=SiteSettings("BestOnline")%>" name="BestOnline"></td>
	</tr>
        
	<tr>
		<td width="45%" class="a3"><b>最高在线人数发生时间</b></td>
		<td class="a4">
		<input size="20" value="<%=SiteSettings("BestOnlineTime")%>" name="BestOnlineTime"></td>
	</tr>
  </table>
<input type="submit" value=" 保 存 ">		<input type="reset" value=" 重 置 ">		
<input type="button" value=" 更新统计 " onclick="document.location.href='?menu=AutoSiteStat'">
</form>
<%
end sub

htmlend

%>
12

⌨️ 快捷键说明

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