system.asp

网趣系统时尚版8（支付宝）

  
  <a name="inc4"></a><br>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#CCCCCC"><td height="25" colspan="2" ><b><font color="#FFFFFF">
	<span lang="zh-cn">用户信息</span>设置</font></b> <a href="#inc">▲</a></td>
</tr>
<tr bgcolor="#DEDEDE"><td width="34%"><b>自定义头衔级别 ：</b></td><td width="64%">
	<input type="text" name="info25" size="5" value="<%=Info(25)%>"> 级</td></tr>
<tr bgcolor="#DEDEDE">
<td><b>头像上传等级限制：</b></td>
<td><input type="text" name="info35" size="5" value="<%=Info(35)%>"> 级</td></tr>
<tr bgcolor="#DEDEDE">
<td><b>文件上传等级限制：</b></td>
<td><input type="text" name="info36" size="5" value="<%=Info(36)%>"> 级 *如果想禁止上传，就设置21级</td></tr>
<tr bgcolor="#DEDEDE"><td width="34%"><b>允许个人签名：</b><br>
  是否允许帖子显示用户签名</td><td width="64%"><input type="radio" name="info12" value="0" <%if Info(12)="0" then%>checked<%end if%>> 是 <input type="radio" name="info12" value="1" <%if Info(12)="1" then%>checked<%end if%>> 否</td></tr>
<tr bgcolor="#DEDEDE"><td width="34%"><b>新留言提示：</b><br>
  当用户有新留言时是否弹出提示</td><td width="64%"><input type="radio" name="info11" value="0" <%if Info(11)="0" then%>checked<%end if%>> 文字 <input type="radio" name="info11" value="1" <%if Info(11)="1" then%>checked<%end if%>> 弹出</td></tr>


<tr bgcolor="#DEDEDE"><td width="34%"><b>游客查看精华帖 ：</b><br>  
  是否允许游客浏览精华主题</td><td width="64%"><input type="radio" name="info34" value="0" <%if Info(34)="0" then%>checked<%end if%>> 是 <input type="radio" name="info34" value="1" <%if Info(34)="1" then%>checked<%end if%>> 否</td></tr>

<tr bgcolor="#DEDEDE"><td width="34%"><b>游客查看上传资源 ：</b><br>  
  是否允许游客浏览上传资源</td><td width="64%"><input type="radio" name="info55" value="1" <%if Info(55)="1" then%>checked<%end if%>> 是 <input type="radio" name="info55" value="0" <%if Info(55)="0" then%>checked<%end if%>> 否</td></tr>

<tr bgcolor="#DEDEDE"><td ><b>注册发送留言：</b><br>
  是否给新注册用户自动发送留言</td><td><input type="radio" name="info5" value="0" <%if Info(5)="0" then%>checked<%end if%>> 是 <input type="radio" name="info5" value="1" <%if Info(5)="1" then%>checked<%end if%>> 否</td></tr>
<tr bgcolor="#DEDEDE"><td><b>注册发送留言内容：</b><br>
  给新注册用户自动发送留言的内容</td><td><textarea rows="3" name="regautosms" style="WIDTH: 100%;"><%=Rs("RegAutoSms")%></textarea> </td></tr>
<tr bgcolor="#DEDEDE"><td ><b>注册时限：</b><br>  
  同一用户来源2次注册的间隔时间<br>如果不想使用这项功能, 请设置为0 <br></td><td><input type="text" name="info28" size="5" value="<%=Info(28)%>" ONKEYPRESS='event.returnValue=(event.keyCode >= 48) && (event.keyCode <= 57);'> 分钟</td></tr>
<tr bgcolor="#DEDEDE"><td><b>登陆时限：</b><br>
  同一用户来源2次登陆的间隔时间<br>如果不想使用这项功能, 请设置为0 </td><td><input type="text" name="info29" size="5" value="<%=Info(29)%>"> 分钟</td></tr>
