📄 admin_var.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!-- #include file="inc/const.asp" -->
<!--#include file=inc/char.asp-->
<!--#include file=admin_left.asp-->
<title><%=ForumName%>--管理页面</title>
<link rel="stylesheet" type="text/css" href="forum.css">
<BODY bgcolor="#ffffff" alink="#333333" vlink="#333333" link="#333333" topmargin="20">
<%
if session("masterlogin")<>"superadmin" then
Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=elogin.asp>登陆管理</a>后进入。"
call Error()
else
%>
<%
call main()
end if
sub main()
%>
<table cellpadding=0 cellspacing=0 border=0 width=95% bgcolor=<%=atablebackcolor%> align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=1 border=0 width=100%>
<tr bgcolor='<%=aTabletitlecolor%>'>
<td align=center colspan="2">欢迎<b><%=session("mastername")%></b>进入管理页面
</td>
</tr>
<tr bgcolor=<%=tablebodycolor%>>
<td width="20%" valign=top>
<%call left()%>
</td>
<td width="80%" valign=top>
<%
if request("action")="save" then
call saveconst()
else
call consted()
end if
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
end sub
sub consted()
%>
<form method="POST" action=admin_var.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=<%=TableFontcolor%>><b>论坛变量设置</b></font></td>
</tr>
<tr>
<td width="41%">论坛名称</td>
<td width="59%">
<input type="text" name="ForumName" size="35" value="<%=ForumName%>">
</td>
</tr>
<tr>
<td width="41%">论坛的url</td>
<td width="59%">
<input type="text" name="ForumURL" size="35" value="<%=ForumURL%>">
</td>
</tr>
<tr>
<td width="41%">主页名称</td>
<td width="59%">
<input type="text" name="CompanyName" size="35" value="<%=CompanyName%>">
</td>
</tr>
<tr>
<td width="41%">主页URL</td>
<td width="59%">
<input type="text" name="HostUrl" size="35" value="<%=HostUrl%>">
</td>
</tr>
<tr>
<td width="41%">SMTP Server地址</td>
<td width="59%">
<input type="text" name="SMTPServer" size="35" value="<%=SMTPServer%>">
</td>
</tr>
<tr>
<td width="41%">论坛管理员Email</td>
<td width="59%">
<input type="text" name="SystemEmail" size="35" value="<%=SystemEmail%>">
</td>
</tr>
<tr>
<td width="41%">服务器时差</td>
<td width="59%">
<input type="text" size="35" value="<%=TimeAdjust%>" name="TimeAdjust">
</td>
</tr>
<tr>
<td width="41%">服务器ASP脚本超时时间值，建议不要使用</td>
<td width="59%">
<input type="text" name="ScriptTimeOut" size="35" value="<%=ScriptTimeOut%>">
</td>
</tr>
<tr>
<td width="41%">论坛Logo地址</td>
<td width="59%">
<input type="text" name="Logo" size="35" value="<%=Logo%>">
</td>
</tr>
<tr>
<td width="41%">论坛图片目录</td>
<td width="59%">
<input type="text" name="Picurl" size="35" value="<%=picurl%>">
</td>
</tr>
<tr>
<td width="41%">论坛表情地址</td>
<td width="59%">
<input type="text" name="Faceurl" size="35" value="<%=Faceurl%>">
</td>
</tr>
<tr>
<td width="41%">发送邮件组件</td>
<td width="59%">
<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="41%">贴子上传图片</td>
<td width="59%">
<select name="Uploadpic">
<option value="0" <%if Uploadpic=0 then%>selected<%end if%>>否
<option value="1" <%if Uploadpic=1 then%>selected<%end if%>>是
</select>
</td>
</tr>
<tr>
<td width="41%">用户IP</td>
<td width="59%">
<select name="IpFlag">
<option value="0" <%if IpFlag=0 then%>selected<%end if%>>保密
<option value="1" <%if IpFlag=1 then%>selected<%end if%>>公开
</select>
</td>
</tr>
<tr>
<td width="41%">用户来源</td>
<td width="59%">
<select name="FromFlag">
<option value="0" <%if FromFlag=0 then%>selected<%end if%>>保密
<option value="1" <%if FromFlag=1 then%>selected<%end if%>>公开
</select>
</td>
</tr>
<tr>
<td width="41%">在线名单显示客人在线</td>
<td width="59%">
<select name="guestuser">
<option value="0" <%if guestuser=0 then%>selected<%end if%>>否
<option value="1" <%if guestuser=1 then%>selected<%end if%>>是
</select>
</td>
</tr>
<tr>
<td width="41%">有新的短消息弹出窗口</td>
<td width="59%">
<select name="openmsg">
<option value="0" <%if openmsg=0 then%>selected<%end if%>>否
<option value="1" <%if openmsg=1 then%>selected<%end if%>>是
</select>
</td>
</tr>
<tr bgcolor=<%=aTabletitlecolor%>>
<td height="23" colspan="2" ><font color=<%=TableFontcolor%>><b>关于贴子设置</b></font></td>
</tr>
<tr>
<td height="17" width="41%">帖子内容最大的字节数</td>
<td height="17" width="59%">
<input type="text" name="AnnounceMaxBytes" size="35" value="<%=AnnounceMaxBytes%>">
</td>
</tr>
<tr>
<td width="41%">每页显示最多纪录</td>
<td width="59%">
<input type="text" name="MaxAnnouncePerPage" size="35" value="<%=MaxAnnouncePerPage%>">
</td>
</tr>
<tr>
<td width="41%">UBB风格浏览贴子每页显示贴子数</td>
<td width="59%">
<input type="text" name="Maxtitlelist" size="35" value="<%=Maxtitlelist%>">
</td>
</tr>
<tr bgcolor=<%=aTabletitlecolor%>>
<td height="23" colspan="2" ><font color=<%=TableFontcolor%>><b>关于颜色字体设置（应用于除显示版面以外的页面，包括首页）</b></font></td>
</tr>
<tr>
<td width="41%">表格背景(边框颜色)1<br>一般页面</td>
<td width="59%">
<input type="text" name="Tablebackcolor" size="35" value="<%=Tablebackcolor%>">
</td>
</tr>
<tr>
<td width="41%">表格背景(边框颜色)2<br>用户页面、提示页面</td>
<td width="59%">
<input type="text" name="aTablebackcolor" size="35" value="<%=aTablebackcolor%>">
</td>
</tr>
<tr>
<td width="41%">标题表格颜色1<br>一般页面</td>
<td width="59%">
<input type="text" name="Tabletitlecolor" size="35" value="<%=Tabletitlecolor%>">
</td>
</tr>
<tr>
<td width="41%">标题表格颜色2<br>用户页面、提示页面</td>
<td width="59%">
<input type="text" name="aTabletitlecolor" size="35" value="<%=aTabletitlecolor%>">
</td>
</tr>
<tr>
<td width="41%">表格体颜色</td>
<td width="59%">
<input type="text" name="Tablebodycolor" size="35" value="<%=Tablebodycolor%>">
</td>
</tr>
<tr>
<td width="41%">表格内文字标题颜色</td>
<td width="59%">
<input type="text" name="TableFontcolor" size="35" value="<%=TableFontcolor%>">
</td>
</tr>
<tr>
<td width="41%">表格内文字内容颜色</td>
<td width="59%">
<input type="text" name="TableContentcolor" size="35" value="<%=TableContentcolor%>">
</td>
</tr>
<tr>
<td width="41%">警告提醒语句的颜色</td>
<td width="59%">
<input type="text" name="AlertFontColor" size="35" value="<%=AlertFontColor%>">
</td>
</tr>
<tr>
<td width="41%">显示帖子的时候，相关帖子，转发帖子，回复等的颜色</td>
<td width="59%">
<input type="text" name="ContentTitle" size="35" value="<%=ContentTitle%>">
</td>
</tr>
<tr>
<td width="41%">默认常规字体</td>
<td width="59%">
<input type="text" name="strDefaultFontFace" size="35" value="<%=strDefaultFontFace%>">
</td>
</tr>
<tr>
<td width="41%">默认字体大小</td>
<td width="59%">
<input type="text" name="strDefaultFontSIZE" size="35" value="<%=strDefaultFontSIZE%>">
</td>
</tr>
<tr bgcolor=<%=aTabletitlecolor%>>
<td height="23" colspan="2" ><font color=<%=TableFontcolor%>><b>关于标签设置</b></font></td>
</tr>
<tr>
<td width="41%">UBB标签</td>
<td width="59%">
<select name="strAllowForumCode">
<option value="0" <%if strallowForumCode=0 then%>selected<%end if%>>不使用
<option value="1" <%if strallowForumCode=1 then%>selected<%end if%>>使用
</select>
</td>
</tr>
<tr>
<td width="41%">HTML标签</td>
<td width="59%">
<select name="strAllowHTML">
<option value="0" <%if strallowHTML=0 then%>selected<%end if%>>不使用
<option value="1" <%if strallowHTML=1 then%>selected<%end if%>>使用
</select>
</td>
</tr>
<tr>
<td width="41%">贴图标签</td>
<td width="59%">
<select name="strIMGInPosts">
<option value="0" <%if strIMGInPosts=0 then%>selected<%end if%>>不使用
<option value="1" <%if strIMGInPosts=1 then%>selected<%end if%>>使用
</select>
</td>
</tr>
<tr>
<td width="41%">Flash标签</td>
<td width="59%">
<select name="strflash">
<option value="0" <%if strflash=0 then%>selected<%end if%>>不使用
<option value="1" <%if strflash=1 then%>selected<%end if%>>使用
</select>
</td>
</tr>
<tr>
<td width="41%">表情标签</td>
<td width="59%">
<select name="strIcons">
<option value="0" <%if strIcons=0 then%>selected<%end if%>>不使用
<option value="1" <%if strIcons=1 then%>selected<%end if%>>使用
</select>
</td>
</tr>
<tr bgcolor=<%=aTabletitlecolor%>>
<td height="23" colspan="2" ><font color=<%=TableFontcolor%>><b>版权广告信息</b></font></td>
</tr>
<tr>
<td width="41%">论坛页首广告代码</td>
<td width="59%">
<input type="text" name="ads1" size="35" value="<%=ads1%>">
</td>
</tr>
<tr>
<td width="41%">论坛页尾广告代码</td>
<td width="59%">
<input type="text" name="ads2" size="35" value="<%=ads2%>">
</td>
</tr>
<tr>
<td width="41%">版权信息</td>
<td width="59%">
<input type="text" name="Copyright" size="35" value="<%=Copyright%>">
</td>
</tr>
<tr>
<td width="41%">版本信息</td>
<td width="59%">
<input type="text" name="Version" size="35" value="<%=Version%>">
</td>
</tr>
<tr bgcolor=<%=aTabletitlecolor%>>
<td width="41%"> </td>
<td width="59%">
<div align="center">
<input type="submit" name="Submit" value="提 交">
</div>
</td>
</tr>
</table>
</form>
<%
end sub
sub saveconst()
Dim objFSO, objTextFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile(Server.MapPath("inc/const.asp"),TRUE)
objTextFile.WriteLine("<" & "%")
objTextFile.WriteLine("Const ForumName=""" & request("ForumName") & """")
objTextFile.WriteLine("Const ForumURL=""" & request("ForumURL") & """")
objTextFile.WriteLine("Const CompanyName=""" & request("CompanyName") & """")
objTextFile.WriteLine("Const HostUrl=""" & request("HostUrl") & """")
objTextFile.WriteLine("Const SMTPServer=""" & request("SMTPServer") & """")
objTextFile.WriteLine("Const SystemEmail=""" & request("SystemEmail") & """")
objTextFile.WriteLine("Const TimeAdjust=""" & request("TimeAdjust") & """")
objTextFile.WriteLine("Const ScriptTimeOut=""" & request("ScriptTimeOut") & """")
objTextFile.WriteLine("Const Logo=""" & request("Logo") & """")
objTextFile.WriteLine("Const Picurl=""" & request("Picurl") & """")
objTextFile.WriteLine("Const Faceurl=""" & request("Faceurl") & """")
objTextFile.WriteLine("Const EmailFlag=""" & request("EmailFlag") & """")
objTextFile.WriteLine("Const Uploadpic=""" & request("Uploadpic") & """")
objTextFile.WriteLine("Const IpFlag=""" & request("IpFlag") & """")
objTextFile.WriteLine("Const FromFlag=""" & request("FromFlag") & """")
objTextFile.WriteLine("Const guestuser=""" & request("guestuser") & """")
objTextFile.WriteLine("Const openmsg=""" & request("openmsg") & """")
objTextFile.WriteLine("Const AnnounceMaxBytes=""" & request("AnnounceMaxBytes") & """")
objTextFile.WriteLine("Const MaxAnnouncePerPage=" & request("MaxAnnouncePerPage") & "")
objTextFile.WriteLine("Const Maxtitlelist=" & request("Maxtitlelist") & "")
objTextFile.WriteLine("Const Tablebackcolor=""" & request("Tablebackcolor") & """")
objTextFile.WriteLine("Const aTablebackcolor=""" & request("aTablebackcolor") & """")
objTextFile.WriteLine("Const Tabletitlecolor=""" & request("Tabletitlecolor") & """")
objTextFile.WriteLine("Const aTabletitlecolor=""" & request("aTabletitlecolor") & """")
objTextFile.WriteLine("Const Tablebodycolor=""" & request("Tablebodycolor") & """")
objTextFile.WriteLine("Const TableFontcolor=""" & request("TableFontcolor") & """")
objTextFile.WriteLine("Const TableContentcolor=""" & request("TableContentcolor") & """")
objTextFile.WriteLine("Const AlertFontColor=""" & request("AlertFontColor") & """")
objTextFile.WriteLine("Const ContentTitle=""" & request("ContentTitle") & """")
objTextFile.WriteLine("Const strDefaultFontFace=""" & request("strDefaultFontFace") & """")
objTextFile.WriteLine("Const strDefaultFontSIZE=""" & request("strDefaultFontSIZE") & """")
objTextFile.WriteLine("Const strAllowForumCode=""" & request("strAllowForumCode") & """")
objTextFile.WriteLine("Const strAllowHTML=""" & request("strAllowHTML") & """")
objTextFile.WriteLine("Const strIMGInPosts=""" & request("strIMGInPosts") & """")
objTextFile.WriteLine("Const strIcons=""" & request("strIcons") & """")
objTextFile.WriteLine("Const strflash=""" & request("strflash") & """")
objTextFile.WriteLine("Const ads1=""" & request("ads1") & """")
objTextFile.WriteLine("Const ads2=""" & request("ads2") & """")
objTextFile.WriteLine("Const Copyright=""" & request("Copyright") & """")
objTextFile.WriteLine("Const Version=""" & request("Version") & """")
objTextFile.WriteLine("%" & ">")
objTextFile.Close
Set objTextFile = Nothing
Set objFSO = Nothing
%>
<center><p><b>设置成功！</b>
<%
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -