📄 admin_set.asp
字号:
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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -