📄 admin_var.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %><!--#include file = conn.asp--><!-- #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" thencall saveconst()elsecall consted()end if%> </td> </tr> </table> </td> </tr></table><%end subsub 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="uploadFlag"><option value="0" <%if not uploadFlag then%>selected<%end if%>>否 <option value="1" <%if uploadFlag 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="TitleFlag"><option value="0" <%if not TitleFlag then%>selected<%end if%>>隐藏 <option value="1" <%if TitleFlag 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%">表格体颜色1</td><td width="59%"> <input type="text" name="Tablebodycolor" size="35" value="<%=Tablebodycolor%>"></td></tr><tr> <td width="41%">表格体颜色2(1和2颜色在首页显示中穿插)</td><td width="59%"> <input type="text" name="aTablebodycolor" size="35" value="<%=aTablebodycolor%>"></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 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 subsub saveconst()set rs = server.CreateObject ("adodb.recordset")sql = "select * from config"rs.open sql,conn,1,3if Request("ForumName")="" then errmsg = errmsg + "<br>" + "<li>请填论坛名称！</li>"call error()elsers("ForumName") = Request("ForumName")end ifif Request("ForumURL")="" then errmsg = errmsg + "<br>" + "<li>请填论坛连接地址！</li>"call error()elsers("ForumURL") = Request("ForumURL")end ifif Request("CompanyName")="" then errmsg = errmsg + "<br>" + "<li>请填主页名称名称！</li>"call error()elsers("CompanyName") =Request("CompanyName")end ifif Request("HostUrl")="" then errmsg = errmsg + "<br>" + "<li>请填论坛名称名称！</li>"call error()elsers("HostUrl") = Request("HostUrl")end ifif Request("SMTPServer")="" then errmsg = errmsg + "<br>" + "<li>请填写邮件服务器地址！</li>"call error()elsers("SMTPServer") = request("SMTPServer")end ifif Request("SystemEmail")="" then errmsg = errmsg + "<br>" + "<li>请填写邮件服务器地址！</li>"call error()elsers("SystemEmail") = Request("SystemEmail")end ifif Request("TimeAdjust")="" then rs("TimeAdjust") = 0elsers("TimeAdjust") = Request("TimeAdjust")end ifif Request("ScriptTimeOut")="" then rs("ScriptTimeOut") = 300elsers("ScriptTimeOut") = Request("ScriptTimeOut")end ifif Request("logo")="" then errmsg = errmsg + "<br>" + "<li>请填写论坛logo地址！</li>"call error()elsers("Logo") = Request("Logo")end ifif Request("Picurl")="" then errmsg = errmsg + "<br>" + "<li>请填写论坛图片目录！</li>"call error()elsers("Picurl") = Request("Picurl")end ifif Request("Faceurl")="" then errmsg = errmsg + "<br>" + "<li>请填写论坛表情目录！</li>"call error()elsers("Faceurl") = Request("Faceurl")end ifrs("EmailFlag") = Request("EmailFlag")rs("Uploadpic") = Request("Uploadpic")rs("IpFlag") = Request("IpFlag")rs("FromFlag") = Request("FromFlag")rs("TitleFlag")=Request("TitleFlag")rs("uploadFlag")=request("uploadFlag")rs("guestuser") = Request("guestuser")rs("openmsg") = Request("openmsg")rs("AnnounceMaxBytes") = Request("AnnounceMaxBytes")rs("MaxAnnouncePerPage") = Request("MaxAnnouncePerPage")rs("Maxtitlelist") = Request("Maxtitlelist")rs("Tablebackcolor") = Request("Tablebackcolor")rs("aTablebackcolor") = Request("aTablebackcolor")rs("Tabletitlecolor") = Request("Tabletitlecolor")rs("aTabletitlecolor") = Request("aTabletitlecolor")rs("Tablebodycolor") = Request("Tablebodycolor")rs("aTablebodycolor") = Request("aTablebodycolor")rs("TableFontcolor") = Request("TableFontcolor")rs("TableContentcolor") = Request("TableContentcolor")rs("AlertFontColor") = Request("AlertFontColor")rs("ContentTitle") = Request("ContentTitle")rs("ads1") = Request("ads1")rs("ads2") =Request("ads2")rs("Copyright") = Request("Copyright")rs("Version") = Request("Version")rs.updaters.closecall getconst()set conn = nothing%><center><p><b>设置成功！</b><%end sub%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -