📄 admin_use.asp
字号:
<!--#include file =conn.asp-->
<!-- #include file="inc/const.asp" -->
<!--#include file=inc/char.asp-->
<!--#include file=chkuser.asp-->
<title><%=ForumName%>--管理页面</title>
<link rel="stylesheet" type="text/css" href="forum.css">
<meta NAME=GENERATOR Content=""Microsoft FrontPage 3.0"" CHARSET=GB2312>
<BODY <%=ForumBody%>>
<%
if instr(session("flag"),"22")=0 then
Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=admin_index.asp target=_top>登陆</a>后进入。<br><li>您没有管理本页面的权限。"
call Error()
else
call main()
conn.close
set conn=nothing
end if
sub main()
%>
<table cellpadding=0 cellspacing=0 border=0 width=<%=tablewidth%> bgcolor=<%=tablebackcolor%> align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=1 border=0 width=100%>
<tr bgcolor='<%=Tabletitlecolor%>'>
<td align=center colspan="2"><font color="<%=TablefontColor%>">欢迎<b><%=membername%></b>进入管理页面</font>
</td>
</tr>
<tr bgcolor=<%=tablebodycolor%>>
<td width="100%" valign=top><font color="<%=TableContentColor%>">
<%
if request("action")="save" then
call saveconst()
else
call consted()
end if
%></font>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
end sub
sub consted()
%>
<form method="POST" action=admin_use.asp?action=save>
<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>：<BR>1、复选框中选择的为当前的使用设置模板，点击可查看该模板设置，点击别的模板直接查看该模板并修改设置。您可以将您下面的设置保存在多个论坛风格模板中<BR>2、您也可以将下面设定的信息保存并应用到具体的分论坛设置中，可多选<BR>3、如果您想在一个版面引用别的版面或模板的配置，只要点击该版面或模板名称，保存的时候选择要保存到的版面名称或模板名称即可。</font></td>
</tr>
<tr>
<td width="100%" colspan=2><font color="<%=TableContentColor%>"><B>当前使用主模板</B>（可将设置保存到下列模板中）<BR>
<%
set rs = server.CreateObject ("adodb.recordset")
sql="select * from config"
rs.open sql,conn,1,1
do while not rs.eof
if request("skinid")="" then
if request("boardid")="" then
if rs("active")=1 then
sel="checked"
else
sel=""
end if
else
sel=""
end if
else
if rs("id")=cint(request("skinid")) then
sel="checked"
else
sel=""
end if
end if
response.write "<input type=checkbox name=skinid value="&rs("id")&" "&sel&"><a href=admin_use.asp?skinid="&rs("id")&"><font color="&TableContentColor&">"&rs("skinname")&"</font></a> "
rs.movenext
loop
rs.close
set rs=nothing
%></font>
</td></tr>
<tr>
<td width="100%" colspan=2><font color="<%=TableContentColor%>"><B>当前使用分论坛模板</B>（可将设置保存到下列论坛中）<BR>
<%
set rs = server.CreateObject ("adodb.recordset")
sql="select * from board"
rs.open sql,conn,1,1
do while not rs.eof
if request("boardid")<>"" or isnumeric(request("boardid")) then
if rs("boardid")=cint(request("boardid")) then
sel="checked"
else
sel=""
end if
end if
response.write "<input type=checkbox name=boardid value="&rs("boardid")&" "&sel&"><a href=admin_use.asp?boardid="&rs("boardid")&"><font color="&TableContentColor&">" & rs("boardtype") & "</font></a> "
rs.movenext
loop
rs.close
set rs=nothing
%></font>
</td></tr>
<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>维护期间可设置关闭论坛使用</td>
<td width="60%"><font color="<%=TableContentColor%>">
<input type=radio name="ForumStop" value=0 <%if cint(ForumStop)=0 then%>checked<%end if%>>打开
<input type=radio name="ForumStop" value=1 <%if cint(ForumStop)=1 then%>checked<%end if%>>关闭
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>维护说明</B><BR>在论坛关闭情况下显示，支持html语法</td>
<td width="60%"><font color="<%=TableContentColor%>">
<textarea name="StopReadme" cols="50" rows="3"><%=StopReadme%></textarea>
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>服务器时差</B></td>
<td width="60%"><font color="<%=TableContentColor%>">
<select name="TimeAdjust">
<%for i=-23 to 23%>
<option value="<%=i%>" <%if cint(i)=cint(TimeAdjust) then%>selected<%end if%>><%=i%>
<%next%>
</select>
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>脚本超时时间</B><BR>默认为300，一般不做更改</td>
<td width="60%"><font color="<%=TableContentColor%>">
<input type="text" name="ScriptTimeOut" size="3" value="<%=ScriptTimeOut%>"> 秒
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>发送邮件组件</B><BR>如果您的服务器不支持下列组件，请选择不支持</td>
<td width="60%"><font color="<%=TableContentColor%>">
<select name="EmailFlag">
<option value="0" <%if EmailFlag=0 then%>selected<%end if%>>不支持
<option value="1" <%if EmailFlag=1 then%>selected<%end if%>>JMAIL
<option value="2" <%if EmailFlag=2 then%>selected<%end if%>>CDONTS
<option value="3" <%if EmailFlag=3 then%>selected<%end if%>>ASPEMAIL
</select>
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>帖子上传图片</B><BR>用于帖子图片的上传，如分论坛已经设置，以分论坛为准</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%>>打开
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>用户IP</B><BR>该选择对版主和管理员无效</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%>>公开
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>头像上传</B></td>
<td width="60%"><font color="<%=TableContentColor%>">
<input type=radio name="uploadFlag" value=0 <%if uploadFlag=0 then%>checked<%end if%>>关闭
<input type=radio name="uploadFlag" value=1 <%if uploadFlag=1 then%>checked<%end if%>>打开
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>用户来源</B><BR>该选择对版主和管理员无效<BR>为节省资源建议关闭</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%>>公开
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>客人浏览论坛</B><BR>可设置是否允许客人浏览论坛</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%>>不允许
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>用户头衔</B><BR>是否允许用户自定义头衔</td>
<td width="60%"><font color="<%=TableContentColor%>">
<input type=radio name="TitleFlag" value=0 <%if cint(TitleFlag)=0 then%>checked<%end if%>>关闭
<input type=radio name="TitleFlag" value=1 <%if cint(TitleFlag)=1 then%>checked<%end if%>>打开
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>在线名单显示客人在线</B><BR>为节省资源建议关闭</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%>>打开
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>在线名单显示用户在线</B><BR>为节省资源建议关闭</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%>>打开
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>删除不活动用户时间</B><BR>可设置删除多少分钟内不活动用户<BR>单位：分钟，请输入数字</td>
<td width="60%"><font color="<%=TableContentColor%>">
<input type="text" name="kicktime" size="3" value="<%=kicktime%>"> 分钟
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>允许同时在线数</B><BR>如不想限制，可设置为999999</td>
<td width="60%"><font color="<%=TableContentColor%>">
<input type="text" name="online_n" size="6" value="<%=online_n%>"> 人
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>新短消息弹出窗口</B></td>
<td width="60%"><font color="<%=TableContentColor%>">
<input type=radio name="openmsg" value=0 <%if cint(openmsg)=0 then%>checked<%end if%>>否
<input type=radio name="openmsg" value=1 <%if cint(openmsg)=1 then%>checked<%end if%>>是
</td>
</tr>
<tr>
<td height="17" width="40%"><B>帖子内容最大的字节数</B><BR>请输入数字</td>
<td height="17" width="60%">
<input type="text" name="AnnounceMaxBytes" size="6" value="<%=AnnounceMaxBytes%>"> 字节
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>每页显示最多纪录</B><BR>用于论坛所有和分页有关的项目</td>
<td width="60%"><font color="<%=TableContentColor%>">
<input type="text" name="MaxAnnouncePerPage" size="3" value="<%=MaxAnnouncePerPage%>"> 条
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>浏览贴子每页显示贴子数</B></td>
<td width="60%"><font color="<%=TableContentColor%>">
<input type="text" name="Maxtitlelist" size="3" value="<%=Maxtitlelist%>"> 条
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>联盟论坛模式</B><BR>1、每行列出联盟论坛详细资料<BR>2、联盟论坛连接横向排列<BR>3、显示联盟论坛logo，每行一个<BR>4、显示联盟论坛logo，横向排列</td>
<td width="60%"><font color="<%=TableContentColor%>">
<input type=radio name="LinkFlag" value=0 <%if cint(LinkFlag)=0 then%>checked<%end if%>>普通一
<input type=radio name="LinkFlag" value=1 <%if cint(LinkFlag)=1 then%>checked<%end if%>>普通二
<input type=radio name="LinkFlag" value=2 <%if cint(LinkFlag)=2 then%>checked<%end if%>>高级一
<input type=radio name="LinkFlag" value=3 <%if cint(LinkFlag)=3 then%>checked<%end if%>>高级二
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>发贴模式</B><BR>高级模式为显示所有项目</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%>>高级
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>是否允许客人投票</B></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%>>是
</td>
</tr>
<tr>
<td width="40%"><font color="<%=TableContentColor%>"><B>论坛投票项数目</B><BR>请填写数字</td>
<td width="60%"><font color="<%=TableContentColor%>">
<input type="text" name="vote_num" size="3" value="<%=vote_num%>">
</td>
</tr>
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -