admin_boardsetting.asp

功能强大的一个b/s工作站

<option value="1"<%if cint(Board_Setting(38))=0 then%> selected<%end if%>>最后回复时间</option>
<option value="2"<%if cint(Board_Setting(38))=1 then%> selected<%end if%>>发贴时间</option>
<option value="3"<%if cint(Board_Setting(38))=2 then%> selected<%end if%>>标题</option>
<option value="4"<%if cint(Board_Setting(38))=3 then%> selected<%end if%>>发言人</option>
<option value="5"<%if cint(Board_Setting(38))=4 then%> selected<%end if%>>回复数</option>
<option value="6"<%if cint(Board_Setting(38))=5 then%> selected<%end if%>>浏览数</option>
</select>
</td>
</tr>
<tr> 
<th height="25" colspan="2" align=left>帖子相关设置</th>
</tr>
<tr> 
<td width="50%" class=Forumrow>
<U>发贴模式</U></td>
<td width="50%" class=Forumrow> 
<input type=radio name="Board_Setting(4)" value=0 <%if cint(Board_Setting(4))=0 then%>checked<%end if%>>简单&nbsp;
<input type=radio name="Board_Setting(4)" value=1 <%if cint(Board_Setting(4))=1 then%>checked<%end if%>>高级&nbsp;
</td>
</tr>
<tr> 
<td width="50%" class=Forumrow>
<U>HTML代码解析</U></td>
<td width="50%" class=Forumrow> 
<input type=radio name="Board_Setting(5)" value=0 <%if cint(Board_Setting(5))=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="Board_Setting(5)" value=1 <%if cint(Board_Setting(5))=1 then%>checked<%end if%>>开放&nbsp;
</td>
</tr>
<tr> 
<td width="50%" class=Forumrow>
<U>UBB代码解析</U></td>
<td width="50%" class=Forumrow> 
<input type=radio name="Board_Setting(6)" value=0 <%if cint(Board_Setting(6))=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="Board_Setting(6)" value=1 <%if cint(Board_Setting(6))=1 then%>checked<%end if%>>开放&nbsp;
</td>
</tr>
<tr> 
<td width="50%" class=Forumrow>
<U>贴图标签</U></td>
<td width="50%" class=Forumrow> 
<input type=radio name="Board_Setting(7)" value=0 <%if cint(Board_Setting(7))=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="Board_Setting(7)" value=1 <%if cint(Board_Setting(7))=1 then%>checked<%end if%>>开放&nbsp;
</td>
</tr>
<tr> 
<td width="50%" class=Forumrow>
<U>表情标签</U></td>
<td width="50%" class=Forumrow> 
<input type=radio name="Board_Setting(8)" value=0 <%if cint(Board_Setting(8))=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="Board_Setting(8)" value=1 <%if cint(Board_Setting(8))=1 then%>checked<%end if%>>开放&nbsp;
</td>
</tr>
<tr> 
<td width="50%" class=Forumrow>
<U>多媒体标签</U><BR>包括Flash,RM,AVI等</td>
<td width="50%" class=Forumrow> 
<input type=radio name="Board_Setting(9)" value=0 <%if cint(Board_Setting(9))=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="Board_Setting(9)" value=1 <%if cint(Board_Setting(9))=1 then%>checked<%end if%>>开放&nbsp;
</td>
</tr>
<tr> 
<td width="50%" class=Forumrow>
<U>是否开放金钱贴</U></td>
<td width="50%" class=Forumrow> 
<input type=radio name="Board_Setting(10)" value=0 <%if cint(Board_Setting(10))=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="Board_Setting(10)" value=1 <%if cint(Board_Setting(10))=1 then%>checked<%end if%>>开放&nbsp;
</td>
</tr>
<tr> 
<td width="50%" class=Forumrow>
<U>是否开放积分贴</U></td>
<td width="50%" class=Forumrow> 
<input type=radio name="Board_Setting(11)" value=0 <%if cint(Board_Setting(11))=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="Board_Setting(11)" value=1 <%if cint(Board_Setting(11))=1 then%>checked<%end if%>>开放&nbsp;
</td>
</tr>
<tr> 
<td width="50%" class=Forumrow>
<U>是否开放魅力贴</U></td>
<td width="50%" class=Forumrow> 
<input type=radio name="Board_Setting(12)" value=0 <%if cint(Board_Setting(12))=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="Board_Setting(12)" value=1 <%if cint(Board_Setting(12))=1 then%>checked<%end if%>>开放&nbsp;
</td>
</tr>
<tr> 
<td width="50%" class=Forumrow>
<U>是否开放威望贴</U></td>
<td width="50%" class=Forumrow> 
<input type=radio name="Board_Setting(13)" value=0 <%if cint(Board_Setting(13))=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="Board_Setting(13)" value=1 <%if cint(Board_Setting(13))=1 then%>checked<%end if%>>开放&nbsp;
</td>
</tr>
<tr> 
<td width="50%" class=Forumrow>
<U>是否开放文章贴</U></td>
<td width="50%" class=Forumrow> 
<input type=radio name="Board_Setting(14)" value=0 <%if cint(Board_Setting(14))=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="Board_Setting(14)" value=1 <%if cint(Board_Setting(14))=1 then%>checked<%end if%>>开放&nbsp;
</td>
</tr>
<tr> 
<td width="50%" class=Forumrow>
<U>是否开放回复可见贴</U></td>
<td width="50%" class=Forumrow> 
<input type=radio name="Board_Setting(15)" value=0 <%if cint(Board_Setting(15))=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="Board_Setting(15)" value=1 <%if cint(Board_Setting(15))=1 then%>checked<%end if%>>开放&nbsp;
</td>
</tr>
<tr> 
<td width="50%" class=Forumrow>
<U>是否开放出售帖子功能</U></td>
<td width="50%" class=Forumrow> 
<input type=radio name="Board_Setting(23)" value=0 <%if cint(Board_Setting(23))=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="Board_Setting(23)" value=1 <%if cint(Board_Setting(23))=1 then%>checked<%end if%>>开放&nbsp;
</td>
</tr>
<tr> 
<td width="50%" class=Forumrow>
<U>发贴后返回</U></td>
<td width="50%" class=Forumrow> 
<input type=radio name="Board_Setting(17)" value=1 <%if cint(Board_Setting(17))=1 then%>checked<%end if%>>首页&nbsp;
<input type=radio name="Board_Setting(17)" value=2 <%if cint(Board_Setting(17))=2 then%>checked<%end if%>>论坛&nbsp;
<input type=radio name="Board_Setting(17)" value=3 <%if cint(Board_Setting(17))=3 then%>checked<%end if%>>帖子&nbsp;
</td>
</tr>
<tr> 
<td width="50%" class=Forumrow>
<U>帖子内容最大字节数</U><BR>1024字节等于1K</td>
<td width="50%" class=Forumrow> 
<input type=text size=10 name="Board_Setting(16)" value="<%=Board_Setting(16)%>"> 字节
</td>
</tr>
<tr> 
<td width="50%" class=Forumrow>
<U>帖子正文字号</U></td>
<td width="50%" class=Forumrow> 
<input type=text size=10 name="Board_Setting(28)" value="<%=Board_Setting(28)%>">
</td>
</tr>
<tr> 
<td width="50%" class=Forumrow>
<U>帖子正文行间距</U></td>
<td width="50%" class=Forumrow> 
<input type=text size=10 name="Board_Setting(29)" value="<%=Board_Setting(29)%>">
</td>
</tr>
<tr> 
<td width="50%" class=Forumrow>
<U>上传文件类型</U><BR>每种文件类型用“|”号分开</td>
<td width="50%" class=Forumrow> 
<input type=text size=50 name="Board_Setting(19)" value="<%=Board_Setting(19)%>">
</td>
</tr>
<tr> 
<td width="50%" class=Forumrow>
<U>是否起用防灌水机制</U></td>
<td width="50%" class=Forumrow> 
<input type=radio name="Board_Setting(30)" value=0 <%if cint(Board_Setting(30))=0 then%>checked<%end if%>>否&nbsp;
<input type=radio name="Board_Setting(30)" value=1 <%if cint(Board_Setting(30))=1 then%>checked<%end if%>>是&nbsp;
</td>
</tr>
<tr> 
<td width="50%" class=Forumrow>
<U>每次发贴间隔</U></td>
<td width="50%" class=Forumrow> 
<input type=text size=10 name="Board_Setting(31)" value="<%=Board_Setting(31)%>"> 秒
</td>
</tr>
<tr> 
<td width="50%" class=Forumrow>
<U>最多投票项目</U></td>
<td width="50%" class=Forumrow> 
<input type=text size=10 name="Board_Setting(32)" value="<%=Board_Setting(32)%>"> 个
</td>
</tr>
<tr bgcolor=<%=Forum_body(3)%>> 
<td width="50%" class=Forumrow> &nbsp;</td>
<td width="50%" class=Forumrow>  
<div align="center"> 
<input type=hidden value="0" name="Board_Setting(20)">
<input type=hidden value="0" name="Board_Setting(44)">
<input type=hidden value="0" name="Board_Setting(45)">
<input type=hidden value="0" name="Board_Setting(46)">
<input type=hidden value="0" name="Board_Setting(47)">
<input type=hidden value="0" name="Board_Setting(48)">
<input type=hidden value="0" name="Board_Setting(49)">
<input type=hidden value="0" name="Board_Setting(50)">
<input type="submit" name="Submit" value="提 交">
</div>
</td>
</tr>
</table>
</form>
<%
end sub

