📄 sysparaset.asp
字号:
<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_Inc/md5.asp" -->
<!--#include file="lib/cls_main.asp" -->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_InterFace/ns_Function.asp" -->
<!--#include file="../../FS_Inc/Function.asp" -->
<%'Copyright (c) 2006 Foosun Inc. Code by Einstein.Liu
'FileNameRuleArray:新闻文件静态文件生成规则,用数组的形式将各个参数分开
'IndexPageArray:首页文件名及扩展名,用数组的形式将各个参数分开,1:首页名；2扩展名
'RefreshFileArray:系统多少分钟自动刷新首页,系统多少分钟刷新分类,用数组的形式将各两个参数分开
Dim Conn,Fs_News,FileNameRuleArray,sRootDir,str_CurrPath
MF_Default_Conn
MF_Session_TF
if not MF_Check_Pop_TF("NS_Param") then Err_Show
if not MF_Check_Pop_TF("NS049") then Err_Show
if G_VIRTUAL_ROOT_DIR<>"" then sRootDir="/"+G_VIRTUAL_ROOT_DIR else sRootDir=""
If Session("Admin_Is_Super") = 1 then
str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR
Else
If Session("Admin_FilesTF") = 0 Then
str_CurrPath = Replace(sRootDir &"/"&G_UP_FILES_DIR&"/adminfiles/"&UCase(md5(Session("Admin_Name"),16)),"//","/")
Else
str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR
End If
End if
Set Fs_News=New Cls_news
Fs_News.GetSysParam()
if err.number>0 then
Response.Redirect("lib/error.asp?ErrCodes=<li>请先初试化数据库</li>")
Response.End()
end if
FileNameRuleArray=split(Fs_News.fileNameRule,"$")
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<TITLE>FoosunCMS</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<style type="text/css">
<!--
.style1 {font-weight: bold}
.style2 {color: #FF0000}
-->
</style>
</HEAD>
<link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
<BODY>
<script language="JavaScript" src="js/CheckJs.js" type="text/JavaScript"></script>
<script language="JavaScript" src="js/Public.js" type="text/javascript"></script>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1"></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
<form action="SetSysParaAction.asp?Act=SetSysPara_Action" method="post" name="SysParaForm" id="SysParaForm">
<tr>
<td align="left" colspan="2" class="xingmu"><a href="#" onMouseOver="this.T_BGCOLOR='#404040';this.T_FONTCOLOR='#FFFFFF';return escape('<div align=\'center\'>FoosunCMS4.0<br> Code by 刘南兵 <BR>Copyright (c) 2006 Foosun Inc</div>')" class="sd"><strong><% = Fs_news.allInfotitle %>系统参数设置</strong></a> <a href="../../help?Lable=News_Manage" target="_blank" style="cursor:help;'" class="sd">帮助</a></td>
</tr>
<tr class="hback">
<td width="17%" align="right"><% = Fs_news.allInfotitle %>系统站点标题：</td>
<td width="83%"><input name="txt_SiteName" type="text" id="txt_SiteName" size="50" value="<%=Fs_News.siteName%>">
<span class="style2">*</span><span id="span_SiteName_Alert"></span></td>
</tr>
<tr class="hback">
<td align="right">站点关键字： </td>
<td><textarea name="txt_KeyWords" style="width:80%" rows="5" id="txt_KeyWords" onKeyUp="ReplaceDot('txt_KeyWords')"><%=Fs_News.keywords%></textarea></td>
</tr>
<tr class="hback">
<td align="right"> <% = Fs_news.allInfotitle %>系统前台目录：</td>
<td><input name="txt_NewsDir" type="text" id="txt_NewsDir" value="<%=Fs_News.newsDir%>" size="50">
<span class="style2">*</span><span id="span_NewsDir_Alert"></span>如放在根目录下请使用“/”</td>
</tr>
<tr class="hback">
<td align="right">启用二级域名：</td>
<td>
<input name="rad_IsDomain" type="text" id="rad_IsDomain" value="<%=Fs_News.isDomain%>" size="50">
<br>
格式：News.foosun.cn，不带"http://"或者虚拟目录，后面不带"/".如果不开启二级域名，空保持为空</td>
</tr>
<tr class="hback">
<td align="right"> <% = Fs_news.allInfotitle %>\目录删除设置：</td>
<td align="left"> <input type="radio" name="rad_ReycleTF" value="1" <%if Fs_News.reycleTf=1 then Response.Write("checked")%>>
转入回收站
<input type="radio" name="rad_ReycleTF" value="0" <%if Fs_News.reycleTf=0 then Response.Write("checked")%>>
彻底删除 </td>
</tr>
<tr class="hback">
<td align="right"><% = Fs_news.allInfotitle %>文件名前缀：</td>
<td> <input name="txt_FileNameRule_Element_Prefix" type="text" id="txt_FileNameRule_Element_Prefix" size="50" value="<%=FileNameRuleArray(0)%>"></td>
</tr>
<tr class="hback">
<td align="right"><% = Fs_news.allInfotitle %>文件名参数：</td>
<td> <input name="chk_FileNameRule_Element" type="checkbox" id="chk_FileNameRule_Element" value="Y" <%if instr(FileNameRuleArray(1),"Y")>0 then Response.Write("checked")%>>
年
<input name="chk_FileNameRule_Element" type="checkbox" id="chk_FileNameRule_Element" value="M" <%if instr(FileNameRuleArray(1),"M")>0 then Response.Write("checked")%>>
月
<input name="chk_FileNameRule_Element" type="checkbox" id="chk_FileNameRule_Element" value="D" <%if instr(FileNameRuleArray(1),"D")>0 then Response.Write("checked")%>>
日
<input name="chk_FileNameRule_Element" type="checkbox" id="chk_FileNameRule_Element" value="H" <%if instr(FileNameRuleArray(1),"H")>0 then Response.Write("checked")%>>
时
<input name="chk_FileNameRule_Element" type="checkbox" id="chk_FileNameRule_Element" value="I" <%if instr(FileNameRuleArray(1),"I")>0 then Response.Write("checked")%>>
分
<input name="chk_FileNameRule_Element" type="checkbox" id="chk_FileNameRule_Element" value="S" <%if instr(FileNameRuleArray(1),"S")>0 then Response.Write("checked")%>>
秒 <br> <input type="radio" name="rad_FileNameRule_Rnd" id="rad_FileNameRule_Rnd" value="2" <%if FileNameRuleArray(2)="2" then Response.Write("checked")%>>
2位随机数
<input type="radio" name="rad_FileNameRule_Rnd" id="rad_FileNameRule_Rnd" value="3" <%if FileNameRuleArray(2)="3" then Response.Write("checked")%>>
3位随机数
<input type="radio" name="rad_FileNameRule_Rnd" id="rad_FileNameRule_Rnd" value="4" <%if FileNameRuleArray(2)="4" then Response.Write("checked")%>>
4位随机数
<input type="radio" name="rad_FileNameRule_Rnd" id="rad_FileNameRule_Rnd" value="5" <%if FileNameRuleArray(2)="5" then Response.Write("checked")%>>
5位随机数
<input name="chk_FileNameRule_UseWord" type="checkbox" id="chk_FileNameRule_UseWord" value="1" <%if ubound(FileNameRuleArray)>=3 then if FileNameRuleArray(3)="1" then Response.Write("checked")%>>
是否组合字母 </td>
</tr>
<tr class="hback">
<td align="right">分割符号：</td>
<td> <input name="txt_FileNameRule_Element_Separator" type="text" id="txt_FileNameRule_Element_Separator" size="50" value="<%=FileNameRuleArray(4)%>"></td>
</tr>
<tr class="hback">
<td align="right">是否使用<% = Fs_news.allInfotitle %>ID：</td>
<td> <input type="radio" name="rad_FileNameRule_UseNewsID" value="1" <%if ubound(FileNameRuleArray)>=5 then if FileNameRuleArray(5)="1" then Response.Write("checked")%> onClick="clearAll('rad_FileNameRule_Rnd','chk_FileNameRule_UseWord')">
是
<input type="radio" name="rad_FileNameRule_UseNewsID" value="0" <%if Ubound(FileNameRuleArray)>=5 then if FileNameRuleArray(5)="0" then Response.Write("checked")%> onClick="checkIt('rad_FileNameRule_Rnd','chk_FileNameRule_UseWord')">
否 </td>
</tr>
<tr class="hback">
<td align="right">是否使用NewsID</td>
<td> <input type="radio" name="rad_FileNameRule_NewsID" value="1" <%if ubound(FileNameRuleArray)>=6 then if FileNameRuleArray(6)="1" then Response.Write("checked")%> onClick="clearAll('rad_FileNameRule_Rnd','chk_FileNameRule_UseWord')">
是
<input type="radio" name="rad_FileNameRule_NewsID" value="0" <%if Ubound(FileNameRuleArray)>=6 then if FileNameRuleArray(6)="0" then Response.Write("checked")%> onClick="checkIt('rad_FileNameRule_Rnd','chk_FileNameRule_UseWord')">
否 </td>
</tr>
<tr class="hback">
<td align="right">目录生成规则：</td>
<td>
<input name="rad_FileDirRule" type="radio" value="0" onClick="show_FileDirRule_Detail(this.value)" <%if Fs_News.fileDirRule=0 then Response.Write("checked")%>>
规则1
<input type="radio" name="rad_FileDirRule" value="1" onClick="show_FileDirRule_Detail(this.value)" <%if Fs_News.fileDirRule=1 then Response.Write("checked")%>>
规则2
<input type="radio" name="rad_FileDirRule" value="2" onClick="show_FileDirRule_Detail(this.value)" <%if Fs_News.fileDirRule=2 then Response.Write("checked")%>>
规则3
<input type="radio" name="rad_FileDirRule" value="3" onClick="show_FileDirRule_Detail(this.value)" <%if Fs_News.fileDirRule=3 then Response.Write("checked")%>>
规则4
<input type="radio" name="rad_FileDirRule" value="4" onClick="show_FileDirRule_Detail(this.value)" <%if Fs_News.fileDirRule=4 then Response.Write("checked")%>>
规则5
<input type="radio" name="rad_FileDirRule" value="5" onClick="show_FileDirRule_Detail(this.value)" <%if Fs_News.fileDirRule=5 then Response.Write("checked")%>>
规则6
<input type="radio" name="rad_FileDirRule" value="6" onClick="show_FileDirRule_Detail(this.value)" <%if Fs_News.fileDirRule=6 then Response.Write("checked")%>>
规则7
<input type="radio" name="rad_FileDirRule" value="7" onClick="show_FileDirRule_Detail(this.value)" <%if Fs_News.fileDirRule=7 then Response.Write("checked")%>>
规则8
<br /><span id="span_FileDirRule" style="color:blue"></span></td>
</tr>
<tr class="hback">
<td align="right">首页生成规则：</td>
<td> <input name="rad_ClassSaveType" type="radio" value="0" onClick="show_ClassSaveType_Detail(this.value)" <%if Fs_News.classSaveType=0 then Response.Write("checked")%>>
规则1
<input type="radio" name="rad_ClassSaveType" value="1" onClick="show_ClassSaveType_Detail(this.value)" <%if Fs_News.classSaveType=1 then Response.Write("checked")%>>
规则2
<input type="radio" name="rad_ClassSaveType" value="2" onClick="show_ClassSaveType_Detail(this.value)" <%if Fs_News.classSaveType=2 then Response.Write("checked")%>>
规则3 <span id="span_ClassSaveType" style="color:blue"></span> </td>
</tr>
<tr class="hback">
<td align="right">首页文件名：</td>
<td><input name="txt_IndexPage_Name" type="text" id="txt_IndexPage_Name" size="50" value="<%=Fs_News.indexPage%>">
<span class="style2">*</span><span id="span_IndexPage_Name_Alert"></span></td>
</tr>
<tr class="hback">
<td align="right"><% = Fs_news.allInfotitle %>站文件扩展名：</td>
<td>
<select name="rad_FileExtName" id="rad_FileExtName">
<option value="0" <%if Fs_News.fileExtName=0 then Response.Write("selected")%>>html</option>
<option value="1" <%if Fs_News.fileExtName=1 then Response.Write("selected")%>>htm</option>
<option value="2" <%if Fs_News.fileExtName=2 then Response.Write("selected")%>>shtml</option>
<option value="3" <%if Fs_News.fileExtName=3 then Response.Write("selected")%>>shtm</option>
<option value="4" <%if Fs_News.fileExtName=4 then Response.Write("selected")%>>asp</option>
</select> </td>
</tr>
<tr class="hback">
<td align="right">允许<% = Fs_news.allInfotitle %>发布：</td>
<td> <input name="rad_isOpen" type="radio" value="1" <%if Fs_News.isOpen=1 then Response.Write("checked")%>>
是
<input type="radio" name="rad_isOpen" value="0" <%if Fs_News.isOpen=0 then Response.Write("checked")%>>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -