📄 fs_ds_syspara.asp

📁 后台目录:qwbAdmin/Login.asp 登陆用户名:admin 登陆密码:admin
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.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 awen
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Dim Conn,DS_Rs,DS_Sql
Dim AutoDelete,Months
MF_Default_Conn 
MF_Session_TF

dim sRootDir,str_CurrPath
if G_VIRTUAL_ROOT_DIR<>"" then sRootDir="/"+G_VIRTUAL_ROOT_DIR else sRootDir=""
str_CurrPath = sRootDir &"/"&G_TEMPLETS_DIR

Sub Save()
	Dim sysid,Str_Tmp,Arr_Tmp,IndexPage,IsLockTF
	sysid = NoSqlHack(request.Form("sysid"))
	Str_Tmp = "IPType,IPList,OverDueMode,DownDir,IndexTemplet,LinkType,IsDomain,FileNameRule,FileDirRule,ClassSaveType,IndexPage,NewsCheck,FileExtName"
	Arr_Tmp = split(Str_Tmp,",")
	IndexPage = Trim(request.Form("IndexPage_Name"))&"."&Trim(request.Form("IndexPage_ExtName"))
	if trim(Request.Form("FileNameRule_Element_Separator"))<>"" then
		if not chkinputchar(trim(Request.Form("FileNameRule_Element_Separator"))) then
			Response.Redirect("../error.asp?ErrCodes=<li>分割符号只允许为：""0-9""，""A-Z""，""-"",""_"","",""."",""@"",""#""</li>")
			Response.End()
		end if
	End if
	fileNameRule=trim(Request.Form("FileNameRule_Element_Prefix"))&"$"&trim(replace(Request.Form("FileNameRule_Element"),",",""))&"$"&trim(Request.Form("FileNameRule_Rnd"))&"$"&trim(Request.Form("FileNameRule_UseWord"))&"$"&trim(Request.Form("FileNameRule_Element_Separator"))&"$"&trim(Request.Form("FileNameRule_UseDownID"))&"$"&trim(Request.Form("FileNameRule_DownID"))
	IsLockTF = request.Form("Lock")
	If IsLockTF = "" then
		IsLockTF = 0
	Else
		If Not IsNumeric(IsLockTF) then
			IsLockTF = 0
		Else
			IsLockTF = Cint(IsLockTF)
		End If	
	End If	
	DS_Sql = "select top 1 "&Str_Tmp&",IndexPage,FileNameRule,Lock  from FS_DS_SysPara"
	'response.Write(DS_Sql)
	Set DS_Rs = CreateObject(G_FS_RS)
	DS_Rs.Open DS_Sql,Conn,3,3
	if DS_Rs.eof then DS_Rs.AddNew
	for each Str_Tmp in Arr_Tmp
		'response.Write(Str_Tmp&":"&NoSqlHack(request.Form(Str_Tmp))&"<br>")
		DS_Rs("Lock") = IsLockTF
		DS_Rs("IndexPage") = IndexPage
		DS_Rs("FileNameRule")  = fileNameRule
		DS_Rs(Str_Tmp) = NoSqlHack(request.Form(Str_Tmp))
	next
	'response.End()
	DS_Rs.update
	DS_Rs.close
	DSConfig_Cookies
	response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "Down/FS_DS_SysPara.asp" )&"&ErrCodes=<li>恭喜，修改成功。</li>")
End Sub
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<TITLE>FoosunCMS</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
<script language="JavaScript" src="../../FS_Inc/PublicJS.js"></script>
<script language="JavaScript" src="../../FS_Inc/checkJs.js"></script>
<head><body>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  <tr  class="hback">
    <td colspan="10" align="left" class="xingmu" >下载系统参数设置</td>
  </tr>
  <tr  class="hback">
    <td colspan="10" height="25"><a href="FS_DS_SysPara.asp">管理首页</a> </td>
  </tr>
</table>
<%

'******************************************************************
if request.QueryString("Act")="Save" then 
	Call Save
else
	Call Add_Edit_Search		
end if
'******************************************************************
Dim Bol_IsEdit
Dim Lock,IPType,IPList,OverDueMode,IsDomain,FileNameRule,FileDirRule,ClassSaveType,FileExtName
Dim DownDir,IndexTemplet,LinkType,IndexPage,NewsCheck ,FileNameRuleArray,IndexPageArray
Sub Add_Edit_Search()
Bol_IsEdit = false
DS_Sql = "select top 1 Lock,IPType,IPList,OverDueMode,DownDir,IndexTemplet,LinkType,IsDomain,FileNameRule,FileDirRule,ClassSaveType,FileExtName,IndexPage,NewsCheck from FS_DS_SysPara"
Set DS_Rs	= CreateObject(G_FS_RS)
DS_Rs.Open DS_Sql,Conn,1,1
if not DS_Rs.eof then 
	Bol_IsEdit = True
	Lock = DS_Rs("Lock")
	IPType = DS_Rs("IPType")
	IPList = DS_Rs("IPList")
	OverDueMode = DS_Rs("OverDueMode")
	IsDomain = DS_Rs("IsDomain")
	FileNameRule = DS_Rs("FileNameRule")
	FileDirRule = DS_Rs("FileDirRule")
	ClassSaveType = DS_Rs("ClassSaveType")
	FileExtName = DS_Rs("FileExtName")
	IndexPage = DS_Rs("IndexPage")
	NewsCheck = DS_Rs("NewsCheck")
	DownDir = DS_Rs("DownDir")
	IndexTemplet = DS_Rs("IndexTemplet")
	LinkType = DS_Rs("LinkType")
else
	Lock = 1
	IPType = 1
	IPList = ""
	OverDueMode = 1
	IsDomain = ""
	FileNameRule = "FS$YMDHIS$2$1$-$1"
	FileDirRule = 0
	ClassSaveType = 0
	FileExtName = 0
	IndexPage = "index,html"
	NewsCheck = 1	
	DownDir = "Down"
	IndexTemplet = ""
	LinkType = 0
end if
FileNameRuleArray=split(FileNameRule,"$")
IndexPage = replace(IndexPage,",",".")
IndexPageArray=split(IndexPage,".")
%>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  <form name="Form" id="Form" method="post" action="?Act=Save">
    <tr  class="hback">
      <td colspan="3" align="left" class="xingmu" >系统参数设置信息</td>
    </tr>
    <tr  class="hback">
      <td width="110" align="right">是否加防盗链</td>
      <td><input <% if Lock=1 then Response.Write("Checked") %>  name="Lock" type="checkbox" id="Lock" value="1">
        <input name="IPList" type="hidden" id="IPList">
      </td>
    </tr>
    <tr  class="hback">
      <td align="right">类型</td>
      <td><select name="IPType">
          <%=PrintOption(IPType,"1:阻止列表,2:允许列表")%>
        </select>
      </td>
    </tr>
    <tr  class="hback">
      <td align="right">IP地址列表</td>
      <td><select name="IPSelectList" size="10" multiple id="IPSelectList" style="width:60%;">
          <%
		  Dim TempArray,i
		  if Not IsNull(IPList) and IPList<>"" then
			  TempArray = Split(IPList,"$")
			  for i=LBound(TempArray) to UBound(TempArray)
			  %>
          <option value="<% = TempArray(i) %>">
          <% = TempArray(i) %>
          </option>
          <%
			  Next
		  end if
		  %>
        </select></td>
    </tr>
    <tr  class="hback">
      <td align="right">起始IP</td>
      <td><input name="BeginIP" type="text" id="BeginIP">
        ---
        <input name="EndIP" type="text" id="EndIP">
        <input type="button" onClick="AddIPList();" name="Submit3" value=" 添 加 ">
        <input type="button" onClick="DelIPList();" name="Submit4" value=" 删 除 ">
      </td>
    </tr>
    <tr  class="hback">
      <td align="right">过期下载处理方式</td>
      <td><select name="OverDueMode">
          <%=PrintOption(OverDueMode,"1:删除,2:提示已过期")%>
        </select>
      </td>
    </tr>
    </tr>
    
    <!--新加的--->
    <tr class="hback">
      <td align="right"> 系统前台目录：</td>
      <td><input name="DownDir" type="text" id="DownDir" value="<%=DownDir%>" size="50" maxlength="20">
        <font color="red">*</font><span id="span_DownDir_Alert"></span></td>
    </tr>
    <tr class="hback">
      <td align="right">启用二级域名：</td>
      <td><input name="IsDomain" type="text" id="IsDomain" value="<%=isDomain%>" size="50">
        <br>
        格式：Down.foosun.cn，不带&quot;http://&quot;或者虚拟目录，后面不带&quot;/&quot;.如果不开启二级域名，空保持为空</td>
    </tr>
    <tr class="hback">
      <td align="right">首页模板地址：</td>
      <td><input name="IndexTemplet" type="text" id="IndexTemplet" size="50" value="<%=indexTemplet%>">
        <input name="bnt_NewsTemplet" type="button" id="bnt_NewsTemplet" value="选择模板"  onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectTemplet.asp?CurrPath=<%=str_CurrPath %>',400,300,window,document.Form.IndexTemplet);document.Form.IndexTemplet.focus();">
        <span class="style2">*</span><span id="span_IndexTemplet_Alert"></span></td>
    </tr>
    <tr class="hback">
      <td align="right">连接路径：</td>
      <td><input type="radio" name="LinkType" value="1" <%if linkType=1 then Response.Write("checked")%>>
        绝对路径
        <input name="LinkType" type="radio" value="0" <%if linkType=0 then Response.Write("checked")%>>
        相对路径 </td>
    </tr>
    <tr class="hback">
      <td align="right">文件名前缀：</td>
      <td><input name="FileNameRule_Element_Prefix" type="text" id="FileNameRule_Element_Prefix" value="<%=FileNameRuleArray(0)%>" size="50" maxlength="10"></td>
    </tr>
    <tr class="hback">
      <td align="right">文件名参数：</td>
      <td><input name="FileNameRule_Element" type="checkbox" id="FileNameRule_Element" value="Y" <%if instr(FileNameRuleArray(1),"Y")>0 then Response.Write("checked")%>>
        年
        <input name="FileNameRule_Element" type="checkbox" id="FileNameRule_Element" value="M" <%if instr(FileNameRuleArray(1),"M")>0 then Response.Write("checked")%>>
        月
        <input name="FileNameRule_Element" type="checkbox" id="FileNameRule_Element" value="D" <%if instr(FileNameRuleArray(1),"D")>0 then Response.Write("checked")%>>
        日
        <input name="FileNameRule_Element" type="checkbox" id="FileNameRule_Element" value="H" <%if instr(FileNameRuleArray(1),"H")>0 then Response.Write("checked")%>>
        时
        <input name="FileNameRule_Element" type="checkbox" id="FileNameRule_Element" value="I" <%if instr(FileNameRuleArray(1),"I")>0 then Response.Write("checked")%>>
        分
        <input name="FileNameRule_Element" type="checkbox" id="FileNameRule_Element" value="S" <%if instr(FileNameRuleArray(1),"S")>0 then Response.Write("checked")%>>
        秒 <br>
        <input type="radio" name="FileNameRule_Rnd" id="FileNameRule_Rnd" value="2" <%if FileNameRuleArray(2)="2" then Response.Write("checked")%>>
        2位随机数
        <input type="radio" name="FileNameRule_Rnd" id="FileNameRule_Rnd" value="3" <%if FileNameRuleArray(2)="3" then Response.Write("checked")%>>
        3位随机数
        <input type="radio" name="FileNameRule_Rnd" id="FileNameRule_Rnd" value="4" <%if FileNameRuleArray(2)="4" then Response.Write("checked")%>>
        4位随机数
        <input type="radio" name="FileNameRule_Rnd" id="FileNameRule_Rnd" value="5" <%if FileNameRuleArray(2)="5" then Response.Write("checked")%>>
        5位随机数
        <input name="FileNameRule_UseWord" type="checkbox" id="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="FileNameRule_Element_Separator" type="text" id="FileNameRule_Element_Separator" size="50" value="<%=FileNameRuleArray(4)%>"></td>
    </tr>
    <tr class="hback">
      <td align="right">是否使用自动ID： </td>
      <td><input type="radio" name="FileNameRule_UseDownID" value="1" <%if ubound(FileNameRuleArray)>=5 then if FileNameRuleArray(5)="1" then Response.Write("checked")%> onClick="clearAll('FileNameRule_Rnd','FileNameRule_UseWord')">
        是
        <input type="radio" name="FileNameRule_UseDownID" value="0" <%if Ubound(FileNameRuleArray)>=5 then if FileNameRuleArray(5)="0" then Response.Write("checked")%> onClick="checkIt('FileNameRule_Rnd','FileNameRule_UseWord')">
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -