📄 admin_set.asp
字号:
if (ch == checkOK.charAt(j))
break;
if (j == checkOK.length)
{
allValid = false;
break;
}
allNum += ch;
}
if (!allValid)
{
alert("在 New时效 域中，只能输入 数字 字符。");
theForm.Newsx.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;
}
return (true);
}
function show(i){
if (i.style.display == "none") {
i.style.display = "";
}else{
i.style.display = "none";
}
}
//--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" action="?action=saveset" onSubmit="return FrontPage_Form2_Validator(this)" language="JavaScript" name="FrontPage_Form2">
<%
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from [config] ",conn,1,1
%>
<tr>
<td align="center" class="bg_tr" height="25" colspan="2"><b>新闻相关设置</b></td>
</tr>
<tr bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>时效</u></b><br>多少天内的新添加的新闻将会显示<img border="0" src="../images/new.gif" width="28" height="11"></td>
<td height="25"> <!--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"> 天 </td>
</tr>
<tr bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>评论审核</u></b><br>游客发布<span class="redtext">评论是否需要审核</span>才可以显示</td>
<td 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>
</tr>
<tr bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>长文章分页符号</u></b><br>
<span class="redtext">在录入长文章时，插入这个分页符后，就可以对长文章进行分页显示</span></td>
<td height="25">
<%
if rs("nextpage")="" then
nextpage="$$分页$$"
else
nextpage=rs("nextpage")
end if
%>
<input name="nextpage" type="text" value="<%=nextpage%>" size="20" maxlength="20"></td>
</tr>
<tr bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>分页样式</u></b><br>分页样式，供不同管理员喜好而定</td>
<td height="25"> <select size="1" name="page_css">
<option value="1" <% if rs("page_css")="1" then Response.Write " selected "%>>①共[N]页 第[1]页、第[2]页...第[N]页</option>
<option value="2" <% if rs("page_css")="2" then Response.Write " selected "%>>②第[M]页 [上一页] [下一页] 共[N]页</option>
<option value="3" <% if rs("page_css")="3" then Response.Write " selected "%>>③上一页[1][2][3]...[N]下一页</option>
<option value="4" <% if rs("page_css")="4" then Response.Write " selected "%>>④< <<[1][2][3][4]...>> ></option>
</select></td>
</tr>
<tr bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>新闻内容关键字搜索</u></b><br>
<span class="greentext">新闻内容是否产生关键字搜索</span></td>
<td height="25">
<select size="1" name="NewsWordKeyon" onChange="show(NewsWord)">
<option value="0" <% if rs("NewsWordKeyon")=0 then Response.Write " selected "%>>不产生新闻内容关键字搜索</option>
<option value="1" <% if rs("NewsWordKeyon")=1 then Response.Write " selected "%>>产生新闻内容关键字搜索</option>
</select></td>
</tr>
<tr >
<td colspan="2">
<div id="NewsWord" style="DISPLAY: <%if rs("NewsWordKeyon")=0 then response.write "none"%>">
<table width="100%" border=0 align=center cellPadding=0 cellSpacing=0 bgcolor="#C4D8ED" bordercolor="#FF0066">
<tr>
<td width=32% align=left class="forumRow"><b><u>新闻内容关键字搜索</u></b><br>设置后，<span class="greentext">可以在新闻内容出现关键字的链接</span>，点击后可以搜索该网页或者图片。可以设置多个，<span class="redtext">请用逗号分隔</span>。<a href="../so" target=_blank><font color="#0000FF">样例</font></a></td>
<td width="68%" height="25" class="forumRow"> <textarea rows="4" name="NewsWordKey" style='width:95%' cols="20"><%=rs("NewsWordKey")%></textarea></td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td align="center" class="bg_tr" height="25" colspan="2"><b>生成静态设置</b></td>
</tr>
<tr bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width="32%" align=left><strong>是否生成静态的网站首页：</strong><br>
<span class="greentext">可以选择静态页面的扩展名</span></td>
<td height="25"><input <% IF rs("FsoIndexFile") = "0" Then Response.Write "Checked" %> type="radio" id="index1" name="FsoIndexFile" value="0"><label for="index1">是 </label>
<input <% IF rs("FsoIndexFile") = "1" Then Response.Write "Checked" %> id="index2" type="radio" name="FsoIndexFile" value="1"><label for="index2">否 </label></td>
</tr>
<tr bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width="32%" align=left><strong>是否生成静态的文章列表：</strong><br>
<span class="greentext">可以选择静态页面的扩展名</span></td>
<td height="25"><input <% IF rs("listHtml") = "0" Then Response.Write "Checked" %> type="radio" id="list1" name="listHtml" value="0"><label for="list1">是 </label>
<input <% IF rs("listHtml") = "1" Then Response.Write "Checked" %> id="list2" type="radio" name="listHtml" value="1"><label for="list2">否 </label></td>
</tr>
<tr bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>是否生成静态的内容页</u></b><br>
<span class="greentext">录入的新闻是否要生成静态网页</span></td>
<td height="25">
<select size="1" name="file_html" onChange="show(set_html)">
<option value="0" <% if rs("file_html")=0 then Response.Write " selected "%>>不生成静态网页</option>
<option value="1" <% if rs("file_html")=1 then Response.Write " selected "%>>生成静态网页</option>
</select></td>
</tr>
<tr bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left ><b><u>静态页面的扩展名</u></b><br>生成静态页面文件的扩展名</td>
<td height="25">
<select size="1" name="file_type">
<option value="htm" <% if rs("file_type")="htm" then Response.Write " selected "%>>.htm-静态网页</option>
<option value="html" <% if rs("file_type")="html" then Response.Write " selected "%>>.html-静态网页</option>
<option value="asp" <% if rs("file_type")="asp" then Response.Write " selected "%>>.asp-动态网页</option>
<option value="shtml" <% if rs("file_type")="shtml" then Response.Write " selected "%>>.shtml-静态网页</option>
</select></td>
</tr>
<tr >
<td colspan="2">
<div id="set_html" style="DISPLAY: <%if rs("file_html")=0 then response.write "none"%>">
<table width="100%" border=0 align=center cellPadding=0 cellSpacing=0 bgcolor="#C4D8ED" bordercolor="#FF0066">
<tr>
<td width=32% align=left class="forumRaw"><b><u>静态内容页命名规则</u></b><br>生成静态网页文件的命名规则。<span class="greentext">(自动用年月日和时间的数字来形成存放的目录和文件名)</span></td>
<td height="25" class="forumRaw">
<select size="1" name="file_rule">
<option value="html/栏目/年月日时间.扩展名" <% if rs("file_rule")="html/栏目/年月日时间.扩展名" then Response.Write " selected "%>>html/栏目/年月日时间.扩展名</option>
<option value="html/栏目/年-月-日/时间.扩展名" <% if rs("file_rule")="html/栏目/年-月-日/时间.扩展名" then Response.Write " selected "%>>html/栏目/年-月-日/时间.扩展名</option>
<option value="html/栏目/年/月/月-日/时间.扩展名" <% if rs("file_rule")="html/栏目/年/月/月-日/时间.扩展名" then Response.Write " selected "%>>html/栏目/年/月/月-日/时间.扩展名</option>
<option value="html/栏目/年/月/日/时间.扩展名" <% if rs("file_rule")="html/栏目/年/月/日/时间.扩展名" then Response.Write " selected "%>>html/栏目/年/月/日/时间.扩展名</option>
<option value="html/栏目/年/年-月/日时间.扩展名" <% if rs("file_rule")="html/栏目/年/年-月/日时间.扩展名" then Response.Write " selected "%>>html/栏目/年/年-月/日时间.扩展名</option>
<option value="html/栏目/年/月-日/时间.扩展名" <% if rs("file_rule")="html/栏目/年/月-日/时间.扩展名" then Response.Write " selected "%>>html/栏目/年/月-日/时间.扩展名</option>
<option value="html/栏目/年/年-月/年-月-日/时间.扩展名" <% if rs("file_rule")="html/栏目/年/年-月/年-月-日/时间.扩展名" then Response.Write " selected "%>>html/栏目/年/年-月/年-月-日/时间.扩展名</option>
<option value="html/栏目/年/年-月-日/时间.扩展名" <% if rs("file_rule")="html/栏目/年/年-月-日/时间.扩展名" then Response.Write " selected "%>>html/栏目/年/年-月-日/时间.扩展名</option>
</select></td>
</tr>
</table>
</div>
</td></tr>
<tr >
<td align="center" class="bg_tr" height="25" colspan="2"><b>首页图片设置</b></td>
</tr>
<tr bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>首页图片类型</u></b><br>选择首页图片类型</td>
<td height="22"> <select size="1" name="top_pic">
<option value="1" <% if rs("top_pic")="1" then Response.Write " selected "%>>图片</option>
<option value="2" <% if rs("top_pic")="2" then Response.Write " selected "%>>Flash</option>
</select></td>
</tr>
<tr bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>图片地址</u></b><br>可以上传图片，也可以上传flash<br> 注：<span class="redtext">图片、flash要统一尺寸宽：618 高：257</span></td>
<td height="22"> <iframe name="ad" frameborder=0 width=250 height=25 scrolling=no src=uploadtop.asp></iframe><br> <input id="top_pic_url" name="top_pic_url" value="<%=rs("top_pic_url")%>" size="45" class="Input_1" maxlength="255" style="font-family: 宋体; font-size: 9pt" title="您可以上传图片，也可以上传flash。">
<input type="button" name="Button" value="从已上传图片选择" onClick="javascript:window.open('selectupfile.asp?UrlID=3', 'selupfile', 'width=800, height=600, toolbar=no, menubar=no, scrollbars=yes, resizable=no, location=no, status=yes');" style="cursor: hand;background-color:#DEDDEA"></td>
</tr>
<tr>
<td align="center" class="bg_tr" height="25" colspan="2"><b>IP过滤</b></td>
</tr>
<tr bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>IP地址</u></b><br>这里的IP将被阻止访问，用回车分隔。<br>不支持通配符*。</td>
<td height="25"><textarea rows="5" name="ZuZiIP" cols="55"><%=rs("zuziip")%></textarea></td>
</tr>
<tr>
<td align="center" class="bg_tr" height="25" colspan="2"><b>百度《互联网新闻开放协议》索引文件提交</b></td>
</tr>
<tr bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left colspan="2"> <a target="_blank" href="../xml-BaiDu.xml">xml-BaiDu.xml</a> <span class="redtext">点击打开此文件</span>。如果有此文件并可以正常浏览，你可以点击<a target="_blank" href="http://news.baidu.com/newsop.html#ks5">http://news.baidu.com/newsop.html#ks5</a>进行提交。<br>
<span class="greentext">点击<a target="_blank" href="http://news.baidu.com/newsop.html#ks6"><font color="#0000FF">此处</font></a>验证提交的文件是否被通过</span>。</td>
</tr>
<tr bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>网站名称</u></b></td>
<td height="25"><input type="text" name="website" value='<%=rs("website")%>' size="34"></td>
</tr>
<tr bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>站长联系EMAIL</u></b><br>
<span class="redtext">必填项，百度提交后审核反馈联系用</span></td>
<td height="25"><input type="text" name="WebEmail" value='<%=rs("WebEmail")%>' size="34"></td>
</tr>
<tr>
<td align="center" class="bg_tr" height="25" colspan="2"><b>其它设置</b></td>
</tr>
<tr bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>Digg开关</u></b><br>
<span class="redtext">是否开Digg功能</span></td>
<td height="25"> <select size="1" name="ArtCMS_Digg">
<option value="1" <% if rs("ArtCMS_Digg")=1 then Response.Write " selected "%>>关闭Digg</option>
<option value="0" <% if rs("ArtCMS_Digg")=0 then Response.Write " selected "%>>打开Digg</option>
</select></td>
</tr>
<tr bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>是否允许游客DIGG</u></b> </td>
<td height="25">
<select size="1" name="IsUse">
<option value="1" <% if rs("IsUse")=1 then Response.Write " selected "%>>不允许</option>
<option value="0" <% if rs("IsUse")=0 then Response.Write " selected "%>>允许</option>
</select></td>
</tr>
<tr bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>新闻专题</u></b><br>是否在首页显示专题栏目</td>
<td height="25"> <select size="1" name="showzt">
<option value="1" <% if rs("showzt")=1 then Response.Write " selected "%>>关闭专题</option>
<option value="0" <% if rs("showzt")=0 then Response.Write " selected "%>>打开专题</option>
</select></td>
</tr>
<tr>
<td height="40" colspan="2" align="center" class="tableBorder">
<input type="submit" value=" 提 交 " name="B3"> <input type="reset" value=" 重 置 " name="B4"></td>
</tr>
</form>
</table>
<%
rs.close:set rs=nothing
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -