<!--#include file="ACT.Function.asp"-->
<!--#include file="../act_inc/ACT.Code.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
	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
		Set MakeJs =New ACT_Code
		Call MakeJs.FSOSaveFile(Replace(Rs("helpjs"),"{ACTCMS}",InstallDir),InstallDir&"ACT_inc/ActHelp.js")	
		Rs.Close:Set Rs = Nothing	
		Call Actcms.ActErr("修改成功&nbsp;&nbsp;<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">您现在的位置：&gt;&gt;网 站 信 息 配 置 </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://标识),后面不要带&quot;/&quot;符号 <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">正常 &nbsp;</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">关闭 &nbsp;</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">正常 &nbsp;</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">关闭 &nbsp;</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">是 &nbsp;</label>
          <input  <% IF ActCMS_SysSetting(14) = "1" Then Response.Write "Checked" %>  id="RegCode2" type="radio" name="ActCMS_SysSetting14" value="1"><label for="RegCode2">否 &nbsp;</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">是 &nbsp;</label>
          <input  <% IF ActCMS_SysSetting(15) = "1" Then Response.Write "Checked" %>  id="LoginCode2" type="radio" name="ActCMS_SysSetting15" value="1"><label for="LoginCode2">否 &nbsp;</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="选择模板..."> 

		  <span class="h" style="cursor:help;"  onclick="Help('ACTSys_zcymb',this)">帮助</span> </td>
      </tr>
    
	  <tr>
        <td width="298" align="right">禁止注册的用户名： </td>
        <td><textarea name="ActCMS_SysSetting16" cols="50" rows="3" id="ActCMS_SysSetting16"><%=ActCMS_SysSetting(16) %></textarea>
            
         <span class="h" style="cursor:help;"  onclick="Help('ACTSys_jzzcymh',this)">帮助</span>  <br>在上边指定的用户名将被禁止注册，每个用户名请用“|”符号分隔</td>
      </tr>
      <tr align="right">
        <td colspan="2" align="center" class="bg_tr">其他信息设置</td>
    </tr>
    <tr>
      <td width="298" align="right">版权信息：</td>
      <td><textarea name="ActCMS_OtherSetting0" cols="50" rows="5"><%=ActCMS_OtherSetting(0)%></textarea>
	  <span class="h" style="cursor:help;"  onclick="Help('ACTSys_bqxx',this)">帮助</span> </td>
    </tr>
    <tr>
      <td width="298" align="right">网站META关键词： </td>
      <td><textarea name="ActCMS_OtherSetting1" cols="50" rows="5"><%=ActCMS_OtherSetting(1)%></textarea>
	  <span class="h" style="cursor:help;"  onclick="Help('ACTSys_metagjz',this)">帮助</span> </td>
    </tr>
    <tr>
      <td width="298" align="right">网站META网页描述： </td>
      <td><textarea name="ActCMS_OtherSetting2" cols="50" rows="5"><%=ActCMS_OtherSetting(2)%></textarea>
	  <span class="h" style="cursor:help;"  onclick="Help('ACTSys_metams',this)">帮助</span> </td>
    </tr>
    <tr>
      <td width="298" align="right">过滤字符：<br></td>
      <td><textarea name="ActCMS_OtherSetting8" cols="50" rows="5"><%=ActCMS_OtherSetting(8)%></textarea>
	  <span class="h" style="cursor:help;"  onclick="Help('ACTSys_glzf',this)">帮助</span> 
      用户名用“|”符号分隔</td>
    </tr>
    <tr>
      <td width="298" align="right">SMTP服务器地址: </td>
      <td><input name="ActCMS_OtherSetting3" type="text" value="<%=ActCMS_OtherSetting(3)%>" size="18">
      <span class="h" style="cursor:help;"  onclick="Help('ACTSys_smtpdz',this)">帮助</span> 
	  用来发送邮件的SMTP服务器如果你不清楚此参数含义，请联系你的空间商</td>
    </tr>
    <tr>
      <td width="298" align="right">SMTP登录用户名： </td>
      <td><input name="ActCMS_OtherSetting4" type="text" value="<%=ActCMS_OtherSetting(4)%>" size="18">
      <span class="h" style="cursor:help;"  onclick="Help('ACTSys_smtpdlm',this)">帮助</span> 当你的服务器需要SMTP身份验证时还需设置此参数</td>
    </tr>
    <tr>
      <td width="298" align="right">SMTP登录密码：</td>
      <td><input name="ActCMS_OtherSetting5" type="PassWord" value="<%=ActCMS_OtherSetting(5)%>" size="20">
        <span class="h" style="cursor:help;"  onclick="Help('ACTSys_smtpmm',this)">帮助</span> 当你的服务器需要SMTP身份验证时还需设置此参数</td>
    </tr>
    <tr>
      <td width="298" align="right">远程图片保存目录：</td>
      <td><input name="ActCMS_OtherSetting6" type="text" id="ActCMS_OtherSetting6" value="<%=ActCMS_OtherSetting(6)%>" size="18">
	  <span class="h" style="cursor:help;"  onclick="Help('ACTSys_yctp',this)">帮助</span> </td>
    </tr>
    <tr>
      <td width="298" align="right">是否以日期保存：</td>
      <td><input <% IF ActCMS_OtherSetting(7) = "0" Then Response.Write "Checked" %>  type="radio"  id="ActCMS_OtherSetting7" name="ActCMS_OtherSetting7" value="0"><label for="ActCMS_OtherSetting7">是 &nbsp;</label>
          <input  <% IF ActCMS_OtherSetting(7) = "1" Then Response.Write "Checked" %>  id="ActCMS_OtherSetting7)2" type="radio" name="ActCMS_OtherSetting7" value="1"><label for="ActCMS_OtherSetting7)2">否 &nbsp;</label>
		  <span class="h" style="cursor:help;"  onclick="Help('ACTSys_rqbc',this)">帮助</span> </td>
    </tr>
    <tr align="right">
      <td colspan="2" align="center"  class="bg_tr">缩略图水印设置</td>
    </tr>
 <% 	
with response
 		.Write "    <tr class=""tdbg"">"
			.Write "      <td width=""257"" height=""40"" align=""right"" class='td_bg'><STRONG>生成缩略图组件：</STRONG><BR>"
			.Write "      <span class=""STYLE1"">请一定要选择服务器上已安装的组件</span></td>"
			.Write "      <td width=""677"">"
			.Write "       <select name=""ActCMS_WatermarkSetting0"" onChange=""ShowThumbInfo(this.value)"" style=""width:50%"">"
			.Write "          <option value=0 "
			If ActCMS_WatermarkSetting(0) = "0" Then .Write ("selected")
			.Write ">关闭 </option>"
			.Write "          <option value=1 "
			If ActCMS_WatermarkSetting(0) = "1" Then .Write ("selected")
			.Write ">AspJpeg组件 " & ACTCMS.ExpiredStr(0) & "</option>"
			.Write "          <option value=2 "
			If ActCMS_WatermarkSetting(0) = "2" Then .Write ("selected")
			.Write ">wsImage组件 " & ACTCMS.ExpiredStr(1) & "</option>"
			.Write "          <option value=3 "
			If ActCMS_WatermarkSetting(0) = "3" Then .Write ("selected")
			.Write ">SA-ImgWriter组件 " & ACTCMS.ExpiredStr(2) & "</option>"
			.Write "        </select>"
			.Write "      <span id=""ThumbComponentInfo""></span></td>"
			.Write "    </tr>"
			.Write "    <tr  class=""tdbg""  id=""ThumbSettingArea"" style=""display:none"">"
			 .Write "     <td height=""23"" align=""right"" class='td_bg'> <input type=""radio"" name=""ActCMS_WatermarkSetting1"" value=""1"" onClick=""ShowThumbSetting(1);"" "
			 If ActCMS_WatermarkSetting(1) = "1" Then .Write ("checked")
			 .Write ">"
			 .Write "       按比例"
			 .Write "       <input type=""radio"" name=""ActCMS_WatermarkSetting1"" value=""0"" onClick=""ShowThumbSetting(0);"" "
			 If ActCMS_WatermarkSetting(1) = "0" Then .Write ("checked")
			 .Write ">"
			 .Write "     按大小 </td>"
			 .Write "     <td width=""677"" height=""50""> <div id =""ThumbSetting0"" style=""display:none"">&nbsp;缩略图宽度："
			.Write "          <input type=""text"" name=""ActCMS_WatermarkSetting2"" size=10 value=""" & ActCMS_WatermarkSetting(2) & """>"
			.Write "          象素<br>&nbsp;缩略图高度："
			.Write "          <input type=""text"" name=""ActCMS_WatermarkSetting3"" size=10 value=""" & ActCMS_WatermarkSetting(3) & """>"
			.Write "          象素</div>"
			.Write "        <div id =""ThumbSetting1"" style=""display:none"">&nbsp;比例："
			.Write "          <input type=""text"" name=""ActCMS_WatermarkSetting4"" size=10 value="""
			If Left(ActCMS_WatermarkSetting(4), 1) = "." Then .Write ("0" & ActCMS_WatermarkSetting(4)) Else .Write (ActCMS_WatermarkSetting(4))
			.Write """>"
			.Write "      <br>&nbsp;如缩小原图的50%,请输入0.5 </div></td>"
			.Write "    </tr>"
			.Write "    <tr  class=""tdbg"" >"
			.Write "      <td height=""40"" align=""right"" class='td_bg'><strong>图片水印组件：</strong><BR>"
			.Write "      <span class=""STYLE1"">请一定要选择服务器上已安装的组件</span></td>"
			.Write "      <td width=""677""> <select name=""ActCMS_WatermarkSetting5"" onChange=""ShowInfo(this.value)"" style=""width:50%"">"
			.Write "          <option value=0 "
			If ActCMS_WatermarkSetting(5) = "0" Then .Write ("selected")
			.Write ">关闭"
			.Write "          <option value=1 "
			If ActCMS_WatermarkSetting(5) = "1" Then .Write ("selected")
			.Write ">AspJpeg组件 " & ACTCMS.ExpiredStr(0) & "</option>"
			.Write "          <option value=2 "
			If ActCMS_WatermarkSetting(5) = "2" Then .Write ("selected")
			.Write ">wsImage组件 " & ACTCMS.ExpiredStr(1) & "</option>"
			.Write "          <option value=3 "
			If ActCMS_WatermarkSetting(5) = "3" Then .Write ("selected")
			.Write ">SA-ImgWriter组件 " & ACTCMS.ExpiredStr(2) & "</option>"
			.Write "      </select>  </td>"
			.Write "    </tr>"
			.Write "    <tr align=""left"" valign=""top""  class=""tdbg""  id=""ActCMS_WatermarkSetting"" style=""display:none"" cellpadding=""0"" cellspacing=""0"">"
			.Write "      <td colspan=2> <table width=100% border=""0"" cellpadding=""0"" cellspacing=""1""  bordercolor=""e6e6e6"" bgcolor=""#efefef"">"
			.Write "          <tr class=""tdbg"">"
			.Write "            <td width=250 height=""26"" align=""right"" class='td_bg'>水印类型</td>"
			.Write "            <td width=""648""> <SELECT name=""ActCMS_WatermarkSetting6"" onChange=""SetTypeArea(this.value)"">"
			.Write "                <OPTION value=""1"" "
			If ActCMS_WatermarkSetting(6) = "1" Then .Write ("selected")
			.Write ">文字效果</OPTION>"
			.Write "                <OPTION value=""2"" "
			If ActCMS_WatermarkSetting(6) = "2" Then .Write ("selected")
			.Write ">图片效果</OPTION>"
			.Write "            </SELECT> </td>"
			.Write "          </tr>"
			.Write "          <tr  class=""tdbg"" >"
			.Write "            <td height=""26"" align=""right"" class='td_bg'>坐标起点位置</td>"
			.Write "            <td> <SELECT NAME=""ActCMS_WatermarkSetting7"">"
			.Write "                <option value=""1"" "
			If ActCMS_WatermarkSetting(7) = "1" Then .Write ("selected")
			.Write ">左上</option>"
			.Write "                <option value=""2"" "
			If ActCMS_WatermarkSetting(7) = "2" Then .Write ("selected")
			.Write ">左下</option>"
			.Write "                <option value=""3"" "
			If ActCMS_WatermarkSetting(7) = "3" Then .Write ("selected")
			.Write ">居中</option>"
			.Write "                <option value=""4"" "
			If ActCMS_WatermarkSetting(7) = "4" Then .Write ("selected")
			.Write ">右上</option>"
			.Write "                <option value=""5"" "
			If ActCMS_WatermarkSetting(7) = "5" Then .Write ("selected")
			.Write ">右下</option>"
			.Write "            </SELECT> </td>"
			.Write "          </tr>"
			.Write "          <tr class=""tdbg"" >"
			.Write "           <td colspan=""2"">"
			.Write "           <table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""1"" id=""wordarea"">"
			.Write "          <tr  class=""tdbg"" >"
			.Write "            <td width=""27%"" height=""26"" align=""right"" class='td_bg'>水印文字信息:</td>"
			.Write "            <td width=""70%""> <INPUT TYPE=""text"" NAME=""ActCMS_WatermarkSetting8"" size=40 value=""" & ActCMS_WatermarkSetting(8) & """>            </td>"
			.Write "          </tr>"
			.Write "          <tr  class=""tdbg"" >"
			.Write "            <td height=""26"" align=""right"" class='td_bg'>字体大小:</td>"
			.Write "            <td> <INPUT TYPE=""text"" NAME=""ActCMS_WatermarkSetting9"" size=10 value=""" & ActCMS_WatermarkSetting(9) & """>"
			.Write "            <b>px</b> </td>"
			.Write "          </tr>"
			.Write "          <tr  class=""tdbg"" >"
			.Write "            <td height=""26"" align=""right"" class='td_bg'>字体颜色:</td>"
			.Write "            <td><input  type=""text"" name=""ActCMS_WatermarkSetting10"" maxlength = 7 size = 7 value=""" & ActCMS_WatermarkSetting(10) & """ >"
			
			.Write " <img border=0 id=""MarkFontColorShow"" src=""images/rect.gif"" style=""cursor:pointer;background-Color:" & ActCMS_WatermarkSetting(10) & ";"" onClick=""Getcolor(this,'Include/selectcolor.asp','ActCMS_WatermarkSetting10');"" title=""选取颜色""></td>"
			.Write "          </tr>"
			.Write "          <tr  class=""tdbg"" >"
			.Write "            <td height=""26"" align=""right"" class='td_bg'>字体名称:</td>"
			.Write "            <td> <SELECT name=""ActCMS_WatermarkSetting11"">"
			.Write "                <option value=""宋体"" "
			If ActCMS_WatermarkSetting(11) = "宋体" Then .Write ("selected")
			.Write ">宋体</option>"
			.Write "                <option value=""楷体_GB2312"" "
			If ActCMS_WatermarkSetting(11) = "楷体_GB2312" Then .Write ("selected")
			.Write ">楷体</option>"
			.Write "                <option value=""新宋体"" "
			If ActCMS_WatermarkSetting(11) = "新宋体" Then .Write ("selected")
			.Write ">新宋体</option>"
			.Write "                <option value=""黑体"" "
			If ActCMS_WatermarkSetting(11) = "黑体" Then .Write ("selected")
			.Write ">黑体</option>"
			.Write "                <option value=""隶书"" "
			If ActCMS_WatermarkSetting(11) = "隶书" Then .Write ("selected")
			.Write ">隶书</option>"
			.Write "                <OPTION value=""Andale Mono"" "
			If ActCMS_WatermarkSetting(11) = "Andale Mono" Then .Write ("selected")
			.Write ">Andale"
			.Write "                Mono</OPTION>"
			.Write "                <OPTION value=""Arial"" "
			If ActCMS_WatermarkSetting(11) = "Arial" Then .Write ("selected")
			.Write ">Arial</OPTION>"
			.Write "                <OPTION value=""Arial Black"" "
			If ActCMS_WatermarkSetting(11) = "Arial Black" Then .Write ("selected")
			.Write ">Arial"
			.Write "                Black</OPTION>"
			.Write "                <OPTION value=""Book Antiqua"" "
			If ActCMS_WatermarkSetting(11) = "Book Antiqua" Then .Write ("selected")
			.Write ">Book"
			.Write "                Antiqua</OPTION>"
			.Write "                <OPTION value=""Century Gothic"" "
			If ActCMS_WatermarkSetting(11) = "Century Gothic" Then .Write ("selected")
			.Write ">Century"
			.Write "                Gothic</OPTION>"
			.Write "                <OPTION value=""Comic Sans MS"" "
			If ActCMS_WatermarkSetting(11) = "Comic Sans MS" Then .Write ("selected")
			.Write ">Comic"
			.Write "                Sans MS</OPTION>"
			.Write "                <OPTION value=""Courier New"" "
			If ActCMS_WatermarkSetting(11) = "Courier New" Then .Write ("selected")
			.Write ">Courier"
			.Write "                New</OPTION>"
			.Write "                <OPTION value=""Georgia"" "
			If ActCMS_WatermarkSetting(11) = "Georgia" Then .Write ("selected")
			.Write ">Georgia</OPTION>"
			.Write "                <OPTION value=""Impact"" "
			If ActCMS_WatermarkSetting(11) = "Impact" Then .Write ("selected")
			.Write ">Impact</OPTION>"
			.Write "                <OPTION value=""Tahoma"" "
			If ActCMS_WatermarkSetting(11) = "Tahoma" Then .Write ("selected")
			.Write ">Tahoma</OPTION>"
			.Write "                <OPTION value=""Times New Roman"" "
			If ActCMS_WatermarkSetting(11) = "Times New Roman" Then .Write ("selected")
			.Write ">Times"
			.Write "                New Roman</OPTION>"
			.Write "                <OPTION value=""Trebuchet MS"" "
			If ActCMS_WatermarkSetting(11) = "Trebuchet MS" Then .Write ("selected")
			.Write ">Trebuchet"
			.Write "                MS</OPTION>"
			.Write "                <OPTION value=""Script MT Bold"" "
			If ActCMS_WatermarkSetting(11) = "Script MT Bold" Then .Write ("selected")
			.Write ">Script"
			.Write "                MT Bold</OPTION>"
			.Write "                <OPTION value=""Stencil"" "
			If ActCMS_WatermarkSetting(11) = "Stencil" Then .Write ("selected")
			.Write ">Stencil</OPTION>"
			.Write "                <OPTION value=""Verdana"" "
			If ActCMS_WatermarkSetting(11) = "Verdana" Then .Write ("selected")
			.Write ">Verdana</OPTION>"
			.Write "                <OPTION value=""Lucida Console"" "
			If ActCMS_WatermarkSetting(11) = "Lucida Console" Then .Write ("selected")
			.Write ">Lucida"
			.Write "                Console</OPTION>"
			.Write "            </SELECT> </td>"
			.Write "          </tr>"
			.Write "          <tr  class=""tdbg"" >"
			.Write "            <td height=""26"" align=""right"" class='td_bg'>字体是否粗体:</td>"
			.Write "            <td> <SELECT name=""ActCMS_WatermarkSetting12"" id=""MarkFontBond"">"
			.Write "                <OPTION value=0 "
			If ActCMS_WatermarkSetting(12) = "0" Then .Write ("selected")
			.Write ">否</OPTION>"
			.Write "                <OPTION value=1 "
			If ActCMS_WatermarkSetting(12) = "1" Then .Write ("selected")
			.Write ">是</OPTION>"
			.Write "            </SELECT> </td>"
			.Write "          </tr>"
			.Write "          </table>"
			.Write "          </td>"
			.Write "          </tr>"
			.Write "          <tr class=""tdbg"" >"
			.Write "           <td colspan=""2"">"
			.Write "           <table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""1"" id=""picarea"">"
			.Write "          <tr  class=""tdbg"" >"
			.Write "            <td width=""27%"" height=""26"" align=""right"" class='td_bg'>LOGO图片:<br> </td>"
			.Write "            <td width=""70%""> <INPUT TYPE=""text"" name=""ActCMS_WatermarkSetting13"" id=""Watermarklogo"" size=40 value=""" & ActCMS_WatermarkSetting(13) & """>"
			.Write "            <input class='ACT_BTN' type='button' name='Submit' value='选择图片地址...' onClick=""OpenWindowAndSetValue('include/print/SelectPic.asp?CurrPath=" & ACTCMS.ActSys & "',500,320,window,document.LoveShe.Watermarklogo);""></td>"
			.Write "          </tr>"
			.Write "          <tr  class=""tdbg"" >"
			.Write "            <td height=""26"" align=""right"" class='td_bg'>LOGO图片透明度:</td>"
			.Write "            <td> <INPUT TYPE=""text"" NAME=""ActCMS_WatermarkSetting14"" size=10 value="""
			If Left(ActCMS_WatermarkSetting(14), 1) = "." Then .Write ("0" & ActCMS_WatermarkSetting(14)) Else .Write (ActCMS_WatermarkSetting(14))
			.Write """>"
			.Write "            如50%请填写0.5 </td>"
			.Write "          </tr>"
			.Write "          <tr  class=""tdbg"" >"
			.Write "            <td height=""26"" align=""right"" class='td_bg'>图片去除底色:</td>"
			.Write "            <td> <INPUT TYPE=""text"" NAME=""ActCMS_WatermarkSetting15"" ID=""ActCMS_WatermarkSetting15"" maxlength = 7 size = 7 value=""" & ActCMS_WatermarkSetting(15) & """>"
			.Write " <img border=0 id=""MarkTranspColorShow"" src=""images/rect.gif"" style=""cursor:pointer;background-Color:" & ActCMS_WatermarkSetting(15) & ";"" onClick=""Getcolor(this,'Include/selectcolor.asp','ActCMS_WatermarkSetting15');"" title=""选取颜色"">"
			
			.Write "            保留为空则水印图片不去除底色。 </td>"
			.Write "          </tr>"
			.Write "          <tr  class=""tdbg"" >"
			.Write "            <td height=""26"" align=""right"" class='td_bg'>图片坐标位置:<br> </td>"
			.Write "            <td> 　X："
			.Write "              <INPUT TYPE=""text"" NAME=""ActCMS_WatermarkSetting16"" size=10 value=""" & ActCMS_WatermarkSetting(16) & """>"
			.Write "              象素<br>"
			.Write "Y:"
			.Write "              <INPUT TYPE=""text"" NAME=""ActCMS_WatermarkSetting17"" size=10 value=""" & ActCMS_WatermarkSetting(17) & """>"
			.Write "            象素  </td>"
			.Write "          </tr>"
			.Write "          </table>"
			.Write "          </td>"
			.Write "          </tr>"
					  
			.Write "      </table></td>"
			.Write "    </tr>"
 %>
    <tr>
      <td width="298" align="right">&nbsp;</td>
      <td><input type=button class="ACT_btn" onclick=CheckForm()  name="Submit1" value="  保存  " />
      <input type="reset" class="ACT_btn" name="Submit2" value="  重置  "></td>
    </tr>
  </table>
</form><br>
<%			
			.Write "<script language=""javascript"">"
			.Write "ShowThumbInfo(" & ActCMS_WatermarkSetting(0) & ");ShowThumbSetting(" & ActCMS_WatermarkSetting(1) & ");ShowInfo(" & ActCMS_WatermarkSetting(5) & ");SetTypeArea(" & ActCMS_WatermarkSetting(6) & ");"
			.Write "function SetTypeArea(TypeID)"
			.Write "{"
			.Write " if (TypeID==1)"
			.Write "  {"
			.Write "   document.all.wordarea.style.display='';"
			.Write "   document.all.picarea.style.display='none';"
			.Write "  }"
			.Write " else"
			.Write "  {"
			.Write "   document.all.wordarea.style.display='none';"
			.Write "   document.all.picarea.style.display='';"
			.Write "  }"
			
			.Write "}"
			.Write "function ShowInfo(ComponentID)"
			.Write "{"
			.Write "    if(ComponentID == 0)"
			.Write "    {"
			.Write "        document.all.ActCMS_WatermarkSetting.style.display = ""none"";"
			.Write "    }"
			.Write "    else"
			.Write "    {"
			.Write "        document.all.ActCMS_WatermarkSetting.style.display = """";"
			.Write "    }"
			.Write "}"
			.Write "function ShowThumbInfo(ThumbComponentID)"
			.Write "{"
			.Write "    if(ThumbComponentID == 0)"
			.Write "    {"
			.Write "        document.all.ThumbSettingArea.style.display = ""none"";"
			.Write "    }"
			.Write "    else"
			.Write "    {"
			.Write "        document.all.ThumbSettingArea.style.display = """";"
			.Write "    }"
			.Write "}"
			.Write "function ShowThumbSetting(ThumbSettingid)"
			.Write "{"
			.Write "    if(ThumbSettingid == 0)"
			.Write "    {"
			.Write "        document.all.ThumbSetting1.style.display = ""none"";"
			 .Write "       document.all.ThumbSetting0.style.display = """";"
			 .Write "   }"
			 .Write "   else"
			.Write "    {"
			.Write "        document.all.ThumbSetting1.style.display = """";"
			.Write "        document.all.ThumbSetting0.style.display = ""none"";"
			.Write "    }"
			.Write "}"
			.Write "</script>"
End with

Rs.Close:Set Rs = Nothing	
End if %>
<SCRIPT language=javascript>
<!--

function CheckForm()
{ var form=document.LoveShe;
   if (form.SiteName.value=='')
    { alert("请输入网站名称名称!");   
	  form.SiteName.focus();    
	   return false;
    }
	
if (form.SiteTitle.value=='')
    { alert("请输入网站标题!");   
	  form.SiteTitle.focus();    
	   return false;
    }	
	
if (form.SiteURL.value=='')
    { alert("请输入网站地址!");   
	  form.SiteURL.focus();    
	   return false;
    }	
		
if (form.SysDir.value=='')
    { alert("请输入安装目录!");   
	  form.SysDir.focus();    
	   return false;
    }	
			
	
if (form.SiteIndex.value=='')
    { alert("请输入首页文件名!");   
	  form.SiteIndex.focus();    
	   return false;
    }	
			
		form.Submit1.value="正在提交数据,请稍等...";
		form.Submit1.disabled=true;	
		form.Submit2.disabled=true;	
	    form.submit();
        return true;
}
function Getcolor(img_val,Url,input_val){
	var arr = showModalDialog(Url, "", "dialogWidth:18.5em; dialogHeight:17.5em; status:0; help:0");
	if (arr != null){
		document.getElementById(input_val).value = arr;
		img_val.style.backgroundColor = arr;
		}
}
function OpenWindowAndSetValue(Url,Width,Height,WindowObj,SetObj)
{
	var ReturnStr=showModalDialog(Url,WindowObj,'dialogWidth:'+Width+'pt;dialogHeight:'+Height+'pt;status:yes;help:no;scroll:yes;');
	if (ReturnStr!='') SetObj.value=ReturnStr;
	return ReturnStr;
}	

//-->
</SCRIPT>

</body>
</html>