sub saveconst()
if not isnumeric(request("editid")) then
Errmsg=Errmsg+"<br>"+"<li>错误的版面参数"
call dvbbs_error()
exit sub
else
dim iboard_setting
iboard_Setting=request.Form("Board_Setting(0)") & "," & request.Form("Board_Setting(1)") & "," & request.Form("Board_Setting(2)") & "," & request.Form("Board_Setting(3)") & "," & request.Form("Board_Setting(4)") & "," & request.Form("Board_Setting(5)") & "," & request.Form("Board_Setting(6)") & "," & request.Form("Board_Setting(7)") & "," & request.Form("Board_Setting(8)") & "," & request.Form("Board_Setting(9)") & "," & request.Form("Board_Setting(10)") & "," & request.Form("Board_Setting(11)") & "," & request.Form("Board_Setting(12)") & "," & request.Form("Board_Setting(13)") & "," & request.Form("Board_Setting(14)") & "," & request.Form("Board_Setting(15)") & "," & request.Form("Board_Setting(16)") & "," & request.Form("Board_Setting(17)") & "," & request.Form("Board_Setting(18)") & "," & request.Form("Board_Setting(19)") & "," & request.Form("Board_Setting(20)") & "," & request.Form("Board_Setting(21)") & "," & request.Form("Board_Setting(22)") & "," & request.Form("Board_Setting(23)") & "," & request.Form("Board_Setting(24)") & "," & request.Form("Board_Setting(25)") & "," & request.Form("Board_Setting(26)") & "," & request.Form("Board_Setting(27)") & "," & request.Form("Board_Setting(28)") & "," & request.Form("Board_Setting(29)") & "," & request.Form("Board_Setting(30)") & "," & request.Form("Board_Setting(31)") & "," & request.Form("Board_Setting(32)") & "," & request.Form("Board_Setting(33)") & "," & request.Form("Board_Setting(34)") & "," & request.Form("Board_Setting(35)") & "," & request.Form("Board_Setting(36)") & "," & request.Form("Board_Setting(37)") & "," & request.Form("Board_Setting(38)") & "," & request.Form("Board_Setting(39)") & "," & request.Form("Board_Setting(40)") & "," & request.Form("Board_Setting(41)") & "," & request.Form("Board_Setting(42)") & "," & request.Form("Board_Setting(43)") & "," & request.Form("Board_Setting(44)") & "," & request.Form("Board_Setting(45)") & "," & request.Form("Board_Setting(46)") & "," & request.Form("Board_Setting(47)") & "," & request.Form("Board_Setting(48)") & "," & request.Form("Board_Setting(49)") & "," & request.Form("Board_Setting(50)")
'response.write iboard_setting
conn.execute("update board set board_setting='"&iboard_setting&"' where boardid="&request("editid"))
response.write "设置成功。<a href=admin_boardsetting.asp?editid="&request("editid")&">返回版面高级设置</a>"
end if
end sub
%>