<tr bgcolor="#DEDEDE"><td ><b>发贴时限：</b><br>
  同一个用户发帖的间隔时间<br>如果不想使用这项功能, 请设置为0</td><td><input type="text" name="info30" size="5" value="<%=Info(30)%>"> 秒</td></tr>
<tr bgcolor="#DEDEDE"><td><b>编辑帖子时限：</b><br>
  普通用户可以编辑帖子的有效时间<br>如果不想使用这项功能, 请设置为0</td><td><input type="text" name="info31" size="5" value="<%=Info(31)%>"> 分钟 </td></tr>
</table>


<a name="inc5"></a><br>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#CCCCCC"><td height="25" colspan="2" ><b><font color="#FFFFFF">论坛系统设置</font></b> <a href="#inc">▲</a></td>
</tr>
<tr bgcolor="#DEDEDE"><td width="35%"><b>版主继承：</b><br> 
  设定上级版主可以管理下级子论坛</td><td><input type="radio" name="info1" value="0" <%if Info(1)="0" then%>checked<%end if%>> 是 <input type="radio" name="info1" value="1" <%if Info(1)="1" then%>checked<%end if%>> 否</td></tr>
<tr bgcolor="#DEDEDE"><td ><b>禁止注册的用户名：</b><br>
  用于过滤用户名和头衔称号<br> 每个字符请用“@@”隔开</td><td><input type="text" style="WIDTH: 98%;" name="badname" value="<%=Rs("BadName")%>"></td></tr>
<tr bgcolor="#DEDEDE"><td><b>帖子过滤脏字：</b><br>
  帖子字符过滤后用被“*”代替<br>每个字符请用“@@”隔开</td><td><input type="text" style="WIDTH: 98%;" name="badessay" value="<%=Rs("BadEssay")%>"></td></tr>

<tr bgcolor="#DEDEDE">
  <td ><b>登录验证码：</b><br>
  是否在用户登录验时输入验证码<br>防止机器登陆</td><td><input type="radio" name="info6" value="0" <%if Info(6)="0" then%>checked<%end if%>> 是 <input type="radio" name="info6" value="1" <%if Info(6)="1" then%>checked<%end if%>> 否</td></tr>
<tr bgcolor="#DEDEDE"><td><b>在线超时：</b><br>
  设定论坛在线人数统计超时</td><td><input type="text" name="info27" size="5" value="<%=Info(27)%>"> 分钟 </td></tr>
<tr bgcolor="#DEDEDE"><td><b>论坛分页显示条数：</b><br> 
  设定每页显示最大记录</td><td><input type="text" name="info26" size="5" value="<%=Info(26)%>"> 条</td></tr>
<tr bgcolor="#DEDEDE"><td><b>识别网址：</b><br>
  自动识别帖子上的网址</td><td><input type="radio" name="info9" value="0" <%if Info(9)="0" then%>checked<%end if%>> 是 <input type="radio" name="info9" value="1" <%if Info(9)="1" then%>checked<%end if%>> 否</td></tr>
<tr bgcolor="#DEDEDE"><td><b>成为热帖的最低人气值：</b><br>
  热门话题标准为主题回复数</td><td><input type="text" name="info24" size="5" value="<%=Info(24)%>"> 条</td></tr>
<tr bgcolor="#DEDEDE"><td><b>论坛头像个数：</b><br>
  设定论坛自带头像的数目</td><td><input type="text" name="info14" size="5" value="<%=Info(14)%>"> 个</td></tr>
<tr bgcolor="#DEDEDE"><td><b>头像最大寸尺：</b><br>
  头像的最大高度和宽度</td><td><input type="text" name="info15" size="5" value="<%=Info(15)%>"> 像素</td></tr>
<tr bgcolor="#DEDEDE"><td><b>头像默认宽度：</b><br>
  头像的默认寸尺宽度</td><td><input type="text" name="info16" size="5" value="<%=Info(16)%>"> 像素</td></tr>
