📄 setvariables.cgi
字号:
<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=宋体 color=#333333><b>请选择操作系统平台用于文件加锁</b><BR>请千万不要选错，如果你不能确定，请选择 Windows 系列！！<BR>文件加锁可以有效的防止贴子数据丢失等问题，但会影响速度，请自己衡量！<br></font></td>
<td bgcolor=#FFFFFF>
$tempoutput</td>
</tr>
~;
$tempoutput = "<select name=\"floodcontrol\">\n<option value=\"off\">否\n<option value=\"on\">是\n</select>\n";
$tempoutput =~ s/value=\"$floodcontrol\"/value=\"$floodcontrol\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=宋体 color=#333333><b>是否灌水预防机制？</b><br>强烈推荐使用</font></td>
<td bgcolor=#FFFFFF>
$tempoutput</td>
</tr>
<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=宋体 color=#333333><b>用户发贴的相隔时间</b><br>灌水预防机制不会影响到坛主或版主</font></td>
<td bgcolor=#FFFFFF>
<input type=text size=5 name="floodcontrollimit" value="$floodcontrollimit" maxlength=4> 秒 (一般设置 30 左右)</td>
</tr>
<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=宋体 color=#333333><b>同 IP 的注册最小相隔时间</b><br>可以有效防止灌水注册机</font></td>
<td bgcolor=#FFFFFF>
<input type=text size=5 name="regcontrollimit" value="$regcontrollimit" maxlength=4> 秒 (一般设置 30 左右)</td>
</tr>
<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=宋体 color=#333333><b>论坛允许的最大在线人数</b><br>可以控制服务器的资源使用</font></td>
<td bgcolor=#FFFFFF>
<input type=text size=6 name="arrowonlinemax" value="$arrowonlinemax" maxlength=5> 人 (一般设 50 左右，若不想限制，则设置 99999)</td>
</tr>
~;
$tempoutput = "<select name=\"timezone\"><option value=\"-23\">- 23<option value=\"-22\">- 22<option value=\"-21\">- 21<option value=\"-20\">- 20<option value=\"-19\">- 19<option value=\"-18\">- 18<option value=\"-17\">- 17<option value=\"-16\">- 16<option value=\"-15\">- 15<option value=\"-14\">- 14<option value=\"-13\">- 13<option value=\"-12\">- 12<option value=\"-11\">- 11<option value=\"-10\">- 10<option value=\"-9\">- 9<option value=\"-8\">- 8<option value=\"-7\">- 7<option value=\"-6\">- 6<option value=\"-5\">- 5<option value=\"-4\">- 4<option value=\"-3\">- 3<option value=\"-2\">- 2<option value=\"-1\">- 1<option value=\"0\">0<option value=\"1\">+ 1<option value=\"2\">+ 2<option value=\"3\">+ 3<option value=\"4\">+ 4<option value=\"5\">+ 5<option value=\"6\">+ 6<option value=\"7\">+ 7<option value=\"8\">+ 8<option value=\"9\">+ 9<option value=\"10\">+ 10<option value=\"11\">+ 11<option value=\"12\">+ 12<option value=\"13\">+ 13<option value=\"14\">+ 14<option value=\"15\">+ 15<option value=\"16\">+ 16<option value=\"17\">+ 17<option value=\"18\">+ 18<option value=\"19\">+ 19<option value=\"20\">+ 20<option value=\"21\">+ 21<option value=\"22\">+ 22<option value=\"23\">+ 23</select>";
$tempoutput =~ s/value=\"$timezone\"/value=\"$timezone\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=宋体 color=#333333><b>服务器时差</b></font></td>
<td bgcolor=#FFFFFF>
$tempoutput</td>
</tr>
<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=宋体 color=#333333><b>所在的时区</font></td>
<td bgcolor=#FFFFFF>
<input type=text size=40 name="basetimes" value="$basetimes"></td>
</tr>
<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=宋体 color=#333333><b>用户威望最大多少？</font></td>
<td bgcolor=#FFFFFF>
<input type=text size=4 name="maxweiwang" value="$maxweiwang" maxlength=3> 默认: 10(不能小于5)</td>
</tr>
<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=宋体 color=#333333><b>在多少区发送相同贴子就查封？</font></td>
<td bgcolor=#FFFFFF>
<input type=text size=4 name="maxadpost" value="$maxadpost" maxlength=3> 默认: 4(不能小于3)，如果要取消，请设置 999</td>
</tr>
~;
$tempoutput = "<select name=\"cpudisp\">\n<option value=\"0\">不使用\n<option value=\"1\">使用\n</select>\n";
$tempoutput =~ s/value=\"$cpudisp\"/value=\"$cpudisp\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=宋体 color=#333333><b>是否显示论坛 CPU 占用时间。(此设置对坛主无效)</font></td>
<td bgcolor=#FFFFFF>
$tempoutput</td>
</tr>
~;
$tempoutput = "<select name=\"announcements\">\n<option value=\"yes\">使用\n<option value=\"no\">不使用\n</select>\n";
$tempoutput =~ s/value=\"$announcements\"/value=\"$announcements\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=宋体 color=#333333><b>是否使用论坛公告</b></font></td>
<td bgcolor=#FFFFFF>
$tempoutput</td>
</tr>
~;
$tempoutput = "<select name=\"defaulttopicshow\">\n<option value=>查看所有的主题\n<option value=1>查看一天内的主题\n<option value=2>查看两天内的主题\n<option value=7>查看一星期内的主题\n<option value=15>查看半个月内的主题\n<option value=30>查看一个月内的主题\n<option value=60>查看两个月内的主题\n<option value=180>查看半年内的主题\n</select>\n";
$tempoutput =~ s/value=\"$defaulttopicshow\"/value=\"$defaulttopicshow\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=宋体 color=#333333><b>默认显示主题数</b></font></td>
<td bgcolor=#FFFFFF>
$tempoutput</td>
</tr>
~;
$tempoutput = "<select name=\"disphideboard\">\n<option value=\"no\">不显示\n<option value=\"yes\">显示\n</select>\n";
$tempoutput =~ s/value=\"$disphideboard\"/value=\"$disphideboard\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=宋体 color=#333333><b>跳转论坛栏中是否显示隐含论坛</b></font></td>
<td bgcolor=#FFFFFF>
$tempoutput</td>
</tr>
~;
$tempoutput = "<select name=\"dispchildjump\">\n<option value=\"no\">不显示\n<option value=\"yes\">显示\n</select>\n";
$tempoutput =~ s/value=\"$dispchildjump\"/value=\"$dispchildjump\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=宋体 color=#333333><b>跳转论坛栏中是否显示子论坛</b></font></td>
<td bgcolor=#FFFFFF>
$tempoutput</td>
</tr>
~;
$tempoutput = "<select name=\"dispboardsm\">\n<option value=\"yes\">显示\n<option value=\"no\">不显示\n</select>\n";
$tempoutput =~ s/value=\"$dispboardsm\"/value=\"$dispboardsm\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=宋体 color=#333333><b>是否在最下面显示论坛声明</b></font></td>
<td bgcolor=#FFFFFF>
$tempoutput</td>
</tr>
~;
$tempoutput = "<select name=\"dispborn\">\n<option value=\"yes\">显示\n<option value=\"no\">不显示\n<option value=\"auto\">有才显示，无则不显示\n</select>\n";
$tempoutput =~ s/value=\"$dispborn\"/value=\"$dispborn\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=宋体 color=#333333><b>首页是否显示当天生日用户</b></font></td>
<td bgcolor=#FFFFFF>
$tempoutput</td>
</tr>
~;
$tempoutput = "<select name=\"displink\">\n<option value=\"no\">不显示\n<option value=\"yes\">显示\n</select>\n";
$tempoutput =~ s/value=\"$displink\"/value=\"$displink\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=宋体 color=#333333><b>首页是否显示首页连接</b></font></td>
<td bgcolor=#FFFFFF>
$tempoutput</td>
</tr>
~;
print qq~
<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=宋体 color=#333333><b>首页连接</b><br>用html语法书写！</font></td>
<td bgcolor=#FFFFFF>
<textarea name="links" cols="40" rows="6">$links</textarea><BR>
</td>
</tr>
~;
print qq~
<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=宋体 color=#333333><b>论坛创建的日期</b><BR>请填写完整，年月日不可缺任何一个！</font></td>
<td bgcolor=#FFFFFF>
<input type=text name="createyear" value="$createyear" size=4>年<input type=text name="createmon" value="$createmon" size=2>月<input type=text name="createday" value="$createday" size=2>日。(请用标准年月日格式，年用四位表示)</td>
</tr>
~;
$tempoutput = "<select name=\"dispprofile\">\n<option value=\"yes\">允许\n<option value=\"no\">不允许\n</select>\n";
$tempoutput =~ s/value=\"$dispprofile\"/value=\"$dispprofile\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=宋体 color=#333333><b>是否允许客人察看用户资料</b></font></td>
<td bgcolor=#FFFFFF>
$tempoutput</td>
</tr>
~;
$tempoutput = "<select name=\"uri_escape\">\n<option value=\"yes\">使用\n<option value=\"no\">不使用\n</select>\n";
$tempoutput =~ s/value=\"$uri_escape\"/value=\"$uri_escape\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=宋体 color=#333333><b>是否使用编码转换中文URL？部分低版本WEB服务器不支持</b></font></td>
<td bgcolor=#FFFFFF>
$tempoutput</td>
</tr>
~;
$tempoutput = "<select name=\"dofilter\">\n<option value=\"yes\">显示时不管，但发言时包含不良词汇，将不能发表\n<option value=\"no\">发言时不管，显示贴子时才进行过滤转换\n<option value=\"all\">发言和显示都进行上述两者处理\n</select>\n";
$tempoutput =~ s/value=\"$dofilter\"/value=\"$dofilter\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=宋体 color=#333333><b>不良词汇过滤(词语转换)规则</b></font><BR>最后一个选项的过滤转换效果最好，但也最耗费<BR>资源，而第一个选项的消耗资源最小。一般使用<BR>适中的第二个选项就可以。</td>
<td bgcolor=#FFFFFF>
$tempoutput</td>
</tr>
~;
$tempoutput = "<select name=\"forumnamedisp\">\n<option value=\"0\">不显示\n<option value=\"1\">显示\n</select>\n";
$tempoutput =~ s/value=\"$forumnamedisp\"/value=\"$forumnamedisp\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=宋体 color=#333333><b>论坛首页是否显示直接发贴按钮</b></font></td>
<td bgcolor=#FFFFFF>
$tempoutput</td>
</tr>
~;
$tempoutput = "<select name=\"canhidden\">\n<option value=\"yes\">允许\n<option value=\"no\">不允许\n</select>\n";
$tempoutput =~ s/value=\"$canhidden\"/value=\"$canhidden\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=宋体 color=#333333><b>论坛是否允许用户隐身？</b></font></td>
<td bgcolor=#FFFFFF>
$tempoutput</td>
</tr>
~;
$tempoutput = "<select name=\"dispguest\">\n<option value=\"1\">视系统负荷而定\n<option value=\"2\">永远显示\n<option value=\"3\">永远不显示\n</select>\n";
$tempoutput =~ s/value=\"$dispguest\"/value=\"$dispguest\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=宋体 color=#333333><b>在线列表中是否显示客人？</b></font></td>
<td bgcolor=#FFFFFF>
$tempoutput</td>
</tr>
~;
$tempoutput = "<select name=\"userincert\">\n<option value=\"yes\">允许\n<option value=\"no\">不允许\n</select>\n";
$tempoutput =~ s/value=\"$userincert\"/value=\"$userincert\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=宋体 color=#333333><b>认证论坛是否允许普通用户进入？</b></font></td>
<td bgcolor=#FFFFFF>
$tempoutput</td>
</tr>
~;
$tempoutput = "<select name=\"flashavatar\">\n<option value=\"no\">不支持\n<option value=\"yes\">支持\n</select>\n";
$tempoutput =~ s/value=\"$flashavatar\"/value=\"$flashavatar\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=宋体 color=#333333><b>上传头像是否支持 FLASH 格式</b></font></td>
<td bgcolor=#FFFFFF>
$tempoutput</td>
</tr>
<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=宋体 color=#333333><b>上传头像文件允许的最大值(单位：KB)</b><br>默认允许最大 200KB ！</font></td>
<td bgcolor=#FFFFFF>
<input type=text name="maxuploadava" value="$maxuploadava" size=5 maxlength=5> 不要加 KB，建议不要超过 200</td>
</tr>
<tr>
<td bgcolor=#FFFFFF width=40%>
<font color=#333333><b>论坛首页音乐名称</b>(如果没有请留空)<br>请输入背景音乐名称，背景音乐<BR>应上传于 non-cgi/midi 目录下。<br><b>不要包含 URL 地址或绝对路径！</b></font></td>
<td bgcolor=#FFFFFF>
<input type=text size=20 name="midiaddr2" value="$midiaddr2">~;
$midiabsaddr = "$imagesdir" . "midi/$midiaddr2";
print qq~ <EMBED src="$imagesurl/midi/$midiaddr2" autostart="false" width=70 height=25 loop="true" align=absmiddle>~ if ((-e "$midiabsaddr")&&($midiaddr2 ne ""));
print qq~
</td>
</tr>
<tr>
<td bgcolor=#EEEEEE valign=middle align=center colspan=2>
<input type=submit value="提 交"></form></td></tr></table></td></tr></table>
~;
}
}
else {
&adminlogin;
}
print qq~</td></tr></table></body></html>~;
exit;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -