<% Option Explicit %>
<!--#include file="../FS_Inc/Const.asp" -->
<!--#include file="../FS_InterFace/MF_Function.asp" -->
<!--#include file="../FS_Inc/Function.asp" -->
<!--#include file="../FS_Inc/Cls_Cache.asp" -->
<!--#include file="../FS_Inc/Cls_SysConfig.asp"-->
<!--#include file="../FS_Inc/md5.asp" -->
<%
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Dim Conn,sysObj
MF_Default_Conn
MF_Session_TF
if not MF_Check_Pop_TF("MF_SysSet") then Err_Show
Set sysObj=New Cls_SysConfig
sysObj.getSysParam()

Dim p_SiteDoMain,p_SiteName,p_SiteMail,p_UpFile_Type,p_UpFile_Size,p_Index_templet,p_Index_Name
Dim p_Mail_Server,p_Mail_Name,p_Mail_Pass,p_Index_Refresh,p_Class_Refresh,p_Write_Type,p_Date_Path,p_Copy_Right,p_login_style,p_WriteType,MF_Encript_SN
DIm p_Save_Rs,strShowErr
'水印组件参数
Dim p_picClassid,p_markType,p_markText,p_markFontSize,p_markFontColor,p_markFontName,p_markFontBond,p_markPicture,p_markOpacity,p_markTranspColor,p_markWidth,p_markHeight,p_markPosition
'缩略图功能参数
Dim  p_thumbnailComponent,p_rateTF,p_thumbnailWidth,p_thumbnailHeight,p_thumbnailRate
'---2007-02-12 By Ken
Dim StyleMaxNum,Define_MaxNum,LabelContent_MaxNum

Dim str_CurrPath,sRootDir
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
'--------------------
If Request.Form("Action")="Save" Then
	MF_Encript_SN   = Request.form("MF_Encript_SN")
	p_SiteDoMain	= Request.form("SiteDoMain")
	p_SiteName		= Request.form("SiteName")
	p_SiteMail		= Request.form("SiteMail")
	p_UpFile_Type	= Request.form("UpFile_Type")
	p_UpFile_Size	= Request.form("UpFile_Size")
	p_Index_templet	= Request.form("Index_templet")
	p_Index_Name	= Request.form("Index_Name")
	p_Mail_Server	= Request.form("Mail_Server")
	p_Mail_Name		= Request.form("Mail_Name")
	p_Mail_Pass		= Request.form("Mail_Pass")
	p_Index_Refresh = Request.form("Index_Refresh")
	p_Class_Refresh	= Request.form("Class_Refresh")
	p_Write_Type	= Request.form("Write_Type")
	p_Date_Path		= Request.form("Date_Path")
	p_Copy_Right	= Request.form("Copy_Right")
	p_login_style	= Request.form("MF_Login_style")
	p_WriteType     =request.Form("Write_Type")
	p_picClassid    =Request.Form("sel_PicClassid")
	if p_picClassid<>"9" then
		p_markType=Request.Form("sel_MarkType")
		p_markText=Request.Form("txt_MarkText")
		p_markFontSize=Request.Form("txt_MarkFontSize")
		p_markFontColor=Request.Form("txt_MarkFontColor")
		p_markFontName=Request.Form("sel_MarkFontName")
		p_markFontBond=Request.Form("rad_MarkFontBond")
		p_markPicture=Request.Form("txt_MarkPicture")
		p_markOpacity=Request.Form("txt_MarkOpacity")
		p_markTranspColor=Request.Form("txt_MarkTranspColor")
		p_markWidth=Request.Form("txt_MarkWidth")
		p_markHeight=Request.Form("txt_MarkHeight")
		p_markPosition=Request.Form("sel_MarkPosition")
	End if
	p_thumbnailComponent=Request.Form("sel_thumbnailComponent")
	if p_thumbnailComponent<>"-1" then
		p_rateTF=Request.Form("rad_rateTF")
		if p_rateTF=1 then
			p_thumbnailRate=Request.Form("txt_thumbnailRate")
		Else
			p_thumbnailWidth=Request.Form("txt_thumbnailWidth")
			p_thumbnailHeight=Request.Form("txt_thumbnailHeight")
		End if
	End if
	'----2007-02-12 By Ken
	StyleMaxNum = Trim(Request.Form("Style_MaxNum"))
	If StyleMaxNum = "" Or Not IsNumEric(StyleMaxNum) Then
		StyleMaxNum = 50
	Else
		StyleMaxNum = Clng(StyleMaxNum)
	End if
	Define_MaxNum = Trim(Request.Form("Define_MaxNum"))
	If Define_MaxNum = "" Or Not IsNumEric(Define_MaxNum) Then
		Define_MaxNum = 50
	Else
		Define_MaxNum = Clng(Define_MaxNum)
	End if
	LabelContent_MaxNum = Trim(Request.Form("LabelContent_MaxNum"))
	If LabelContent_MaxNum = "" Or Not IsNumeric(LabelContent_MaxNum) Then
		LabelContent_MaxNum = 0
	Else
		LabelContent_MaxNum = Clng(LabelContent_MaxNum)	
	End If
	'----------	
	Set p_Save_Rs	= CreateObject(G_FS_RS)
	p_Save_Rs.Open "select * from FS_MF_Config",Conn,3,3
	If p_Save_Rs.Eof Then
		p_Save_Rs.AddNew
	End If
	p_Save_Rs("MF_Encript_SN")		= MF_Encript_SN
	p_Save_Rs("MF_Domain") 			= p_SiteDoMain
	p_Save_Rs("MF_Site_Name")		= p_SiteName
	p_Save_Rs("MF_eMail")			= p_SiteMail
	p_Save_Rs("MF_UpFile_Type")		= p_UpFile_Type
	p_Save_Rs("MF_UpFile_Size")     = p_UpFile_Size
	p_Save_Rs("MF_Index_Templet")	= p_Index_templet
	p_Save_Rs("MF_Index_File_Name")	= p_Index_Name
	p_Save_Rs("MF_Mail_Server")		= p_Mail_Server
	p_Save_Rs("MF_Mail_Name")		= p_Mail_Name
	p_Save_Rs("MF_Mail_Pass_Word")	= p_Mail_Pass
	p_Save_Rs("MF_Index_Refresh")	= p_Index_Refresh
	p_Save_Rs("MF_Class_Refresh")	= p_Class_Refresh
	p_Save_Rs("MF_Copyright_Info")	= p_Copy_Right
	p_Save_Rs("MF_WriteType")	    = p_WriteType
	p_Save_Rs("MF_Login_style")	    = p_login_style
	p_Save_Rs("PicClassid")	    	= p_picClassid
	if p_picClassid<>"9" then
		p_Save_Rs("MarkType")=p_markType
		p_Save_Rs("MarkText")=p_markText
		p_Save_Rs("MarkFontSize")=p_markFontSize	
		p_Save_Rs("MarkFontColor")=p_markFontColor	
		p_Save_Rs("MarkFontName")=p_markFontName	
		p_Save_Rs("MarkFontBond")=p_markFontBond	
		p_Save_Rs("MarkPicture")=p_markPicture	
		p_Save_Rs("MarkOpacity")=p_markOpacity	
		p_Save_Rs("MarkWidth")=p_markWidth	
		p_Save_Rs("MarkHeight")=p_markHeight	
		p_Save_Rs("MarkTranspColor")=p_markTranspColor	
		p_Save_Rs("MarkPosition")=p_markPosition	
	end if
	p_Save_Rs("ThumbnailComponent")=p_thumbnailComponent
	if p_thumbnailComponent<>"9" then
		p_Save_Rs("RateTF")=p_rateTF
		p_Save_Rs("ThumbnailWidth")=p_thumbnailWidth
		p_Save_Rs("ThumbnailHeight")=p_thumbnailHeight
		p_Save_Rs("ThumbnailRate")=p_thumbnailRate
	End if
	'---2007-02-12 By Ken
	p_Save_Rs("Style_MaxNum")=StyleMaxNum
	p_Save_Rs("Define_MaxNum")=Define_MaxNum
	p_Save_Rs("LabelContent_MaxNum")=LabelContent_MaxNum
	'------------
	p_Save_Rs.Update
	p_Save_Rs.Close
	Set p_Save_Rs = Nothing
	MFConfig_Cookies
	Call MF_Insert_oper_Log("参数设置","更改了参数设置",now,session("admin_name"),"MF")
	strShowErr = "<li>修改成功</li>"
	Response.Redirect("Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl="&server.URLEncode("Changeskin.asp?Style_num="&p_login_style&"&RURL=SysParaSet.asp"))
	Response.end
End If
Conn.Close
Set Conn = Nothing
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<TITLE>FoosunCMS</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
</HEAD>
<script language="JavaScript" src="../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
<script language="javascript" src="../FS_Inc/prototype.js" type="text/javascript"></script>
<script language="javascript">
function mycheck()
{
	if(document.SysPara.SiteDoMain.value=="")
	{
		alert("请输入域名!");
		document.SysPara.SiteDoMain.focus();
		return false;
	}
	else
	{
	    return true;
	}

}
</script>
<link href="images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
<BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 scroll=yes>
<iframe width="260" height="165" id="colorPalette" src="CommPages/selcolor.htm" style="visibility:hidden; position: absolute;border:1px gray solid" frameborder="0" scrolling="no" ></iframe>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  <form action="?Act=Save" method="post" name="SysPara" id="SysPara" onSubmit="return mycheck()">
    <tr class="hback"> 
      <td colspan="2" align="right" class="xingmu"><div align="left">系统参数设置</div></td>
    </tr>
    <tr class="hback"> 
      <td width="140" align="right">本站域名：</td>
      <td> <input type="text" name="SiteDoMain" value="<%=sysObj.DoMain%>" size="50" />
        <br>
        不要带http:// ,如果有虚拟目录，后面请带虚拟目录:如：www.foosun.cms/cms</td>
    </tr>
    <tr class="hback"> 
      <td align="right">站点名称：</td>
      <td> <input type="text" name="SiteName" value="<%=sysObj.SiteName%>" size="50" />      </td>
    </tr>
    <tr class="hback" style="display:none"> 
      <td align="right">序列号：</td>
      <td> <input type="text" name="MF_Encript_SN" value="<%=sysObj.MF_Encript_SN%>" size="50" />      </td>
    </tr>
    <tr class="hback"> 
      <td align="right">站长信箱：</td>
      <td> <input type="text" name="SiteMail" value="<%=sysObj.eMail%>" size="50" />      </td>
    </tr>
    <tr class="hback"> 
      <td align="right">允许上传文件类型：</td>
      <td> <input type="text" name="UpFile_Type" value="<%=sysObj.upFile_type%>" size="50" />      </td>
    </tr>
    <tr class="hback"> 
      <td align="right">允许上传文件大小：</td>
      <td> <input type="text" name="UpFile_Size" value="<%=sysObj.upFile_Size%>" size="50" onChange="if(/\D/.test(this.value)){alert('只能输入非负整数');this.value='';}"/>
        kb </td>
    </tr>
	<tr class="hback"> 
      <td align="right">自定义样式最大数量：</td>
      <td> <input type="text" name="Style_MaxNum" value="<%=sysObj.Style_MaxNum%>" size="50" onChange="if(/\D/.test(this.value)){alert('只能输入非负整数');this.value='';}"/>
        <span class="tx">(建议最多不要超过50个，会引起系统性能下降)</span></td>
    </tr>
	<tr class="hback"> 
      <td align="right">自定字段最大数量：</td>
      <td> <input type="text" name="Define_MaxNum" value="<%=sysObj.Define_MaxNum%>" size="50" onChange="if(/\D/.test(this.value)){alert('只能输入非负整数');this.value='';}"/>
        <span class="tx">(建议最多不要超过50个，会引起系统性能下降)</span></td>
    </tr>
	<tr class="hback"> 
      <td align="right">标签内容字数上限：</td>
      <td> <input type="text" name="LabelContent_MaxNum" maxlength="6" value="<%=sysObj.Label_MaxNum%>" size="50" onChange="if(/\D/.test(this.value)){alert('只能输入非负整数');this.value='';}"/>
        <span class="tx">(请为正整数，0为不限)</span></td>
    </tr>
    <tr class="hback"> 
      <td align="right">首页模版文件：</td>
      <td> <input type="text" name="Index_templet" value="<%=sysObj.Index_templet%>" size="50" readonly="true" /> 
        <input type="button" name="Submit3" value="选择模板" onClick="OpenWindowAndSetValue('CommPages/SelectManageDir/SelectTemplet.asp?CurrPath=<%=Add_Root_Dir(G_TEMPLETS_DIR) %>',400,300,window,document.SysPara.Index_templet);document.SysPara.Index_templet.focus();">      </td>
    </tr>
    <tr class="hback"> 
      <td align="right">首页文件名：</td>
      <td> <input type="text" name="Index_Name" value="<%=sysObj.Index_File_Name%>" size="50" />      </td>
    </tr>
    <tr class="hback"> 
      <td align="right">发送邮件服务器：</td>
      <td> <input type="text" name="Mail_Server" value="<%=sysObj.Mail_Server%>" size="50" />      </td>
    </tr>
    <tr class="hback"> 
      <td align="right">发送邮件用户名：</td>
      <td> <input type="text" name="Mail_Name" value="<%=sysObj.Mail_Name%>" size="50" />      </td>
    </tr>
    <tr class="hback"> 
      <td align="right">发送邮件的密码：</td>
      <td> <input type="password" name="Mail_Pass" value="<%=sysObj.mail_Pass_Word%>" size="50" />      </td>
    </tr>
    <tr class="hback"> 
      <td align="right">首页生成方式：</td>
      <td><input name="Index_Refresh" type="text" id="Index_Refresh" size="50" value="<%=sysobj.index_refresh%>"><a href="#" onClick="javascript:Element.toggle($('help_Index_Refresh'));">&nbsp;帮助</a>
	  <br>
	  <div id="help_Index_Refresh" style="display:none">首页自动刷新间隔时间，单位分钟（-1不自动刷新，0为立即刷新，其他值为刷新时间的间隔：例如，5就为5分钟）</div></td>
    </tr>
    <tr class="hback">
      <td align="right">栏目生成方式：</td>
      <td><input name="class_Refresh" type="text" id="class_Refresh" size="50" value="<%=sysobj.class_refresh%>"><a href="#" onClick="javascript:Element.toggle($('help_class_Refresh'));">&nbsp;帮助</a>
	   <br>
	  <div id="help_class_Refresh" style="display:none">栏目自动刷新间隔时间，单位分钟（-1不自动刷新，0为立即刷新，其他值为刷新时间的间隔：例如，5就为5分钟）</div>
	  </td>
    </tr>
    <tr class="hback"> 
      <td align="right">写文件使用组件：</td>
      <td> <input name="Write_Type" type="radio" value="0" <%If sysObj.writeType = "0" Then Response.Write("checked")%> />
        Fso(File System Object) 
        <input type="radio" name="Write_Type" value="1" <%If sysObj.writeType = "1" or  sysObj.writeType="" Then Response.Write("checked")%>/>
        Adodb.Stream</td>
    </tr>
    <tr class="hback">
      <td align="right">选择图片缩略功能：</td>
      <td align="left"><select id="sel_thumbnailComponent" name="sel_thumbnailComponent" onChange="showInfo(this.value,'thumbnail_Param','span_thumbnailInfo')">
          <option value="9" <%if sysObj.thumbnailComponent="9" then response.Write("selected")%>>关闭</option>
          <option value="0" <%if sysObj.thumbnailComponent="0" then response.Write("selected")%>>aspjpeg </option>
          <option value="1" <%if sysObj.thumbnailComponent="1" then response.Write("selected")%>>WS Images</option>
          <option value="2" <%if sysObj.thumbnailComponent="2" then response.Write("selected")%>>SA-ImgWrite</option>
        </select>
          <span id="span_thumbnailInfo"></span> </td>
    </tr>
    <tr class="hback" id="thumbnail_Param">
      <td align="right"><input type="radio" name="rad_rateTF" value="1" onClick="showThumbnail_RateOrSize(this.value)" <%if sysObj.RateTF=1 then Response.Write("checked")%>>
        按比列
        <input type="radio" name="rad_RateTF" value="0" onClick="showThumbnail_RateOrSize(this.value)" <%if sysObj.RateTF=0 then Response.Write("checked")%>>
        按大小 </td>
      <td align="left"><span id="span_UseRate" style="display:none">比例：
        <input name="txt_thumbnailRate" id="txt_thumbnailRate" size="15" value="<%If Not (Isnull(sysObj.thumbnailRate) or sysObj.thumbnailRate="") Then:Response.Write formatnumber(sysObj.thumbnailRate,1,-1):else:response.Write "0.5":end if %>">
        如60%请填写0.6 <span id="span_thumbnailRate"></span> </span> <span id="span_UseSize" style="display:none"> 宽度:
          <input name="txt_thumbnailWidth" type="text" id="txt_thumbnailWidth" size="15" value="<%=sysObj.thumbnailWidth%>">
          象素 | 
          高度:
          <input name="txt_thumbnailHeight" type="text" id="txt_thumbnailHeight" size="15" value="<%=sysObj.thumbnailHeight%>">
          象素 <span id="span_thumbnailWidth"></span>&nbsp; <span id="span_thumbnailHeight"></span> </span> </td>
    </tr>
    <tr class="hback" id="PrintPicObject">
      <td align="right">水印组件：</td>
      <td align="left">
	  <select name="sel_PicClassid" onChange="showInfo(this.value,'PicParam','span_componentInfo')">
          <option value="9" <%if sysObj.PicClassid="9" then Response.Write("selected")%>>关闭</option>
          <option value="0" <%if sysObj.PicClassid="0" then Response.Write("selected")%>>aspjpeg </option>
          <option value="1" <%if sysObj.PicClassid="1" then Response.Write("selected")%>>WS Images</option>
          <option value="2"<%if sysObj.PicClassid="2" then Response.Write("selected")%>>SA-ImgWrite</option>
        </select>
          <span id="span_componentInfo"></span> </td>
    <tr id="PicParam" style="display:none">
      <td colspan="2" class="hback"><table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
          <tr class="hback">
            <td width="25%" align="right">水印类型 </td>
            <td width="75%">
			<select name="sel_MarkType" size="1" id="sel_MarkType">
                <option value="1" <%if sysObj.markType="1" then Response.Write("selected")%>>文字类型</option>
                <option value="0" <%if sysObj.markType="0" then Response.Write("selected")%>>图片类型</option>
            </select>
			</td>
          </tr>
          <tr class="hback">
            <td align="right">水印文字信息（可为空） </td>
            <td><input name="txt_MarkText" type="text" id="txt_MarkText" size="50" value="<%=sysObj.markText%>"></td>
          </tr>
          <tr class="hback">
            <td align="right">水印字体大小 </td>
            <td><input name="txt_MarkFontSize" type="text" id="txt_MarkFontSize" size="50" value="<%=sysObj.MarkFontSize%>">
                <span id="span_MarkFontSize"></span></td>
          </tr>
          <tr class="hback">
            <td align="right">水印字体颜色</td>
            <td><input name="txt_MarkFontColor" type="text" id="txt_MarkFontColor" value="<%=sysObj.MarkFontColor%>">
                <img src="images/rect.gif" alt="-" name="MarkFontColor_Show" width="18" height="17" border=0 align="absmiddle" id="MarkFontColor_Show" style="cursor:pointer;background-color:#<%=sysObj.MarkFontColor%>;" title="选取颜色!" onClick="GetColor(this,'txt_MarkFontColor');"></td>
          </tr>
          <tr class="hback">
            <td align="right">水印字体名称 </td>
            <td><SELECT name="sel_MarkFontName" id="sel_MarkFontName">
                <option value="宋体" <%If sysObj.markFontName = "宋体" Then Response.Write("selected") End if%>>宋体</option>
                <option value="楷体_GB2312" <%If sysObj.markFontName = "楷体_GB2312" Then Response.Write("selected") End if%>>楷体</option>
                <option value="新宋体" <%If sysObj.markFontName = "新宋体" Then Response.Write("selected") End if%>>新宋体</option>
                <option value="黑体" <%If sysObj.markFontName = "黑体" Then Response.Write("selected") End if%>>黑体</option>
                <option value="隶书" <%If sysObj.markFontName = "隶书" Then Response.Write("selected") End if%>>隶书</option>
                <OPTION value="Andale Mono" <%If sysObj.markFontName = "Andale Mono" Then Response.Write("selected") End if%>>Andale 
                  Mono</OPTION>
                <OPTION value="Arial" <%If sysObj.markFontName = "Arial" Then Response.Write("selected") End if%>>Arial</OPTION>
                <OPTION value="Arial Black" <%If sysObj.markFontName = "Arial Black" Then Response.Write("selected") End if%>>Arial 
                  Black</OPTION>
                <OPTION value="Book Antiqua" <%If sysObj.markFontName = "Book Antiqua" Then Response.Write("selected") End if%>>Book 
                  Antiqua</OPTION>
                <OPTION value="Century Gothic" <%If sysObj.markFontName = "Century Gothic" Then Response.Write("selected") End if%>>Century 
                  Gothic</OPTION>
                <OPTION value="Comic Sans MS" <%If sysObj.markFontName = "Comic Sans MS" Then Response.Write("selected") End if%>>Comic 
                  Sans MS</OPTION>
                <OPTION value="Courier New" <%if sysObj.markFontName = "Courier New" Then Response.Write("selected") End if%>>Courier 
                  New</OPTION>
                <OPTION value="Georgia" <%If sysObj.markFontName = "Georgia" Then Response.Write("selected") End if%>>Georgia</OPTION>
                <OPTION value="Impact" <%If sysObj.markFontName = "Impact" Then Response.Write("selected") End if%>>Impact</OPTION>
                <OPTION value="Tahoma" <%If sysObj.markFontName = "Tahoma" Then Response.Write("selected") End if%>>Tahoma</OPTION>
                <OPTION value="Times New Roman" <%If sysObj.markFontName = "Times New Roman" Then Response.Write("selected") End if%>>Times 
                  New Roman</OPTION>
                <OPTION value="Trebuchet MS" <%If sysObj.markFontName = "Trebuchet MS" Then Response.Write("selected") End if%>>Trebuchet 
                  MS</OPTION>
                <OPTION value="Script MT Bold" <%If sysObj.markFontName = "Script MT Bold" Then Response.Write("selected") End if%>>Script 
                  MT Bold</OPTION>
                <OPTION value="Stencil" <%If sysObj.markFontName = "Stencil" Then Response.Write("selected") End if%>>Stencil</OPTION>
                <OPTION value="Verdana" <%If sysObj.markFontName = "Verdana" Then Response.Write("selected") End if%>>Verdana</OPTION>
                <OPTION value="Lucida Console" <%If sysObj.markFontName = "Lucida Console" Then Response.Write("selected") End if%>>Lucida 
                  Console</OPTION>
              </SELECT>            </td>
          </tr>
          <tr class="hback">
            <td align="right">水印字体是否粗体 </td>
            <td><input type="radio" name="rad_MarkFontBond" value="1" <%if sysObj.markFontBond=1 then Response.Write("checked")%>>
              是
              <input type="radio" name="rad_MarkFontBond" value="0" <%if sysObj.markFontBond=0 then Response.Write("checked")%>>
              否 </td>
          </tr>
          <tr class="hback_1">
            <td align="right">水印LOGO图片（可为空） </td>
            <td><input name="txt_MarkPicture" type="text" id="txt_MarkPicture" size="50" value="<%=sysObj.MarkPicture%>">
             <input type="button" name="SelectPic" id="SelectPic" value="选择图片" onClick="OpenWindowAndSetValue('CommPages/SelectManageDir/SelectPic.asp?CurrPath=<% = str_CurrPath %>',500,320,window,document.SysPara.txt_MarkPicture);" style="cursor:hand;">
			 </td>
          </tr>
          <tr class="hback_1">
            <td align="right">水印LOGO图片透明度 </td>
            <td><input name="txt_MarkOpacity" type="text" id="txt_MarkOpacity" size="50" value="<%=formatnumber(sysObj.MarkOpacity,1,-1)%>">
              如60%请填写0.6 </td>
          </tr>
          <tr class="hback_1">
            <td align="right">水印图片去除底色 </td>
            <td><input name="txt_MarkTranspColor" type="text" id="txt_MarkTranspColor" value="<%=sysObj.MarkTranspColor%>">
                <img src="images/rect.gif" alt="-" width="18" height="17" border=0 align=absmiddle id="MarkTranspColor_Show" style="cursor:pointer;background-Color:#<%=sysObj.MarkTranspColor%>;" title="选取颜色!" onClick="GetColor(this,'txt_MarkTranspColor');"> </td>
          </tr>
          <tr class="hback_1">
            <td align="right">水印图片的长宽区域定义<br>            </td>
            <td>宽度
              <input name="txt_MarkWidth" type="text" id="txt_MarkWidth" size="15" value="<%=sysObj.MarkWidth%>" onChange="if(/\D/.test(this.value)){alert('只能输入非负整数');this.value='';}">
              高度
              <input name="txt_MarkHeight" type="text" id="txt_MarkHeight" size="15" value="<%=sysObj.MarkHeight%>" onChange="if(/\D/.test(this.value)){alert('只能输入非负整数');this.value='';}">
              象素 水印图片的宽度和高度 <span id="span_MarkWidth"></span><span id="span_MarkHeight"></span></td>
          </tr>
          <tr class="hback_1">
            <td align="right">水印LOGO位置坐标 </td>
            <td><select name="sel_MarkPosition" id="sel_MarkPosition">
                <option value="1" <%if sysObj.markPosition=1 then Response.Write("selected")%>>左上</option>
                <option value="2" <%if sysObj.markPosition=2 then Response.Write("selected")%>>左下</option>
                <option value="3" <%if sysObj.markPosition=3 then Response.Write("selected")%>>居中</option>
                <option value="4" <%if sysObj.markPosition=4 then Response.Write("selected")%>>右上</option>
                <option value="5" <%if sysObj.markPosition=5 then Response.Write("selected")%>>右下</option>
            </select></td>
          </tr>
      </table></td>
    </tr>
    
    <tr class="hback"> 
      <td align="right">版权信息：</td>
      <td> <textarea name="Copy_Right" cols="80" rows="10"><%=sysObj.copyright_info%></textarea>      </td>
    </tr>
    <tr class="hback">
      <td align="right">后台默认登陆风格</td>
      <td><select name="MF_Login_style" id="MF_Login_style">
          <option value="1"  <%If  sysObj.login_style="1" Then Response.Write("selected")%>>默认风格</option>
          <option value="2"  <%If  sysObj.login_style="2" Then Response.Write("selected")%>>银色风格</option>
          <option value="3"  <%If  sysObj.login_style="3" Then Response.Write("selected")%>>蓝色海洋</option>
          <option value="4"  <%If  sysObj.login_style="4" Then Response.Write("selected")%>>浪漫咖啡</option>
          <option value="5"  <%If  sysObj.login_style="5" Then Response.Write("selected")%>>青青河草</option>
        </select>
        <input name="Action" type="hidden" id="Action" value="Save"></td>
    </tr>
    <tr class="hback"> 
      <td align="right">&nbsp;</td>
      <td><input type="submit" name="Submit" value=" 保存 " /> <input type="reset" name="Submit2" value=" 重置 " /></td>
    </tr>
  </form>
</table>
<br />
</body>
<%
Dim ComponentName(2),i
ComponentName(0) = "Persits.Jpeg"
ComponentName(1) = "wsImage.Resize"
ComponentName(2) = "SoftArtisans.ImageGen"
%>
<script language="javascript">
var ComponentNameArray = new Array();
var ComponentInfoArray = new Array();
<%
	Dim ExpiredStr
	For i = 0 to UBound(ComponentName)
%>
ComponentNameArray[ComponentNameArray.length] = "<%= ComponentName(i)%>";
<%
		If IsObjInstalled(ComponentName(i)) Then
			If IsExpired(ComponentName(i)) Then
				ExpiredStr = "，但已<font color=red>过期</font>"
			else
				ExpiredStr = ""
			End if
%>
ComponentInfoArray[ComponentInfoArray.length] = "<font color='0076AE'> √</font>支持<%=ExpiredStr%>";
<%
		Else
%>
ComponentInfoArray[ComponentInfoArray.length] = "<font color='red'>×</font>不支持"
<%
		End if
	Next
%>

function SetSysParam()
{
	var flag1=isEmpty("txt_SiteName","span_SiteName_Alert");
	var flag2=isEmpty("txt_NewsDir","span_NewsDir_Alert");
	var flag3=isEmpty("txt_IndexPage_Name","span_IndexPage_Name_Alert");
	var flag4=isEmpty("txt_IndexTemplet","span_IndexTemplet_Alert");
	if(document.getElementById("sel_PicClassid").value>=0)
	{
		var f_mark_flag_1=isNumber("txt_MarkFontSize","span_MarkFontSize","字体大小应为数字",false)
		var f_mark_flag_2=isNumber("txt_MarkWidth","span_MarkWidth","宽度应为数字",false)
		var f_mark_flag_3=isNumber("txt_MarkHeight","span_MarkHeight","高度应为数字",false)
		if(!f_mark_flag_1&&!f_mark_flag_2&&!f_mark_flag_3)
		 return;
	}
	if(document.getElementById("sel_thumbnailComponent").value>=0)
	{
		if (document.all("rad_rateTF")[0].checked)//判断缩略图是否是采用比例
		{
			var f_mark_flag_1=isNumber("txt_thumbnailRate","span_thumbnailRate","字体大小应为数字",false)
			if(!f_mark_flag_1)
				 return;
		}else
		{
			var f_mark_flag_2=isNumber("txt_thumbnailWidth","span_thumbnailWidth","宽度应为数字",false)
			var f_mark_flag_3=isNumber("txt_thumbnailHeight","span_thumbnailHeight","高度应为数字",false)
			if(!f_mark_flag_2&&!f_mark_flag_3)
				 return;
		 }
	}
	if(flag1&&flag2&&flag3&&flag4)
	{
		document.SysParaForm.submit();
	}
}
//显示水印组件类型及支持情况
//显示水印祖件参数输入界面

showInfo(<%=sysObj.PicClassid%>,"PicParam","span_componentInfo");
showInfo(<%=sysObj.ThumbnailComponent%>,"thumbnail_Param","span_thumbnailInfo");
function showInfo(ComponentID,ParamPanel,Container)
{
	if(parseInt(ComponentID)>=0&&parseInt(ComponentID)!=9)
	{
		document.getElementById(ParamPanel).style.display="block";
	}else
	{
		document.getElementById(ParamPanel).style.display="none";
	}
	if(parseInt(ComponentID)==9)
	{
		document.getElementById(Container).innerHTML = "";
	}
	else
	{
		document.getElementById(Container).innerHTML = ComponentNameArray[ComponentID] + ComponentInfoArray[ComponentID];
	}
}
//缩略图根据选择使用比例或大小显示相应的界面
showThumbnail_RateOrSize(<%=sysObj.RateTF%>)
function showThumbnail_RateOrSize(param)
{
	if(param==1)
	{
		document.getElementById("span_UseRate").style.display="block"
		document.getElementById("span_UseSize").style.display="none"
	}else
	{
		document.getElementById("span_UseRate").style.display="none"
		document.getElementById("span_UseSize").style.display="block"
	}
}

function getOffsetTop(elm) {
	var mOffsetTop = elm.offsetTop;
	var mOffsetParent = elm.offsetParent;
	while(mOffsetParent){
		mOffsetTop += mOffsetParent.offsetTop;
		mOffsetParent = mOffsetParent.offsetParent;
	}
	return mOffsetTop;
}
function getOffsetLeft(elm) {
	var mOffsetLeft = elm.offsetLeft;
	var mOffsetParent = elm.offsetParent;
	while(mOffsetParent) {
		mOffsetLeft += mOffsetParent.offsetLeft;
		mOffsetParent = mOffsetParent.offsetParent;
	}
	return mOffsetLeft;
}
function GetColor(img_val,input_val)
{
	var PaletteLeft,PaletteTop
	var obj = document.getElementById("colorPalette");
	ColorImg = img_val;
	ColorValue = document.getElementById(input_val);	
	if (obj){
		PaletteLeft = getOffsetLeft(ColorImg)
		PaletteTop = (getOffsetTop(ColorImg) + ColorImg.offsetHeight)
		if (PaletteLeft+150 > parseInt(document.body.clientWidth)) PaletteLeft = parseInt(event.clientX)-260;
		obj.style.left = PaletteLeft + "px";
		obj.style.top = PaletteTop + "px";
		if (obj.style.visibility=="hidden")
		{
			obj.style.visibility="visible";
		}else {
			obj.style.visibility="hidden";
		}
	}
}
function setColor(color)
{
	if(ColorImg.id=="FontColorShow"&&color=="#") color='#000000';
	if(ColorImg.id=="FontBgColorShow"&&color=="#") color='#FFFFFF';
	if (ColorValue){ColorValue.value = color.substr(1);}
	if (ColorImg && color.length>1){
		ColorImg.src='Images/Rect.gif';
		ColorImg.style.backgroundColor = color;
	}else if(color=='#'){ ColorImg.src='Images/rectNoColor.gif';}
	document.getElementById("colorPalette").style.visibility="hidden";
}
</script>
</html>
