gusucode.com > 学校共青团组织网站源代码 > 学校共青团组织网站源代码/626/admin/admin_set.asp
<%
'ON ERROR RESUME NEXT
if Request.Cookies("admindj")<>"1" then
Response.Write "<BR><BR><BR><BR><center>权限不足，你没有此功能的管理权限"
Response.end
end if
set conndb=server.CreateObject("adodb.connection")
DBPath = Server.MapPath("../edit/db/#ewebeditor.asp")
conndb.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath
%>
<!--#include file = admin_chk.asp -->
<!--#include file = admin_conn.asp -->
<!--#include file = titleb.asp -->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<!--#include file = language.asp -->
<STYLE type="text/css">
<!--
a:link {text-decoration: none; font-family: AdobeSm; color: #000000 }
a:visited {text-decoration: none; color: #000000 }
A:hover {COLOR: green; FONT-FAMILY: "宋体,MingLiU"; TEXT-DECORATION: underline}
body {font-size: 9pt; font-family: 宋体,MingLiU, Arial;color: #000000}
TD {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000;line-height: 120%;table-layout:fixed;word-break:break-all}
p {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
input {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
body {margin-top: 0; margin-bottom: 0;margin-left:0;margin-right:0; color: #000000}
select {FONT-SIZE: 9PT;font-family: 宋体}
option {FONT-SIZE: 9pt;font-family: 宋体}
textarea {FONT-SIZE: 9pt;font-family: 宋体}
-->
</STYLE>
<p align="center"><br>
<b>新闻系统设置中心</b></p>
<div align="center">
<table border="1" cellpadding="3" width="750" id="table1" style="border-collapse: collapse" bordercolor="#C0C0C0">
<tr>
<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
栏目模版</td>
<td bgcolor="#F8F8F8" width="240" background="../images/bj3.jpg" height="25">
[<a href="admin_mb.asp">进入栏目模版设置</a>]</td>
<td bgcolor="#F8F8F8" width="353" background="../images/bj3.jpg" height="25"> </td>
</tr>
<tr>
<td width="136" align="center" bgcolor="#F8F8F8" background="../images/bj3.jpg" height="25">
搜索模版</td>
<td width="240" bgcolor="#F8F8F8" background="../images/bj3.jpg" height="25">
[<a href="admin_mb_so.asp">进入搜索页面模版设置</a>]
<a target="_blank" href="../so.asp">so.asp</a></td>
<td width="353" bgcolor="#F8F8F8" background="../images/bj3.jpg" height="25"> </td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
投稿模版</td>
<td bgcolor="#F8F8F8" width="240" background="../images/bj3.jpg" height="25">
[<a href="admin_mb_tg.asp">进入投稿页面模版设置</a>]
<a target="_blank" href="../utg.asp">utg.asp</a></td>
<td bgcolor="#F8F8F8" width="353" background="../images/bj3.jpg" height="25">
<a href="admin_set_tglm.asp">投稿栏目设置</a></td>
</tr>
</table>
</div>
<BR><center>
<table border="1" cellpadding="3" width="750" id="table2" style="border-collapse: collapse" bordercolor="#C0C0C0">
<%
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from [eWebEditor_Style]",conndb,1,1
%>
<form method="POST" action="admin_set_edit.asp"><tr>
<td bgcolor="#F8F8F8" width="736" align="center" background="../images/bj5.jpg" height="25" colspan="3">
<p align="justify"><font color="#FFFFFF"><b>上传文件设置</b></font></td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
图片上传类型</td>
<td bgcolor="#F8F8F8" width="350" background="../images/bj3.jpg" height="25">
<input type="text" name="S_ImageExt" size="49" value="<%=ucase(rs("S_ImageExt"))%>"></td>
<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25">
用 | 分开</td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
图片上传大小</td>
<td bgcolor="#F8F8F8" width="350" background="../images/bj3.jpg" height="25">
<input type="text" name="S_ImageSize" size="23" value="<%=rs("S_ImageSize")%>">
KB</td>
<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25">
0 为无限制</td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
媒体上传类型</td>
<td bgcolor="#F8F8F8" width="350" background="../images/bj3.jpg" height="25">
<input type="text" name="S_MediaExt" size="49" value="<%=ucase(rs("S_MediaExt"))%>"></td>
<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25">
用 | 分开</td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
媒体上传大小</td>
<td bgcolor="#F8F8F8" width="350" background="../images/bj3.jpg" height="25">
<input type="text" name="S_MediaSize" size="23" value="<%=rs("S_MediaSize")%>">
KB</td>
<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25">0 为无限制</td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
FLASH上传类型</td>
<td bgcolor="#F8F8F8" width="350" background="../images/bj3.jpg" height="25">
<input type="text" name="S_FlashExt" size="49" value="<%=ucase(rs("S_FlashExt"))%>"></td>
<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25">
用 | 分开</td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
FLASH上传大小</td>
<td bgcolor="#F8F8F8" width="350" background="../images/bj3.jpg" height="25">
<input type="text" name="S_FlashSize" size="23" value="<%=rs("S_FlashSize")%>">
KB</td>
<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25">0 为无限制</td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
其它文件类型</td>
<td bgcolor="#F8F8F8" width="350" background="../images/bj3.jpg" height="25">
<input type="text" name="S_FileExt" size="49" value="<%=ucase(rs("S_FileExt"))%>"></td>
<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25">
用 | 分开</td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
其它文件大小</td>
<td bgcolor="#F8F8F8" width="350" background="../images/bj3.jpg" height="25">
<input type="text" name="S_FileSize" size="23" value="<%=rs("S_FileSize")%>">
KB</td>
<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25">0 为无限制</td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
远程上传图片类型</td>
<td bgcolor="#F8F8F8" width="350" background="../images/bj3.jpg" height="25">
<input type="text" name="S_RemoteExt" size="49" value="<%=ucase(rs("S_RemoteExt"))%>"></td>
<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25">
用 | 分开</td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
远程上传图片大小</td>
<td bgcolor="#F8F8F8" width="350" background="../images/bj3.jpg" height="25">
<input type="text" name="S_RemoteSize" size="23" value="<%=rs("S_RemoteSize")%>">
KB</td>
<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25">0 为无限制</td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="736" align="center" background="../images/bj3.jpg" height="25" colspan="3" align=center>
<input type="submit" value="提交" name="B1"> <input type="reset" value="重置" name="B2"></td>
</tr></form>
</table>
<br>
<table align=center border="1" cellpadding="3" width="750" id="table3" style="border-collapse: collapse" bordercolor="#C0C0C0">
<!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="JavaScript" Type="text/javascript"><!--
function FrontPage_Form2_Validator(theForm)
{
if (theForm.Newsx.value == "")
{
alert("请在 New时效 域中输入值。");
theForm.Newsx.focus();
return (false);
}
if (theForm.Newsx.value.length < 1)
{
alert("在 New时效 域中，请至少输入 1 个字符。");
theForm.Newsx.focus();
return (false);
}
if (theForm.Newsx.value.length > 3)
{
alert("在 New时效 域中，请最多输入 3 个字符。");
theForm.Newsx.focus();
return (false);
}
var checkOK = "0123456789-";
var checkStr = theForm.Newsx.value;
var allValid = true;
var validGroups = true;
var decPoints = 0;
var allNum = "";
for (i = 0; i < checkStr.length; i++)
{
ch = checkStr.charAt(i);
for (j = 0; j < checkOK.length; j++)
if (ch == checkOK.charAt(j))
break;
if (j == checkOK.length)
{
allValid = false;
break;
}
allNum += ch;
}
if (!allValid)
{
alert("在 New时效 域中，只能输入 数字 字符。");
theForm.Newsx.focus();
return (false);
}
if (theForm.moreline.value == "")
{
alert("请在 列表行距 域中输入值。");
theForm.moreline.focus();
return (false);
}
if (theForm.moreline.value.length < 1)
{
alert("在 列表行距 域中，请至少输入 1 个字符。");
theForm.moreline.focus();
return (false);
}
if (theForm.moreline.value.length > 3)
{
alert("在 列表行距 域中，请最多输入 3 个字符。");
theForm.moreline.focus();
return (false);
}
var checkOK = "0123456789-";
var checkStr = theForm.moreline.value;
var allValid = true;
var validGroups = true;
var decPoints = 0;
var allNum = "";
for (i = 0; i < checkStr.length; i++)
{
ch = checkStr.charAt(i);
for (j = 0; j < checkOK.length; j++)
if (ch == checkOK.charAt(j))
break;
if (j == checkOK.length)
{
allValid = false;
break;
}
allNum += ch;
}
if (!allValid)
{
alert("在 列表行距 域中，只能输入 数字 字符。");
theForm.moreline.focus();
return (false);
}
return (true);
}
//--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" action="admin_set_newsxg.asp?wz=newsxg" name="FrontPage_Form2" onsubmit="return FrontPage_Form2_Validator(this)" language="JavaScript">
<%
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from [config] ",conn,1,1
%>
<tr>
<td bgcolor="#F8F8F8" width="736" align="center" background="../images/bj5.jpg" height="25" colspan="3">
<p align="justify"><a name=newsxg></a><font color="#FFFFFF"><b>新闻相关设置</b></font></td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="112" align="center" background="../images/bj3.jpg" height="25">
<img border="0" src="../images/new.gif" width="28" height="11">时效</td>
<td bgcolor="#F8F8F8" width="376" background="../images/bj3.jpg" height="25">
<p>
<!--webbot bot="Validation" s-display-name="New时效" s-data-type="Integer" s-number-separators="x" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="3" --><input type="text" value='<%=rs("newsx")%>' name="Newsx" size="6" maxlength="3"> 天</p>
</td>
<td bgcolor="#F8F8F8" width="253" background="../images/bj3.jpg" height="25">
多少天内的新添加的新闻将会显示<img border="0" src="../images/new.gif" width="28" height="11">。</td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="112" align="center" background="../images/bj3.jpg" height="25">
评论显示正文下面</td>
<td bgcolor="#F8F8F8" width="376" background="../images/bj3.jpg" height="25">
<select size="1" name="pl">
<option value="0" <% if rs("pl")=0 then Response.Write " selected "%>>不显示</option>
<option value="1" <% if rs("pl")=1 then Response.Write " selected "%>>显示</option>
</select></td>
<td bgcolor="#F8F8F8" width="253" background="../images/bj3.jpg" height="25">
新闻评论是否显示在新闻正文的下面。</td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="112" align="center" background="../images/bj3.jpg" height="25">
显示发表评论表单</td>
<td bgcolor="#F8F8F8" width="376" background="../images/bj3.jpg" height="25">
<select size="1" name="plfb">
<option value="1" <% if rs("plfb")=1 then Response.Write " selected "%>>显示</option>
<option value="0" <% if rs("plfb")=0 then Response.Write " selected "%>>不显示</option>
</select></td>
<td bgcolor="#F8F8F8" width="253" background="../images/bj3.jpg" height="25">
是否在后面显示评论发表的表单。</td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="112" align="center" background="../images/bj3.jpg" height="25">
新闻列表行距</td>
<td bgcolor="#F8F8F8" width="376" background="../images/bj3.jpg" height="25">
<!--webbot bot="Validation" s-display-name="列表行距" s-data-type="Integer" s-number-separators="x" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="3" --><input type="text" value='<%=rs("moreline")%>' name="moreline" size="6" maxlength="3">
pt</td>
<td bgcolor="#F8F8F8" width="253" background="../images/bj3.jpg" height="25">
更多新闻列表行间距。</td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="112" align="center" background="../images/bj3.jpg" height="25">
是否显示搜索条</td>
<td bgcolor="#F8F8F8" width="376" background="../images/bj3.jpg" height="25">
<select size="1" name="ggso">
<option value="1" <% if rs("ggso")=1 then Response.Write " selected "%>>显示</option>
<option value="0" <% if rs("ggso")=0 then Response.Write " selected "%>>不显示</option>
</select></td>
<td bgcolor="#F8F8F8" width="253" background="../images/bj3.jpg" height="25">
是否在下方显示Google的搜索条，建议显示！</td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="112" align="center" background="../images/bj6.jpg" height="25">
新闻关键字搜索<br>
<a href="../so" target=_blank><font color="#0000FF">样例</font></a></td>
<td bgcolor="#F8F8F8" width="376" background="../images/bj6.jpg" height="25">
<textarea rows="4" name="NewsWordKey" style='width:95%' cols="20"><%=rs("NewsWordKey")%></textarea></td>
<td bgcolor="#F8F8F8" width="253" background="../images/bj6.jpg" height="25">
设置后，可以在新闻内容出现关键字的链接，点击后可以搜索该网页或者图片。可以设置多个，请用逗号分隔。</td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="736" align="center" background="../images/bj5.jpg" height="25" colspan="3">
<p align="left"><font color="#FFFFFF">广告设置(赞助)</font></td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="112" align="center" background="../images/bj6.jpg" height="25">
广告显示</td>
<td bgcolor="#F8F8F8" width="376" background="../images/bj6.jpg" height="25">
<select size="1" name="XuasGG">
<option value="1" <% if rs("XuasGG")="1" then Response.Write " selected "%>>显示广告</option>
<option value="0" <% if rs("XuasGG")="0" then Response.Write " selected "%>>不显示广告</option>
</select></td>
<td bgcolor="#F8F8F8" width="253" background="../images/bj6.jpg" height="50" rowspan="2">
本系统本身不需要花费任何钱就可以免费的永久使用，如果你觉得可以，请尽量显示广告吧。</td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="112" align="center" background="../images/bj6.jpg" height="25">
广告显示位置</td>
<td bgcolor="#F8F8F8" width="376" background="../images/bj6.jpg" height="25">
<select size="1" name="XuasGGWZ">
<option value="1" <% if rs("XuasGGWZ")="1" then Response.Write " selected "%>>正文之上</option>
<option value="2" <% if rs("XuasGGWZ")="2" then Response.Write " selected "%>>正文之下</option>
</select></td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="112" align="center" background="../images/bj6.jpg" height="25">
广告效果预览</td>
<td bgcolor="#FFFFFF" width="623" height="25" colspan="2">
<p align="center">
<iframe name='I1' src='http://www.xuas.com/Other/GoogleAD/Google468x60-FFFFFF.asp' marginwidth='1' marginheight='1' height='60' width='468' scrolling='no' border='0' frameborder='0'></iframe></td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="736" background="../images/bj5.jpg" height="25" colspan="3">
<font color="#FFFFFF">IP过滤</font></td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="112" align="center" background="../images/bj6.jpg" height="25">
IP地址</td>
<td bgcolor="#F8F8F8" width="376" background="../images/bj6.jpg" height="25">
<textarea rows="5" name="ZuZiIP" cols="55"><%=rs("zuziip")%></textarea></td>
<td bgcolor="#F8F8F8" width="253" background="../images/bj6.jpg" height="25">
这里的IP将被阻止访问，用回车分隔。<br>
不支持通配符*。</td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="736" align="center" background="../images/bj5.jpg" height="25" colspan="3">
<p align="justify"><font color="#FFFFFF">其它设置</font></td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="112" align="center" background="../images/bj3.jpg" height="25">
留言审核</td>
<td bgcolor="#F8F8F8" width="376" background="../images/bj3.jpg" height="25">
<select size="1" name="lysh">
<option value="1" <% if rs("lysh")=1 then Response.Write " selected "%>>关闭审核</option>
<option value="0" <% if rs("lysh")=0 then Response.Write " selected "%>>打开审核</option>
</select></td>
<td bgcolor="#F8F8F8" width="253" background="../images/bj3.jpg" height="25">
打开审核后，留言不会立即显示出来！</td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="112" align="center" background="../images/bj3.jpg" height="25">
录入员审核</td>
<td bgcolor="#F8F8F8" width="376" background="../images/bj3.jpg" height="25">
<select size="1" name="lrySH">
<option value="1" <% if rs("lrySH")=1 then Response.Write " selected "%>>关闭审核</option>
<option value="0" <% if rs("lrySH")=0 then Response.Write " selected "%>>打开审核</option>
</select></td>
<td bgcolor="#F8F8F8" width="253" background="../images/bj3.jpg" height="25">
录入员的文章是否需要管理员审核？</td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="112" align="center" background="../images/bj3.jpg" height="25">
评论审核</td>
<td bgcolor="#F8F8F8" width="376" background="../images/bj3.jpg" height="25">
<select size="1" name="plsh">
<option value="1" <% if rs("plsh")=1 then Response.Write " selected "%>>关闭审核</option>
<option value="0" <% if rs("plsh")=0 then Response.Write " selected "%>>打开审核</option>
</select></td>
<td bgcolor="#F8F8F8" width="253" background="../images/bj3.jpg" height="25">
游客发布评论是否需要审核才可以显示？</td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="112" align="center" background="../images/bj3.jpg" height="25">
审核员权限</td>
<td bgcolor="#F8F8F8" width="376" background="../images/bj3.jpg" height="25">
<select size="1" name="shyplsh">
<option value="1" <% if rs("shyplsh")=1 then Response.Write " selected "%>>关闭评论审核</option>
<option value="0" <% if rs("shyplsh")=0 then Response.Write " selected "%>>打开评论审核</option>
</select><select size="1" name="shylysh">
<option value="1" <% if rs("shylysh")=1 then Response.Write " selected "%>>关闭留言审核</option>
<option value="0" <% if rs("shylysh")=0 then Response.Write " selected "%>>打开留言审核</option>
</select><select size="1" name="shyggsh">
<option value="1" <% if rs("shyggsh")=1 then Response.Write " selected "%>>关闭公告管理</option>
<option value="0" <% if rs("shyggsh")=0 then Response.Write " selected "%>>打开公告管理</option>
</select></td>
<td bgcolor="#F8F8F8" width="253" background="../images/bj3.jpg" height="25">
审核员是否可以管理评论和留言的审核功能。</td>
</tr>
</table>
<table align=center border="1" cellpadding="3" width="750" id="table3" style="border-collapse: collapse" bordercolor="#C0C0C0">
<tr>
<td bgcolor="#F8F8F8" width="1472" align="center" background="../images/bj5.jpg" height="25" colspan="3">
<p align="justify"><font color="#FFFFFF">百度《互联网新闻开放协议》索引文件提交</font></td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="732" background="../images/bj6.jpg" height="25" colspan="3">
<a target="_blank" href="../xml-BaiDu.xml">xml-BaiDu.xml</a> 点击打开此文件。如果有此文件并可以正常浏览，你可以点击<a target="_blank" href="http://news.baidu.com/newsop.html#ks5">http://news.baidu.com/newsop.html#ks5</a>进行提交。<br>
点击<a target="_blank" href="http://news.baidu.com/newsop.html#ks6"><font color="#0000FF">此处</font></a>验证提交的文件是否被通过。</td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
网站名称</td>
<td bgcolor="#F8F8F8" width="300" background="../images/bj3.jpg" height="25">
<input type="text" name="website" value='<%=rs("website")%>' size="34"></td>
<td bgcolor="#F8F8F8" width="300" background="../images/bj3.jpg" height="25">
</td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
站长联系EMAIL</td>
<td bgcolor="#F8F8F8" width="300" background="../images/bj3.jpg" height="25">
<input type="text" name="WebEmail" value='<%=rs("WebEmail")%>' size="34"></td>
<td bgcolor="#F8F8F8" width="300" background="../images/bj3.jpg" height="25">
必填项，百度提交后审核反馈联系用。</td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="2208" align="center" background="../images/bj3.jpg" height="25" colspan="3">
<input type="submit" value="提交" name="B3"> <input type="reset" value="重置" name="B4"></td>
</tr>
<%
rs.close
set rs=nothing
%></form></table>