📄 act.sys.asp
字号:
.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"> </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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -