📄 act.sys.asp
字号:
<!--#include file="ACT.Function.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Act内容管理系统</title>
<link href="Images/css1/css.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/javascript" src="../ACT_inc/Prototype.js"></script>
<script language="JavaScript" type="text/javascript" src="../ACT_inc/ActHelp.js"></script>
<style type="text/css"><!--
.STYLE1 {color: #FF0000}
.STYLE2 {color: #FF6600}
-->
</style></head>
<body>
<%
If Not ACTCMS.ChkAdmin() Then '超级管理员检测
Call Actcms.ACTCMSErr("")
End If
Public Function AutoDomain()
Dim TempPath
If Request.ServerVariables("SERVER_PORT") = "80" Then
AutoDomain = Request.ServerVariables("SERVER_NAME")
Else
AutoDomain = Request.ServerVariables("SERVER_NAME") & ":" & Request.ServerVariables("SERVER_PORT")
End If
If Instr(UCASE(AutoDomain),"/W3SVC")<>0 Then
AutoDomain=Left(AutoDomain,Instr(AutoDomain,"/W3SVC"))
End If
AutoDomain = "http://" & AutoDomain
End Function
Function FSOSaveFile(Templetcontent,FileName)
on error resume next
Dim FileFSO,FileType
Set FileFSO = Server.CreateObject("ADODB.Stream")
With FileFSO
.Type = 2
.Mode = 3
.Open
.Charset = "gb2312"
.Position = FileFSO.Size
.WriteText Templetcontent
.SaveToFile Server.MapPath(FileName),2
If Err.Number<>0 Then
Err.Clear
Exit Function
End If
.Close
End With
Set FileType = nothing
Set FileFSO = nothing
End Function
dim strDir,strAdminDir,InstallDir
strDir=Trim(request.ServerVariables("SCRIPT_NAME"))
strAdminDir=split(strDir,"/")(Ubound(split(strDir,"/"))-1) & "/"
InstallDir=left(strDir,instr(lcase(strDir),"/"&Lcase(strAdminDir)))
If Instr(UCASE(InstallDir),"/W3SVC")<>0 Then
InstallDir=Left(InstallDir,Instr(InstallDir,"/W3SVC"))
End If
Set Rs=server.CreateObject("adodb.recordset")
Dim Rs,ActCMS_SysSetting,ActCMS_OtherSetting,ActCMS_WatermarkSetting,MakeJs
Rs.OPen "Select * from Config_ACT",Conn,1,3
IF Request.QueryString("Action") = "Save" Then
dim i,SysSetting,OtherSetting,WatermarkSetting
For I=0 To 18
SysSetting=SysSetting& Replace(request.Form("ActCMS_SysSetting" & I &""),"^@$@^","") & "^@$@^"
Next
For I=0 To 8
OtherSetting=OtherSetting& Replace(request.Form("ActCMS_OtherSetting" & I &""),"^@&@^","") & "^@&@^"
Next
For I=0 To 17
WatermarkSetting=WatermarkSetting& Replace(request.Form("ActCMS_WatermarkSetting" & I &""),"^@*&*@^","") & "^@*&*@^"
Next
ActCMS_SysSetting=Split(SysSetting,"^@$@^")
ActCMS_OtherSetting=Split(OtherSetting,"^@&@^")
ActCMS_WatermarkSetting=Split(WatermarkSetting,"^@*&*@^")
IF Ubound(Split(WatermarkSetting,"^@*&*@^"))<>18 Or Ubound(Split(SysSetting,"^@$@^"))<>19 Or Ubound(Split(OtherSetting,"^@&@^"))<>9 then
response.Write "数据获取错误.请不要外部提交!"
response.end
End If
Rs("ActCMS_SysSetting")=SysSetting
Rs("ActCMS_OtherSetting")=OtherSetting
Rs("ActCMS_WatermarkSetting")=WatermarkSetting
Rs.Update:Application.Contents.RemoveAll
Call FSOSaveFile(Replace(Rs("helpjs"),"{ACTCMS}",InstallDir),InstallDir&"ACT_inc/ActHelp.js")
Rs.Close:Set Rs = Nothing
Call Actcms.ActErr("修改成功 <a href=ACT.Sys.asp>点击这里返回管理首页</a>","4")
Else
ActCMS_SysSetting=Split(Rs("ActCMS_SysSetting"),"^@$@^")
ActCMS_OtherSetting=Split(Rs("ActCMS_OtherSetting"),"^@&@^")
ActCMS_WatermarkSetting=Split(Rs("ActCMS_WatermarkSetting"),"^@*&*@^")
%>
<form id="LoveShe" name="LoveShe" method="post" action="?action=Save">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
<tr>
<td colspan="2" class="bg_tr">您现在的位置：>>网 站 信 息 配 置 </td>
</tr>
<tr>
<td width="298" align="right">网站名称：</td>
<td width="664"><input name="ActCMS_SysSetting0" type="text" id="SiteName" value="<%= ActCMS_SysSetting(0) %>" size="40">
<span class="h" style="cursor:help;" onclick="Help('ACTSys_wzmc',this)">帮助</span></td>
</tr>
<tr>
<td width="298" align="right"><p>网站标题：</p></td>
<td><input name="ActCMS_SysSetting1" type="text" id="SiteTitle" value="<%= ActCMS_SysSetting(1) %>" size="40">
<span class="h" style="cursor:help;" onclick="Help('ACTSys_wzbt',this)">帮助</span></td>
</tr>
<tr>
<td width="298" align="right">网站地址： </td>
<td><input name="ActCMS_SysSetting2" type="text" id="SiteURL" value="<%=AutoDomain %>" size="40">
<span class="h" style="cursor:help;" onclick="Help('ACTSys_wzdz',this)">帮助</span>
(请使用http://标识),后面不要带"/"符号 <br><font color=red>系统会自动获得正确的路径，但需要手工保存设置</font></td>
</tr>
<tr>
<td width="298" align="right">安装目录：</td>
<td><input name="ActCMS_SysSetting3" type="text" id="SysDir" value="<%= InstallDir %>" size="40">
<span class="h" style="cursor:help;" onclick="Help('ACTSys_azml',this)">帮助</span>
系统安装的虚拟目录,后面要加上/<br><font color=red>系统会自动获得正确的路径，但需要手工保存设置</font></td>
</tr>
<tr>
<td width="298" align="right">首页文件名：</td>
<td><input name="ActCMS_SysSetting4" type="text" id="SiteIndex" value="<%= ActCMS_SysSetting(4) %>" size="40">
<span class="h" style="cursor:help;" onclick="Help('ACTSys_sywjm',this)">帮助</span></td>
</tr>
<tr>
<td width="298" align="right">网站Logo地址：</td>
<td><input name="ActCMS_SysSetting5" type="text" id="SiteLogo" value="<%= ActCMS_SysSetting(5) %>" size="40">
<span class="h" style="cursor:help;" onclick="Help('ACTSys_logo',this)">帮助</span></td>
</tr>
<tr>
<td width="298" align="right">站长姓名：</td>
<td><input name="ActCMS_SysSetting6" type="text" id="WebmasterName" value="<%= ActCMS_SysSetting(6) %>" size="40">
<span class="h" style="cursor:help;" onclick="Help('ACTSys_zzxm',this)">帮助</span></td>
</tr>
<tr>
<td width="298" align="right">站长信箱：</td>
<td><input name="ActCMS_SysSetting7" type="text" id="WebmasterMail" value="<%= ActCMS_SysSetting(7) %>" size="40">
<span class="h" style="cursor:help;" onclick="Help('ACTSys_zzxx',this)">帮助</span></td>
</tr>
<tr>
<td width="298" align="right">后台目录：</td>
<td><input name="ActCMS_SysSetting8" type="text" value="<%= ActCMS_SysSetting(8) %>" size="40">
<span class="h" style="cursor:help;" onclick="Help('ACTSys_html',this)">帮助</span></td>
</tr>
<tr>
<td width="298" align="right">首页模板：</td>
<td>
<input name="ActCMS_SysSetting9" type="text" id="ActCMS_SysSetting9" value="<%= ActCMS_SysSetting(9) %>" size="40">
<input class="ACT_btn" type="button" onClick="OpenWindowAndSetValue('include/print/SelectPic.asp?CurrPath=<%=ACTCMS.ActCMS_Sys(3)%>templets',500,320,window,document.LoveShe.ActCMS_SysSetting9);" value="选择模板...">
<span class="h" style="cursor:help;" onclick="Help('ACTSys_symb',this)">帮助</span>
</td></tr>
<tr>
<td width="298" align="right">上传文件大小： </td>
<td><input name="ActCMS_SysSetting10" type="text" id="ActCMS_SysSetting10" value="<%= ActCMS_SysSetting(10) %>" size="40">
<span class="h" style="cursor:help;" onclick="Help('ACTSys_scwjdx',this)">帮助</span>单位(KB)</td>
</tr>
<tr>
<td width="298" align="right">上传文件类型： </td>
<td><input name="ActCMS_SysSetting11" type="text" id="ActCMS_SysSetting11" value="<%= ActCMS_SysSetting(11) %>" size="40">
<span class="h" style="cursor:help;" onclick="Help('ACTSys_scwjlx',this)">帮助</span>请用“|”分开</td>
</tr>
<tr align="right">
<td colspan="2" align="center" class="bg_tr">会员信息设置</td>
</tr>
<tr>
<td width="298" align="right">会员系统状态：</td>
<td><input <% IF ActCMS_SysSetting(12) = "0" Then Response.Write "Checked" %> type="radio" id="Userclose1" name="ActCMS_SysSetting12" value="0">
<label for="Userclose1"><font color="green">正常 </font></label>
<input <% IF ActCMS_SysSetting(12) = "1" Then Response.Write "Checked" %> id="Userclose2" type="radio" name="ActCMS_SysSetting12" value="1">
<label for="Userclose2"><font color="red">关闭 </font></label>
<span class="h" style="cursor:help;" onclick="Help('ACTSys_hyxtzt',this)">帮助</span> </td>
</tr>
<tr>
<td width="298" align="right">是否允许新会员注册：</td>
<td><input <% IF ActCMS_SysSetting(13) = "0" Then Response.Write "Checked" %> type="radio" id="UserReg1" name="ActCMS_SysSetting13" value="0">
<label for="UserReg1"><font color="green">正常 </font></label>
<input <% IF ActCMS_SysSetting(13) = "1" Then Response.Write "Checked" %> id="UserReg2" type="radio" name="ActCMS_SysSetting13" value="1">
<label for="UserReg2"><font color="red">关闭 </font></label>
<span class="h" style="cursor:help;" onclick="Help('ACTSys_sfxhyzc',this)">帮助</span> </td>
</tr>
<tr>
<td width="298" align="right">会员注册时是否启用验证码功能：</td>
<td><input <% IF ActCMS_SysSetting(14) = "0" Then Response.Write "Checked" %> type="radio" id="RegCode" name="ActCMS_SysSetting14" value="0"><label for="RegCode">是 </label>
<input <% IF ActCMS_SysSetting(14) = "1" Then Response.Write "Checked" %> id="RegCode2" type="radio" name="ActCMS_SysSetting14" value="1"><label for="RegCode2">否 </label>
<span class="h" style="cursor:help;" onclick="Help('ACTSys_yzm',this)">帮助</span> </td>
</tr>
<tr>
<td width="298" align="right">会员登录时是否启用验证码功能：</td>
<td><input <% IF ActCMS_SysSetting(15) = "0" Then Response.Write "Checked" %> type="radio" id="LoginCode" name="ActCMS_SysSetting15" value="0"><label for="LoginCode">是 </label>
<input <% IF ActCMS_SysSetting(15) = "1" Then Response.Write "Checked" %> id="LoginCode2" type="radio" name="ActCMS_SysSetting15" value="1"><label for="LoginCode2">否 </label>
<span class="h" style="cursor:help;" onclick="Help('ACTSys_dlyzm',this)">帮助</span> </td>
</tr>
<tr>
<td width="298" align="right">注册协议模板：</td>
<td>
<input name="ActCMS_SysSetting17" type="text" id="ActCMS_SysSetting17" value="<%= ActCMS_SysSetting(17) %>" size="40">
<input class="ACT_btn" type="button" onClick="OpenWindowAndSetValue('include/print/SelectPic.asp?CurrPath=<%=ACTCMS.ActCMS_Sys(3)%>templets',500,320,window,document.LoveShe.ActCMS_SysSetting17);" value="选择模板...">
<span class="h" style="cursor:help;" onclick="Help('ACTSys_zcxymb',this)">帮助</span> </td>
</tr>
<tr>
<td width="298" align="right">注册页模板：</td>
<td>
<input name="ActCMS_SysSetting18" type="text" id="ActCMS_SysSetting18" value="<%= ActCMS_SysSetting(18) %>" size="40">
<input class="ACT_btn" type="button" onClick="OpenWindowAndSetValue('include/print/SelectPic.asp?CurrPath=<%=ACTCMS.ActCMS_Sys(3)%>templets',500,320,window,document.LoveShe.ActCMS_SysSetting18);" value="选择模板...">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -