📄 admin_boardaset.asp
字号:
</textarea></td>
</tr>
<tr><td width="100%" valign=top colspan="2" align=center>
<input type=Submit value="修 改" name=Submit"> <input type="reset" name="Clear" value="清 除">
</td></tr>
</table>
</form>
<%
end sub
sub update()
if request("boardid")<>"" then
boardid=request("boardid")
else
exit sub
end if
if request("username")="" then
Errmsg=Errmsg+"<br>"+"<li>请输入发布者。"
founderr=true
else
username=request("username")
end if
if request("title")="" then
Errmsg=Errmsg+"<br>"+"<li>请输入新闻标题。"
founderr=true
else
title=request("title")
end if
if request("content")="" then
Errmsg=Errmsg+"<br>"+"<li>请输入新闻内容。"
founderr=true
else
content=request("content")
end if
if founderr=true then
call error()
else
sql="select * from bbsnews where id="&cstr(request("id"))
rs.open sql,conn,1,3
rs("username")=username
rs("title")=title
rs("content")=content
rs("addtime")=Now()
rs("boardid")=boardid
rs.update
rs.close
call success()
end if
end sub
sub del()
sql="delete from bbsnews where id="&cstr(request("id"))
conn.execute(sql)
call success()
end sub
sub success()
%><br><br>
成功：新闻操作
<%
end sub
sub editbminfo()
if bmflag_1=0 then
Errmsg=Errmsg+"<br>"+"<li>本项版主管理功能未开放。"
call error()
exit sub
end if
%>
<form action ="admin_boardaset.asp?action=saveditbm&boardid=<%=boardid%>" method=post>
<%
set rs_c= server.CreateObject ("adodb.recordset")
sql = "select * from class"
rs_c.open sql,conn,1,1
set rs= server.CreateObject ("adodb.recordset")
sql = "select * from board where boardid="+CSTr(boardid)
rs.open sql,conn,1,1
master_1=split(rs("boardmaster"),"|")
if membername<>master_1(0) then
Errmsg=Errmsg+"<br>"+"<li>本项功能为主版主专用。"
call error()
exit sub
end if
%>
<input type='hidden' name=editid value='<%=boardid%>'>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr bgcolor=<%=aTableTitleColor%>>
<td width="52%" height=22><font color="<%=TableContentColor%>"><b>字段名称：</b></font> </td>
<td width="48%">
<div align="center"><font color="<%=TableContentColor%>"><b>变量值：</b></font></div>
</td>
</tr>
<tr>
<td width="52%"><font color="<%=TableContentColor%>">论坛序号（注意不能和别的论坛序号相同）</font></td>
<td width="48%"> <font color="<%=TableContentColor%>"><%=rs("boardid")%> </font></td>
</tr>
<tr>
<td width="52%"><font color="<%=TableContentColor%>">论坛名</font></td>
<td width="48%"> <font color="<%=TableContentColor%>"><%=rs("boardtype")%></font> </td>
</tr>
<tr>
<td width="52%"><font color="<%=TableContentColor%>">版面说明</font></td>
<td width="48%">
<input type="text" name="readme" size="24" value='<%=rs("readme")%>'>
</td>
</tr>
<tr>
<td width="52%"><font color="<%=TableContentColor%>">版主(多版主添加请用|分隔，如：沙滩小子|wodeail)：</font></td>
<td width="48%">
<input type="text" name="boardmaster" size="24" value='<%=rs("boardmaster")%>'>
</td>
</tr>
<tr bgcolor=<%=aTableTitleColor%>>
<td width="52%"> </td>
<td width="48%">
<input type="submit" name="Submit" value="提交">
</td>
</tr>
</table>
</form>
<%
rs.close
end sub
sub savebminfo()
sql = "select * from board where boardid="+Cstr(request("boardid"))
rs.Open sql,conn,1,3
rs("boardmaster") = Request("boardmaster")
rs("readme") = Request("readme")
rs.Update
rs.Close
response.write "<p>论坛修改成功！"
end sub
sub editbmset()
chkedit=false
set rs=conn.execute("select boardmaster from board where boardid="&request("boardid"))
master_1=split(rs(0),"|")
if bmflag_5=1 then
chkedit=true
else
if bmflag_3=0 then
chkedit=false
elseif bmflag_3=1 and membername=master_1(0) then
chkedit=true
else
chkedit=false
end if
end if
if master then
chkedit=true
end if
if chkedit=false then
Errmsg=Errmsg+"<br>"+"<li>本项功能未对您开放。"
call error()
else
%>
<form method="POST" action=admin_boardaset.asp?action=savebmset&boardid=<%=request("boardid")%>>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align=center bordercolor=<%=aTablebackcolor%>>
<tr bgcolor=<%=aTabletitlecolor%>>
<td height="23" colspan="2" ><font color="<%=TableContentColor%>"><b>论坛使用设置</b></font></td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>帖子上传图片</B><BR>用于帖子图片的上传，如分论坛已经设置，以分论坛为准</font></td>
<td width="60%"> <font color="<%=TableContentColor%>">
<input type=radio name="Uploadpic" value=0 <%if cint(Uploadpic)=0 then%>checked<%end if%>>关闭
<input type=radio name="Uploadpic" value=1 <%if cint(Uploadpic)=1 then%>checked<%end if%>>打开 </font>
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>用户IP</B><BR>该选择对版主和管理员无效</font></td>
<td width="60%"> <font color="<%=TableContentColor%>">
<input type=radio name="IpFlag" value=0 <%if cint(IpFlag)=0 then%>checked<%end if%>>保密
<input type=radio name="IpFlag" value=1 <%if cint(IpFlag)=1 then%>checked<%end if%>>公开 </font>
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>用户来源</B><BR>该选择对版主和管理员无效<BR>为节省资源建议关闭</font></td>
<td width="60%"> <font color="<%=TableContentColor%>">
<input type=radio name="FromFlag" value=0 <%if cint(FromFlag)=0 then%>checked<%end if%>>保密
<input type=radio name="FromFlag" value=1 <%if cint(FromFlag)=1 then%>checked<%end if%>>公开 </font>
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>客人浏览论坛</B><BR>可设置是否允许客人浏览论坛</font></td>
<td width="60%"> <font color="<%=TableContentColor%>">
<input type=radio name="guestlogin" value=0 <%if cint(guestlogin)=0 then%>checked<%end if%>>允许
<input type=radio name="guestlogin" value=1 <%if cint(guestlogin)=1 then%>checked<%end if%>>不允许 </font>
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>在线名单显示客人在线</B><BR>为节省资源建议关闭</font></td>
<td width="60%"> <font color="<%=TableContentColor%>">
<input type=radio name="online_g" value=0 <%if cint(online_g)=0 then%>checked<%end if%>>关闭
<input type=radio name="online_g" value=1 <%if cint(online_g)=1 then%>checked<%end if%>>打开 </font>
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>在线名单显示用户在线</B><BR>为节省资源建议关闭</font></td>
<td width="60%"> <font color="<%=TableContentColor%>">
<input type=radio name="online_u" value=0 <%if cint(online_u)=0 then%>checked<%end if%>>关闭
<input type=radio name="online_u" value=1 <%if cint(online_u)=1 then%>checked<%end if%>>打开 </font>
</td>
</tr>
<tr>
<td height="17" width="40%"><font color="<%=TableContentColor%>"><B>帖子内容最大的字节数</B><BR>请输入数字</font></td>
<td height="17" width="60%"> <font color="<%=TableContentColor%>">
<input type="text" name="AnnounceMaxBytes" size="6" value="<%=AnnounceMaxBytes%>"> 字节</font>
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>每页显示最多纪录</B><BR>用于论坛所有和分页有关的项目</font></td>
<td width="60%"> <font color="<%=TableContentColor%>">
<input type="text" name="MaxAnnouncePerPage" size="3" value="<%=MaxAnnouncePerPage%>"> 条</font>
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>浏览贴子每页显示贴子数</B></font></td>
<td width="60%"> <font color="<%=TableContentColor%>">
<input type="text" name="Maxtitlelist" size="3" value="<%=Maxtitlelist%>"> 条</font>
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>发贴模式</B><BR>高级模式为显示所有项目</font></td>
<td width="60%"> <font color="<%=TableContentColor%>">
<input type=radio name="TopicFlag" value=0 <%if cint(TopicFlag)=0 then%>checked<%end if%>>普通
<input type=radio name="TopicFlag" value=1 <%if cint(TopicFlag)=1 then%>checked<%end if%>>高级 </font>
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>是否允许客人投票</B></font></td>
<td width="60%"> <font color="<%=TableContentColor%>">
<input type=radio name="VoteFlag" value=0 <%if cint(VoteFlag)=0 then%>checked<%end if%>>否
<input type=radio name="VoteFlag" value=1 <%if cint(VoteFlag)=1 then%>checked<%end if%>>是 </font>
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>论坛投票项数目</B><BR>请填写数字</font></td>
<td width="60%">
<input type="text" name="vote_num" size="3" value="<%=vote_num%>">
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>防刷新机制</B><BR>如选择打开请填写下面的限制刷新时间<BR>对版主和管理员无效</font></td>
<td width="60%"> <font color="<%=TableContentColor%>">
<input type=radio name="ReflashFlag" value=0 <%if cint(ReflashFlag)=0 then%>checked<%end if%>>关闭
<input type=radio name="ReflashFlag" value=1 <%if cint(ReflashFlag)=1 then%>checked<%end if%>>打开 </font>
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>浏览刷新时间间隔</B><BR>填写该项目请确认您打开了防刷新机制<BR>仅对帖子列表和显示帖子页面起作用</font></td>
<td width="60%"> <font color="<%=TableContentColor%>">
<input type="text" name="ReflashTime" size="3" value="<%=ReflashTime%>"> 秒</font>
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>防灌水机制</B><BR>如选择打开请填写下面的限制发贴间隔时间<BR>对版主和管理员无效</font></td>
<td width="60%"> <font color="<%=TableContentColor%>">
<input type=radio name="relaypost" value=0 <%if cint(relaypost)=0 then%>checked<%end if%>>关闭
<input type=radio name="relaypost" value=1 <%if cint(relaypost)=1 then%>checked<%end if%>>打开 </font>
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>防灌水时间间隔</B><BR>填写该项目请确认您打开了防灌水机制</font></td>
<td width="60%"> <font color="<%=TableContentColor%>">
<input type="text" name="relaypostTime" size="3" value="<%=relaypostTime%>"> 秒</font>
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>是否显示页面执行时间</B></font></td>
<td width="60%"> <font color="<%=TableContentColor%>">
<input type=radio name="runtime" value=0 <%if cint(runtime)=0 then%>checked<%end if%>>否
<input type=radio name="runtime" value=1 <%if cint(runtime)=1 then%>checked<%end if%>>是 </font>
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>上传文件类型</B><BR>使用逗号隔开</font></td>
<td width="60%">
<input type="text" name="Forum_upload" size="35" value="<%=Forum_upload%>">
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>上传文件大小</B><BR>请填写数字</font></td>
<td width="60%">
<input type="text" name="uploadsize" size="6" value="<%=uploadsize%>">
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>是否开启UBB代码</B></font></td>
<td width="60%"> <font color="<%=TableContentColor%>">
<input type=radio name="strAllowForumCode" value=0 <%if cint(strAllowForumCode)=0 then%>checked<%end if%>>关闭
<input type=radio name="strAllowForumCode" value=1 <%if cint(strAllowForumCode)=1 then%>checked<%end if%>>打开 </font>
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>是否开启HTML代码</B></font></td>
<td width="60%"> <font color="<%=TableContentColor%>">
<input type=radio name="strAllowHTML" value=0 <%if cint(strAllowHTML)=0 then%>checked<%end if%>>关闭
<input type=radio name="strAllowHTML" value=1 <%if cint(strAllowHTML)=1 then%>checked<%end if%>>打开 </font>
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>是否开启贴图标签</B></font></td>
<td width="60%"> <font color="<%=TableContentColor%>">
<input type=radio name="strIMGInPosts" value=0 <%if cint(strIMGInPosts)=0 then%>checked<%end if%>>关闭
<input type=radio name="strIMGInPosts" value=1 <%if cint(strIMGInPosts)=1 then%>checked<%end if%>>打开 </font>
</td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -