开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 数据库编程 > 查看源码
SysParaSet.asp
资源名称：eat.rar　[点击查看]
上传用户：jisenq
上传日期：2014-06-29
资源大小：7216k
文件大小：27k
源码类别：

数据库编程

开发平台：

ASP/ASPX

SysParaSet.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../FS_Inc/Const.asp" -->
  3. <!--#include file="../FS_InterFace/MF_Function.asp" -->
  4. <!--#include file="../FS_Inc/Function.asp" -->
  5. <!--#include file="../FS_Inc/Cls_Cache.asp" -->
  6. <!--#include file="../FS_Inc/Cls_SysConfig.asp"-->
  7. <%
  8. Response.Buffer = True
  9. Response.Expires = -1
  10. Response.ExpiresAbsolute = Now() - 1
  11. Response.Expires = 0
  12. Response.CacheControl = "no-cache"
  13. Dim Conn,sysObj
  14. MF_Default_Conn
  15. MF_Session_TF
  16. if not MF_Check_Pop_TF("MF_SysSet") then Err_Show
  17. Set sysObj=New Cls_SysConfig
  18. sysObj.getSysParam()
  20. Dim p_SiteDoMain,p_SiteName,p_SiteMail,p_UpFile_Type,p_UpFile_Size,p_Index_templet,p_Index_Name
  21. 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
  22. DIm p_Save_Rs,strShowErr
  23. '水印组件参数
  24. 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
  25. '缩略图功能参数
  26. Dim  p_thumbnailComponent,p_rateTF,p_thumbnailWidth,p_thumbnailHeight,p_thumbnailRate
  28. If Request.Form("Action")="Save" Then
  29. MF_Encript_SN   = Request.form("MF_Encript_SN")
  30. p_SiteDoMain = Request.form("SiteDoMain")
  31. p_SiteName = Request.form("SiteName")
  32. p_SiteMail = Request.form("SiteMail")
  33. p_UpFile_Type = Request.form("UpFile_Type")
  34. p_UpFile_Size = Request.form("UpFile_Size")
  35. p_Index_templet = Request.form("Index_templet")
  36. p_Index_Name = Request.form("Index_Name")
  37. p_Mail_Server = Request.form("Mail_Server")
  38. p_Mail_Name = Request.form("Mail_Name")
  39. p_Mail_Pass = Request.form("Mail_Pass")
  40. p_Index_Refresh = Request.form("Index_Refresh")
  41. p_Class_Refresh = Request.form("Class_Refresh")
  42. p_Write_Type = Request.form("Write_Type")
  43. p_Date_Path = Request.form("Date_Path")
  44. p_Copy_Right = Request.form("Copy_Right")
  45. p_login_style = Request.form("MF_Login_style")
  46. p_WriteType     =request.Form("Write_Type")
  47. p_picClassid    =Request.Form("sel_PicClassid")
  48. if p_picClassid<>"9" then
  49. p_markType=Request.Form("sel_MarkType")
  50. p_markText=Request.Form("txt_MarkText")
  51. p_markFontSize=Request.Form("txt_MarkFontSize")
  52. p_markFontColor=Request.Form("txt_MarkFontColor")
  53. p_markFontName=Request.Form("sel_MarkFontName")
  54. p_markFontBond=Request.Form("rad_MarkFontBond")
  55. p_markPicture=Request.Form("txt_MarkPicture")
  56. p_markOpacity=Request.Form("txt_MarkOpacity")
  57. p_markTranspColor=Request.Form("txt_MarkTranspColor")
  58. p_markWidth=Request.Form("txt_MarkWidth")
  59. p_markHeight=Request.Form("txt_MarkHeight")
  60. p_markPosition=Request.Form("sel_MarkPosition")
  61. End if
  62. p_thumbnailComponent=Request.Form("sel_thumbnailComponent")
  63. if p_thumbnailComponent<>"-1" then
  64. p_rateTF=Request.Form("rad_rateTF")
  65. if p_rateTF=1 then
  66. p_thumbnailRate=Request.Form("txt_thumbnailRate")
  67. Else
  68. p_thumbnailWidth=Request.Form("txt_thumbnailWidth")
  69. p_thumbnailHeight=Request.Form("txt_thumbnailHeight")
  70. End if
  71. End if
  72. Set p_Save_Rs = CreateObject(G_FS_RS)
  73. p_Save_Rs.Open "select * from FS_MF_Config",Conn,3,3
  74. If p_Save_Rs.Eof Then
  75. p_Save_Rs.AddNew
  76. End If
  77. p_Save_Rs("MF_Encript_SN") = MF_Encript_SN
  78. p_Save_Rs("MF_Domain")  = p_SiteDoMain
  79. p_Save_Rs("MF_Site_Name") = p_SiteName
  80. p_Save_Rs("MF_eMail") = p_SiteMail
  81. p_Save_Rs("MF_UpFile_Type") = p_UpFile_Type
  82. p_Save_Rs("MF_UpFile_Size")     = p_UpFile_Size
  83. p_Save_Rs("MF_Index_Templet") = p_Index_templet
  84. p_Save_Rs("MF_Index_File_Name") = p_Index_Name
  85. p_Save_Rs("MF_Mail_Server") = p_Mail_Server
  86. p_Save_Rs("MF_Mail_Name") = p_Mail_Name
  87. p_Save_Rs("MF_Mail_Pass_Word") = p_Mail_Pass
  88. p_Save_Rs("MF_Index_Refresh") = p_Index_Refresh
  89. p_Save_Rs("MF_Class_Refresh") = p_Class_Refresh
  90. p_Save_Rs("MF_Copyright_Info") = p_Copy_Right
  91. p_Save_Rs("MF_WriteType")     = p_WriteType
  92. p_Save_Rs("MF_Login_style")     = p_login_style
  93. p_Save_Rs("PicClassid")      = p_picClassid
  94. if p_picClassid<>"9" then
  95. p_Save_Rs("MarkType")=p_markType
  96. p_Save_Rs("MarkText")=p_markText
  97. p_Save_Rs("MarkFontSize")=p_markFontSize
  98. p_Save_Rs("MarkFontColor")=p_markFontColor
  99. p_Save_Rs("MarkFontName")=p_markFontName
  100. p_Save_Rs("MarkFontBond")=p_markFontBond
  101. p_Save_Rs("MarkPicture")=p_markPicture
  102. p_Save_Rs("MarkOpacity")=p_markOpacity
  103. p_Save_Rs("MarkWidth")=p_markWidth
  104. p_Save_Rs("MarkHeight")=p_markHeight
  105. p_Save_Rs("MarkTranspColor")=p_markTranspColor
  106. p_Save_Rs("MarkPosition")=p_markPosition
  107. end if
  108. p_Save_Rs("ThumbnailComponent")=p_thumbnailComponent
  109. if p_thumbnailComponent<>"9" then
  110. p_Save_Rs("RateTF")=p_rateTF
  111. p_Save_Rs("ThumbnailWidth")=p_thumbnailWidth
  112. p_Save_Rs("ThumbnailHeight")=p_thumbnailHeight
  113. p_Save_Rs("ThumbnailRate")=p_thumbnailRate
  114. End if
  115. p_Save_Rs.Update
  116. p_Save_Rs.Close
  117. Set p_Save_Rs = Nothing
  118. MFConfig_Cookies
  119. Call MF_Insert_oper_Log("参数设置","更改了参数设置",now,session("admin_name"),"MF")
  120. strShowErr = "<li>修改成功</li>"
  121. Response.Redirect("Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl="&server.URLEncode("Changeskin.asp?Style_num="&p_login_style&"&RURL=SysParaSet.asp"))
  122. Response.end
  123. End If
  124. Conn.Close
  125. Set Conn = Nothing
  126. %>
  127. <html xmlns="http://www.w3.org/1999/xhtml">
  128. <HEAD>
  129. <TITLE>FoosunCMS</TITLE>
  130. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
  131. </HEAD>
  132. <script language="JavaScript" src="../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
  133. <script language="javascript" src="../FS_Inc/prototype.js" type="text/javascript"></script>
  134. <script language="javascript">
  135. function mycheck()
  136. {
  137. if(document.SysPara.SiteDoMain.value=="")
  138. {
  139. alert("请输入域名!");
  140. document.SysPara.SiteDoMain.focus();
  141. return false;
  142. }
  143. else
  144. {
  145.     return true;
  146. }
  148. }
  149. </script>
  150. <link href="images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  151. <BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 scroll=yes>
  152. <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>
  153. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  154.   <form action="?Act=Save" method="post" name="SysPara" id="SysPara" onSubmit="return mycheck()">
  155.     <tr class="hback"> 
  156.       <td colspan="2" align="right" class="xingmu"><div align="left">系统参数设置</div></td>
  157.     </tr>
  158.     <tr class="hback"> 
  159.       <td width="140" align="right">本站域名：</td>
  160.       <td> <input type="text" name="SiteDoMain" value="<%=sysObj.DoMain%>" size="50" />
  161.         <br>
  162.         不要带http:// ,如果有虚拟目录，后面请带虚拟目录:如：www.foosun.cms/cms</td>
  163.     </tr>
  164.     <tr class="hback"> 
  165.       <td align="right">站点名称：</td>
  166.       <td> <input type="text" name="SiteName" value="<%=sysObj.SiteName%>" size="50" />      </td>
  167.     </tr>
  168.     <tr class="hback"> 
  169.       <td align="right">序列号：</td>
  170.       <td> <input type="text" name="MF_Encript_SN" value="<%=sysObj.MF_Encript_SN%>" size="50" />      </td>
  171.     </tr>
  172.     <tr class="hback"> 
  173.       <td align="right">站长信箱：</td>
  174.       <td> <input type="text" name="SiteMail" value="<%=sysObj.eMail%>" size="50" />      </td>
  175.     </tr>
  176.     <tr class="hback"> 
  177.       <td align="right">允许上传文件类型：</td>
  178.       <td> <input type="text" name="UpFile_Type" value="<%=sysObj.upFile_type%>" size="50" />      </td>
  179.     </tr>
  180.     <tr class="hback"> 
  181.       <td align="right">允许上传文件大小：</td>
  182.       <td> <input type="text" name="UpFile_Size" value="<%=sysObj.upFile_Size%>" size="50" onChange="if(/D/.test(this.value)){alert('只能输入非负整数');this.value='';}"/>
  183.         kb </td>
  184.     </tr>
  185.     <tr class="hback"> 
  186.       <td align="right">首页模版文件：</td>
  187.       <td> <input type="text" name="Index_templet" value="<%=sysObj.Index_templet%>" size="50" readonly="true" /> 
  188.         <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>
  189.     </tr>
  190.     <tr class="hback"> 
  191.       <td align="right">首页文件名：</td>
  192.       <td> <input type="text" name="Index_Name" value="<%=sysObj.Index_File_Name%>" size="50" />      </td>
  193.     </tr>
  194.     <tr class="hback"> 
  195.       <td align="right">发送邮件服务器：</td>
  196.       <td> <input type="text" name="Mail_Server" value="<%=sysObj.Mail_Server%>" size="50" />      </td>
  197.     </tr>
  198.     <tr class="hback"> 
  199.       <td align="right">发送邮件用户名：</td>
  200.       <td> <input type="text" name="Mail_Name" value="<%=sysObj.Mail_Name%>" size="50" />      </td>
  201.     </tr>
  202.     <tr class="hback"> 
  203.       <td align="right">发送邮件的密码：</td>
  204.       <td> <input type="password" name="Mail_Pass" value="<%=sysObj.mail_Pass_Word%>" size="50" />      </td>
  205.     </tr>
  206.     <tr class="hback"> 
  207.       <td align="right">首页生成方式：</td>
  208.       <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>
  209.   <br>
  210.   <div id="help_Index_Refresh" style="display:none">首页自动刷新间隔时间，单位分钟（-1不自动刷新，0为立即刷新，其他值为刷新时间的间隔：例如，5就为5分钟）</div></td>
  211.     </tr>
  212.     <tr class="hback">
  213.       <td align="right">栏目生成方式：</td>
  214.       <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>
  215.    <br>
  216.   <div id="help_class_Refresh" style="display:none">栏目自动刷新间隔时间，单位分钟（-1不自动刷新，0为立即刷新，其他值为刷新时间的间隔：例如，5就为5分钟）</div>
  217.   </td>
  218.     </tr>
  219.     <tr class="hback"> 
  220.       <td align="right">写文件使用组件：</td>
  221.       <td> <input name="Write_Type" type="radio" value="0" <%If sysObj.writeType = "0" Then Response.Write("checked")%> />
  222.         Fso(File System Object) 
  223.         <input type="radio" name="Write_Type" value="1" <%If sysObj.writeType = "1" or  sysObj.writeType="" Then Response.Write("checked")%>/>
  224.         Adodb.Stream</td>
  225.     </tr>
  226.     <tr class="hback">
  227.       <td align="right">选择图片缩略功能：</td>
  228.       <td align="left"><select id="sel_thumbnailComponent" name="sel_thumbnailComponent" onChange="showInfo(this.value,'thumbnail_Param','span_thumbnailInfo')">
  229.           <option value="9" <%if sysObj.thumbnailComponent="9" then response.Write("selected")%>>关闭</option>
  230.           <option value="0" <%if sysObj.thumbnailComponent="0" then response.Write("selected")%>>aspjpeg </option>
  231.           <option value="1" <%if sysObj.thumbnailComponent="1" then response.Write("selected")%>>WS Images</option>
  232.           <option value="2" <%if sysObj.thumbnailComponent="2" then response.Write("selected")%>>SA-ImgWrite</option>
  233.         </select>
  234.           <span id="span_thumbnailInfo"></span> </td>
  235.     </tr>
  236.     <tr class="hback" id="thumbnail_Param">
  237.       <td align="right"><input type="radio" name="rad_rateTF" value="1" onClick="showThumbnail_RateOrSize(this.value)" <%if sysObj.RateTF=1 then Response.Write("checked")%>>
  238.         按比列
  239.         <input type="radio" name="rad_RateTF" value="0" onClick="showThumbnail_RateOrSize(this.value)" <%if sysObj.RateTF=0 then Response.Write("checked")%>>
  240.         按大小 </td>
  241.       <td align="left"><span id="span_UseRate" style="display:none">比例：
  242.         <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 %>">
  243.         如60%请填写0.6 <span id="span_thumbnailRate"></span> </span> <span id="span_UseSize" style="display:none"> 宽度:
  244.           <input name="txt_thumbnailWidth" type="text" id="txt_thumbnailWidth" size="15" value="<%=sysObj.thumbnailWidth%>">
  245.           象素 | 
  246.           高度:
  247.           <input name="txt_thumbnailHeight" type="text" id="txt_thumbnailHeight" size="15" value="<%=sysObj.thumbnailHeight%>">
  248.           象素 <span id="span_thumbnailWidth"></span>&nbsp; <span id="span_thumbnailHeight"></span> </span> </td>
  249.     </tr>
  250.     <tr class="hback" id="PrintPicObject">
  251.       <td align="right">水印组件：</td>
  252.       <td align="left"><select name="sel_PicClassid" onChange="showInfo(this.value,'PicParam','span_componentInfo')">
  253.           <option value="9" <%if sysObj.PicClassid="9" then Response.Write("selected")%>>关闭</option>
  254.           <option value="0" <%if sysObj.PicClassid="0" then Response.Write("selected")%>>aspjpeg </option>
  255.           <option value="1" <%if sysObj.PicClassid="1" then Response.Write("selected")%>>WS Images</option>
  256.           <option value="2"<%if sysObj.PicClassid="2" then Response.Write("selected")%>>SA-ImgWrite</option>
  257.         </select>
  258.           <span id="span_componentInfo"></span> </td>
  259.     <tr id="PicParam" style="display:none">
  260.       <td colspan="2" class="hback"><table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
  261.           <tr class="hback">
  262.             <td width="25%" align="right">水印类型 </td>
  263.             <td width="75%">
  264. <select name="sel_MarkType" size="1" id="sel_MarkType">
  265.                 <option value="1" <%if sysObj.markType="1" then Response.Write("selected")%>>文字类型</option>
  266.                 <option value="0" <%if sysObj.markType="0" then Response.Write("selected")%>>图片类型</option>
  267.             </select>
  268. </td>
  269.           </tr>
  270.           <tr class="hback">
  271.             <td align="right">水印文字信息（可为空） </td>
  272.             <td><input name="txt_MarkText" type="text" id="txt_MarkText" size="50" value="<%=sysObj.markText%>"></td>
  273.           </tr>
  274.           <tr class="hback">
  275.             <td align="right">水印字体大小 </td>
  276.             <td><input name="txt_MarkFontSize" type="text" id="txt_MarkFontSize" size="50" value="<%=sysObj.MarkFontSize%>">
  277.                 <span id="span_MarkFontSize"></span></td>
  278.           </tr>
  279.           <tr class="hback">
  280.             <td align="right">水印字体颜色</td>
  281.             <td><input name="txt_MarkFontColor" type="text" id="txt_MarkFontColor" value="<%=sysObj.MarkFontColor%>">
  282.                 <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>
  283.           </tr>
  284.           <tr class="hback">
  285.             <td align="right">水印字体名称 </td>
  286.             <td><SELECT name="sel_MarkFontName" id="sel_MarkFontName">
  287.                 <option value="宋体" <%If sysObj.markFontName = "宋体" Then Response.Write("selected") End if%>>宋体</option>
  288.                 <option value="楷体_GB2312" <%If sysObj.markFontName = "楷体_GB2312" Then Response.Write("selected") End if%>>楷体</option>
  289.                 <option value="新宋体" <%If sysObj.markFontName = "新宋体" Then Response.Write("selected") End if%>>新宋体</option>
  290.                 <option value="黑体" <%If sysObj.markFontName = "黑体" Then Response.Write("selected") End if%>>黑体</option>
  291.                 <option value="隶书" <%If sysObj.markFontName = "隶书" Then Response.Write("selected") End if%>>隶书</option>
  292.                 <OPTION value="Andale Mono" <%If sysObj.markFontName = "Andale Mono" Then Response.Write("selected") End if%>>Andale 
  293.                   Mono</OPTION>
  294.                 <OPTION value="Arial" <%If sysObj.markFontName = "Arial" Then Response.Write("selected") End if%>>Arial</OPTION>
  295.                 <OPTION value="Arial Black" <%If sysObj.markFontName = "Arial Black" Then Response.Write("selected") End if%>>Arial 
  296.                   Black</OPTION>
  297.                 <OPTION value="Book Antiqua" <%If sysObj.markFontName = "Book Antiqua" Then Response.Write("selected") End if%>>Book 
  298.                   Antiqua</OPTION>
  299.                 <OPTION value="Century Gothic" <%If sysObj.markFontName = "Century Gothic" Then Response.Write("selected") End if%>>Century 
  300.                   Gothic</OPTION>
  301.                 <OPTION value="Comic Sans MS" <%If sysObj.markFontName = "Comic Sans MS" Then Response.Write("selected") End if%>>Comic 
  302.                   Sans MS</OPTION>
  303.                 <OPTION value="Courier New" <%if sysObj.markFontName = "Courier New" Then Response.Write("selected") End if%>>Courier 
  304.                   New</OPTION>
  305.                 <OPTION value="Georgia" <%If sysObj.markFontName = "Georgia" Then Response.Write("selected") End if%>>Georgia</OPTION>
  306.                 <OPTION value="Impact" <%If sysObj.markFontName = "Impact" Then Response.Write("selected") End if%>>Impact</OPTION>
  307.                 <OPTION value="Tahoma" <%If sysObj.markFontName = "Tahoma" Then Response.Write("selected") End if%>>Tahoma</OPTION>
  308.                 <OPTION value="Times New Roman" <%If sysObj.markFontName = "Times New Roman" Then Response.Write("selected") End if%>>Times 
  309.                   New Roman</OPTION>
  310.                 <OPTION value="Trebuchet MS" <%If sysObj.markFontName = "Trebuchet MS" Then Response.Write("selected") End if%>>Trebuchet 
  311.                   MS</OPTION>
  312.                 <OPTION value="Script MT Bold" <%If sysObj.markFontName = "Script MT Bold" Then Response.Write("selected") End if%>>Script 
  313.                   MT Bold</OPTION>
  314.                 <OPTION value="Stencil" <%If sysObj.markFontName = "Stencil" Then Response.Write("selected") End if%>>Stencil</OPTION>
  315.                 <OPTION value="Verdana" <%If sysObj.markFontName = "Verdana" Then Response.Write("selected") End if%>>Verdana</OPTION>
  316.                 <OPTION value="Lucida Console" <%If sysObj.markFontName = "Lucida Console" Then Response.Write("selected") End if%>>Lucida 
  317.                   Console</OPTION>
  318.               </SELECT>            </td>
  319.           </tr>
  320.           <tr class="hback">
  321.             <td align="right">水印字体是否粗体 </td>
  322.             <td><input type="radio" name="rad_MarkFontBond" value="1" <%if sysObj.markFontBond=1 then Response.Write("checked")%>>
  323.               是
  324.               <input type="radio" name="rad_MarkFontBond" value="0" <%if sysObj.markFontBond=0 then Response.Write("checked")%>>
  325.               否 </td>
  326.           </tr>
  327.           <tr class="hback_1">
  328.             <td align="right">水印LOGO图片（可为空） </td>
  329.             <td><input name="txt_MarkPicture" type="text" id="txt_MarkPicture" size="50" value="<%=sysObj.MarkPicture%>">
  330.               填写LOGO的图片相对路径</td>
  331.           </tr>
  332.           <tr class="hback_1">
  333.             <td align="right">水印LOGO图片透明度 </td>
  334.             <td><input name="txt_MarkOpacity" type="text" id="txt_MarkOpacity" size="50" value="<%=formatnumber(sysObj.MarkOpacity,1,-1)%>">
  335.               如60%请填写0.6 </td>
  336.           </tr>
  337.           <tr class="hback_1">
  338.             <td align="right">水印图片去除底色 </td>
  339.             <td><input name="txt_MarkTranspColor" type="text" id="txt_MarkTranspColor" value="<%=sysObj.MarkTranspColor%>">
  340.                 <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>
  341.           </tr>
  342.           <tr class="hback_1">
  343.             <td align="right">水印图片的长宽区域定义<br>            </td>
  344.             <td>宽度
  345.               <input name="txt_MarkWidth" type="text" id="txt_MarkWidth" size="15" value="<%=sysObj.MarkWidth%>" onChange="if(/D/.test(this.value)){alert('只能输入非负整数');this.value='';}">
  346.               长度
  347.               <input name="txt_MarkHeight" type="text" id="txt_MarkHeight" size="15" value="<%=sysObj.MarkHeight%>" onChange="if(/D/.test(this.value)){alert('只能输入非负整数');this.value='';}">
  348.               象素 水印图片的宽度和高度 <span id="span_MarkWidth"></span><span id="span_MarkHeight"></span></td>
  349.           </tr>
  350.           <tr class="hback_1">
  351.             <td align="right">水印LOGO位置坐标 </td>
  352.             <td><select name="sel_MarkPosition" id="sel_MarkPosition">
  353.                 <option value="1" <%if sysObj.markPosition=1 then Response.Write("selected")%>>左上</option>
  354.                 <option value="2" <%if sysObj.markPosition=2 then Response.Write("selected")%>>左下</option>
  355.                 <option value="3" <%if sysObj.markPosition=3 then Response.Write("selected")%>>居中</option>
  356.                 <option value="4" <%if sysObj.markPosition=4 then Response.Write("selected")%>>右上</option>
  357.                 <option value="5" <%if sysObj.markPosition=5 then Response.Write("selected")%>>右下</option>
  358.             </select></td>
  359.           </tr>
  360.       </table></td>
  361.     </tr>
  362.     
  363.     <tr class="hback"> 
  364.       <td align="right">版权信息：</td>
  365.       <td> <textarea name="Copy_Right" cols="80" rows="10"><%=sysObj.copyright_info%></textarea>      </td>
  366.     </tr>
  367.     <tr class="hback">
  368.       <td align="right">后台默认登陆风格</td>
  369.       <td><select name="MF_Login_style" id="MF_Login_style">
  370.           <option value="1"  <%If  sysObj.login_style="1" Then Response.Write("selected")%>>默认风格</option>
  371.           <option value="2"  <%If  sysObj.login_style="2" Then Response.Write("selected")%>>银色风格</option>
  372.           <option value="3"  <%If  sysObj.login_style="3" Then Response.Write("selected")%>>蓝色海洋</option>
  373.           <option value="4"  <%If  sysObj.login_style="4" Then Response.Write("selected")%>>浪漫咖啡</option>
  374.           <option value="5"  <%If  sysObj.login_style="5" Then Response.Write("selected")%>>青青河草</option>
  375.         </select>
  376.         <input name="Action" type="hidden" id="Action" value="Save"></td>
  377.     </tr>
  378.     <tr class="hback"> 
  379.       <td align="right">&nbsp;</td>
  380.       <td><input type="submit" name="Submit" value=" 保存 " /> <input type="reset" name="Submit2" value=" 重置 " /></td>
  381.     </tr>
  382.   </form>
  383. </table>
  384. <br />
  385. </body>
  386. <%
  387. Dim ComponentName(2),i
  388. ComponentName(0) = "Persits.Jpeg"
  389. ComponentName(1) = "wsImage.Resize"
  390. ComponentName(2) = "SoftArtisans.ImageGen"
  391. %>
  392. <script language="javascript">
  393. var ComponentNameArray = new Array();
  394. var ComponentInfoArray = new Array();
  395. <%
  396. Dim ExpiredStr
  397. For i = 0 to UBound(ComponentName)
  398. %>
  399. ComponentNameArray[ComponentNameArray.length] = "<%= ComponentName(i)%>";
  400. <%
  401. If IsObjInstalled(ComponentName(i)) Then
  402. If IsExpired(ComponentName(i)) Then
  403. ExpiredStr = "，但已<font color=red>过期</font>"
  404. else
  405. ExpiredStr = ""
  406. End if
  407. %>
  408. ComponentInfoArray[ComponentInfoArray.length] = "<font color='0076AE'> √</font>支持<%=ExpiredStr%>";
  409. <%
  410. Else
  411. %>
  412. ComponentInfoArray[ComponentInfoArray.length] = "<font color='red'>×</font>不支持"
  413. <%
  414. End if
  415. Next
  416. %>
  418. function SetSysParam()
  419. {
  420. var flag1=isEmpty("txt_SiteName","span_SiteName_Alert");
  421. var flag2=isEmpty("txt_NewsDir","span_NewsDir_Alert");
  422. var flag3=isEmpty("txt_IndexPage_Name","span_IndexPage_Name_Alert");
  423. var flag4=isEmpty("txt_IndexTemplet","span_IndexTemplet_Alert");
  424. if(document.getElementById("sel_PicClassid").value>=0)
  425. {
  426. var f_mark_flag_1=isNumber("txt_MarkFontSize","span_MarkFontSize","字体大小应为数字",false)
  427. var f_mark_flag_2=isNumber("txt_MarkWidth","span_MarkWidth","宽度应为数字",false)
  428. var f_mark_flag_3=isNumber("txt_MarkHeight","span_MarkHeight","高度应为数字",false)
  429. if(!f_mark_flag_1&&!f_mark_flag_2&&!f_mark_flag_3)
  430.  return;
  431. }
  432. if(document.getElementById("sel_thumbnailComponent").value>=0)
  433. {
  434. if (document.all("rad_rateTF")[0].checked)//判断缩略图是否是采用比例
  435. {
  436. var f_mark_flag_1=isNumber("txt_thumbnailRate","span_thumbnailRate","字体大小应为数字",false)
  437. if(!f_mark_flag_1)
  438.  return;
  439. }else
  440. {
  441. var f_mark_flag_2=isNumber("txt_thumbnailWidth","span_thumbnailWidth","宽度应为数字",false)
  442. var f_mark_flag_3=isNumber("txt_thumbnailHeight","span_thumbnailHeight","高度应为数字",false)
  443. if(!f_mark_flag_2&&!f_mark_flag_3)
  444.  return;
  445.  }
  446. }
  447. if(flag1&&flag2&&flag3&&flag4)
  448. {
  449. document.SysParaForm.submit();
  450. }
  451. }
  452. //显示水印组件类型及支持情况
  453. //显示水印祖件参数输入界面
  455. showInfo(<%=sysObj.PicClassid%>,"PicParam","span_componentInfo");
  456. showInfo(<%=sysObj.ThumbnailComponent%>,"thumbnail_Param","span_thumbnailInfo");
  457. function showInfo(ComponentID,ParamPanel,Container)
  458. {
  459. if(parseInt(ComponentID)>=0&&parseInt(ComponentID)!=9)
  460. {
  461. document.getElementById(ParamPanel).style.display="block";
  462. }else
  463. {
  464. document.getElementById(ParamPanel).style.display="none";
  465. }
  466. if(parseInt(ComponentID)==9)
  467. {
  468. document.getElementById(Container).innerHTML = "";
  469. }
  470. else
  471. {
  472. document.getElementById(Container).innerHTML = ComponentNameArray[ComponentID] + ComponentInfoArray[ComponentID];
  473. }
  474. }
  475. //缩略图根据选择使用比例或大小显示相应的界面
  476. showThumbnail_RateOrSize(<%=sysObj.RateTF%>)
  477. function showThumbnail_RateOrSize(param)
  478. {
  479. if(param==1)
  480. {
  481. document.getElementById("span_UseRate").style.display="block"
  482. document.getElementById("span_UseSize").style.display="none"
  483. }else
  484. {
  485. document.getElementById("span_UseRate").style.display="none"
  486. document.getElementById("span_UseSize").style.display="block"
  487. }
  488. }
  490. function getOffsetTop(elm) {
  491. var mOffsetTop = elm.offsetTop;
  492. var mOffsetParent = elm.offsetParent;
  493. while(mOffsetParent){
  494. mOffsetTop += mOffsetParent.offsetTop;
  495. mOffsetParent = mOffsetParent.offsetParent;
  496. }
  497. return mOffsetTop;
  498. }
  499. function getOffsetLeft(elm) {
  500. var mOffsetLeft = elm.offsetLeft;
  501. var mOffsetParent = elm.offsetParent;
  502. while(mOffsetParent) {
  503. mOffsetLeft += mOffsetParent.offsetLeft;
  504. mOffsetParent = mOffsetParent.offsetParent;
  505. }
  506. return mOffsetLeft;
  507. }
  508. function GetColor(img_val,input_val)
  509. {
  510. var PaletteLeft,PaletteTop
  511. var obj = document.getElementById("colorPalette");
  512. ColorImg = img_val;
  513. ColorValue = document.getElementById(input_val);
  514. if (obj){
  515. PaletteLeft = getOffsetLeft(ColorImg)
  516. PaletteTop = (getOffsetTop(ColorImg) + ColorImg.offsetHeight)
  517. if (PaletteLeft+150 > parseInt(document.body.clientWidth)) PaletteLeft = parseInt(event.clientX)-260;
  518. obj.style.left = PaletteLeft + "px";
  519. obj.style.top = PaletteTop + "px";
  520. if (obj.style.visibility=="hidden")
  521. {
  522. obj.style.visibility="visible";
  523. }else {
  524. obj.style.visibility="hidden";
  525. }
  526. }
  527. }
  528. function setColor(color)
  529. {
  530. if(ColorImg.id=="FontColorShow"&&color=="#") color='#000000';
  531. if(ColorImg.id=="FontBgColorShow"&&color=="#") color='#FFFFFF';
  532. if (ColorValue){ColorValue.value = color.substr(1);}
  533. if (ColorImg && color.length>1){
  534. ColorImg.src='Images/Rect.gif';
  535. ColorImg.style.backgroundColor = color;
  536. }else if(color=='#'){ ColorImg.src='Images/rectNoColor.gif';}
  537. document.getElementById("colorPalette").style.visibility="hidden";
  538. }
  539. </script>
  540. </html>