<tr bgcolor="#DEDEDE"><td><b>头像默认高度：</b><br>
  头像的默认寸尺高度</td><td><input type="text" name="info17" size="5" value="<%=Info(17)%>"> 像素 </tr>

<tr bgcolor="#DEDEDE"><td ><b>投票限制条数 ：</b><br>  
  设定用户发投票主题的最大数目</td><td><input type="text" name="info23" size="6" value="<%=Info(23)%>"> 条</td></tr>
<tr bgcolor="#DEDEDE"><td><b>是否开启帖图标签 ：</b><br>
  帖子显示图片</td><td><input type="radio" name="info22" value="0" <%if Info(22)="0" then%>checked<%end if%>> 是 <input type="radio" name="info22" value="1" <%if Info(22)="1" then%>checked<%end if%>> 否</td></tr>
<tr bgcolor="#DEDEDE"><td ><b>是否其它站图片 ：</b><br>
  允许从其他站点链接如Http://...<br></td><td><input type="radio" name="info21" value="0" <%if Info(21)="0" then%>checked<%end if%>> 是 <input type="radio" name="info21" value="1" <%if Info(21)="1" then%>checked<%end if%>> 否</td></tr>
<tr bgcolor="#DEDEDE"><td><b>是否开启Flash标签 ：</b><br> 
  帖子显示Flash动画</td><td><input type="radio" name="info20" value="0" <%if Info(20)="0" then%>checked<%end if%>> 是 <input type="radio" name="info20" value="1" <%if Info(20)="1" then%>checked<%end if%>> 否</td></tr>
<tr bgcolor="#CCCCCC"><td colspan="2"  align="center"><input type="submit" value="确定修改">&nbsp;&nbsp;<input type="reset" value="重 置">&nbsp;<a href="#inc">▲</a></td></tr></table>
</form>
<%
Rs.Close 
End Sub

Sub ConfigSave
	Dim BBSName,BBSUrl,BBSClose,CloseInfo,Srule,CopyRight,I,Temp,UploadType,BuildDate,BadName,BadEssay,RegAutoSms
	Temp=""
	For i=0 to 55
		IF i=0 or i=1 Then
			IF YxBBs.Fun.GetStr("info"&i)="" Then
				Call GoBack("","")
				Exit Sub
			End if
			If Not YxBBs.Fun.isInteger(YxBBs.Fun.GetStr("info"&i)) then
				Call GoBack("","一些参数必须填为正整数，否则论坛不能正常运行。")
				Exit Sub
			End if
		End if
		Temp=Temp&YxBBs.Fun.GetStr("info"&i)&"|"
	Next
	BBSName=YxBBs.Fun.GetStr("BBSName")
	BBSUrl=YxBBs.Fun.GetStr("BBSUrl")
	BBSClose=YxBBs.Fun.GetStr("BBSClose")
	CloseInfo=YxBBs.Fun.GetStr("CloseInfo")
	CopyRight=YxBBs.Fun.GetStr("CopyRight")
	BuildDate=YxBBs.Fun.GetStr("builddate")
	UploadType=YxBBs.Fun.GetStr("uploadtype")
	BadName=YxBBs.Fun.GetStr("badname")
	BadEssay=YxBBs.Fun.GetStr("badessay")
	RegAutoSms=YxBBs.Fun.GetStr("regautosms")
    Srule=YxBBs.Fun.GetStr("Srule")
    YxBBs.execute("update [YX_Config] set BBSName='"&BBSName&"',BBSUrl='"&BBSUrl&"',BBSClose="&BBSClose&",CloseInfo='"&CloseInfo&"',CopyRight='"&CopyRight&"',Info='"&Temp&"',UpLoadtype='"&UploadType&"',BuildDate='"&BuildDate&"',BadName='"&BadName&"',BadEssay='"&BadEssay&"',RegAutoSms='"&RegAutoSms&"',Srule='"&Srule&"'")
	Call Suc("修改成功","论坛名称以及其他参数修改成功","System.Asp")
	Cache.Name="Config"
	Cache.Clean()
End Sub
%>