⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_cls.asp

📁 Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!--#include file = admin_chk.asp -->
<%
If Not ChkAdmin("ClsSetTing") Then
	Call ArtErr("","")
End If
%>
<!--#include file = Include/NIncHeads.asp -->
<link rel="stylesheet" type="text/css" href="../images/admin/style.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<%
path=config("path")
Action=Trim(Request("Action"))
Call Heads_Site()
if action="save" then
		 call SaveEdit()
     
else
	call Main()'显示页面
    Call AdminPageEnd()
end if

'关闭数据库链接
Call CloseConn()

'保存
Sub SaveEdit()
		SqlItem="select top 1 * from Config"
     	Set Rs=server.CreateObject("adodb.recordset")
     	Rs.Open SqlItem,Conn,1,3
			Response.Flush()
			If G("RateTF") = "" Then
				RS("RateTF") = 0
			Else
				RS("RateTF") = G("RateTF")
			End If
			If G("ThumbWidth") = "" Then
				RS("ThumbWidth") = 0
			Else
				RS("ThumbWidth") = G("ThumbWidth")
			End If
			If G("ThumbHeight") = "" Then
				RS("ThumbHeight") = 0
			Else
				RS("ThumbHeight") = G("ThumbHeight")
			End If
			If G("ThumbRate") = "" Then
				RS("ThumbRate") = 0
			Else
				RS("ThumbRate") = G("ThumbRate")
			End If
			If G("MarkComponent") = "" Then
				RS("MarkComponent") = 0
			Else
				RS("MarkComponent") = G("MarkComponent")
			End If
			RS("MarkType") = G("MarkType")
			If G("MarkText") = "" Then
				RS("MarkText") = " "
			Else
				RS("MarkText") = G("MarkText")
			End If
			If G("MarkFontSize") = "" Then
				RS("MarkFontSize") = 12
			Else
				RS("MarkFontSize") = G("MarkFontSize")
			End If
			If G("MarkFontColor") = "" Then
				RS("MarkFontColor") = "#ffffff"
			Else
				RS("MarkFontColor") = G("MarkFontColor")
			End If
			RS("MarkFontName") = G("MarkFontName")
			RS("MarkFontBond") = G("MarkFontBond")
			If G("gif_url") = "" Then
			RS("MarkPicture") = " "
			Else
			MarkPicture=G("gif_url")
			MarkPicture=replace(MarkPicture,"../",path)						
			RS("MarkPicture") = MarkPicture
			
			End If
			If G("MarkOpacity") = "" Then
				RS("MarkOpacity") = 0
			Else
				RS("MarkOpacity") = CSng(G("MarkOpacity"))
			End If
			If G("MarkWidth") = "" Then
				RS("MarkWidth") = 0
			Else
				RS("MarkWidth") = G("MarkWidth")
			End If
			If G("MarkHeight") = "" Then
				RS("MarkHeight") = 0
			Else
				RS("MarkHeight") = G("MarkHeight")
			End If
			If G("MarkTranspColor") = "" Then
				RS("MarkTranspColor") = " "
			Else
				RS("MarkTranspColor") = G("MarkTranspColor")
			End If
		
			RS("ThumbComponent") = G("ThumbComponent")
			RS("MarkPosition") = G("MarkPosition")
		Rs.UpDate
      	Rs.Close	
	  	set rs=nothing 
		 call Succeed("<li>您已修改成功缩图水印设置！。</li>","admin_cls.asp")
end sub
%>



<%Sub Main()
		SqlStr = "select * from Config"
		Set RS = Server.CreateObject("adodb.recordset")
		RS.Open SqlStr, Conn, 1, 3
		MarkFontColor=RS("MarkFontColor")
		MarkTranspColor=RS("MarkTranspColor")


%>
 <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
<form   name="form"  action="?action=save" method="post">  
  <tr>
  	<td   align="center" class="bg_tr" height="25" colspan="3"><b>缩略图水印选项</b></td>
  </tr>
  <tr>
    <td colspan="3" >
	<%
		Response.Write "<script src=""Include/Common.js"" language=""JavaScript""></script>"
		Response.Write "<body bgcolor=""#FFFFFF"" scroll=yes onLoad=""SetTypeArea(" & RS("MarkType") & ");ShowInfo(" & RS("MarkComponent") & ");ShowThumbInfo(" & RS("ThumbComponent") & ");ShowThumbSetting(" & RS("RateTF") & ")""  >"
		Response.Write "    <tr bgcolor=""#F7F7F7"" onMouseOut=""this.style.backgroundColor='#F7F7F7'"" onMouseOver=""this.style.backgroundColor='#D7E3F3'"" >"
		Response.Write "      <td width=""257"" height=""40"" align=""left"" ><STRONG><u>生成缩略图组件：</u></STRONG><BR>"
		Response.Write "      <span >请一定要选择服务器上已安装的组件</span></td>"
		Response.Write "      <td width=""677"" >"
		Response.Write "       <select name=""ThumbComponent"" id=""ThumbComponent"" onChange=""ShowThumbInfo(this.value)"" style=""width:50%"">"
		Response.Write "          <option value=0 "
		If RS("ThumbComponent") = "0" Then Response.Write ("selected")
		Response.Write ">关闭 </option>"
		Response.Write "          <option value=1 "
		If RS("ThumbComponent") = "1" Then Response.Write ("selected")
		Response.Write ">AspJpeg组件 " & ExpiredStr(0) & "</option>"
		Response.Write "          <option value=2 "
		If RS("ThumbComponent") = "2" Then Response.Write ("selected")
		Response.Write ">wsImage组件 " & ExpiredStr(1) & "</option>"
		Response.Write "          <option value=3 "
		If RS("ThumbComponent") = "3" Then Response.Write ("selected")
		Response.Write ">SA-ImgWriter组件 " & ExpiredStr(2) & "</option>"
		Response.Write "        </select>"
		Response.Write "      <span id=""ThumbComponentInfo""></span></td>"
		Response.Write "    </tr>"
		Response.Write "    <tr bgcolor=""#FFFFFF"" onMouseOut=""this.style.backgroundColor='#FFFFFF'"" onMouseOver=""this.style.backgroundColor='#D7E3F3'"" id =""ThumbSetting"" style=""display:none"">"
		 Response.Write "     <td height=""23"" align=""right"" > <input type=""radio"" name=""RateTF"" value=""1"" onClick=""ShowThumbSetting(1);"" "
		 If RS("RateTF") = "1" Then Response.Write ("checked")
		 Response.Write ">"
		 Response.Write "       按比例"
		 Response.Write "       <input type=""radio"" name=""RateTF"" value=""0"" onClick=""ShowThumbSetting(0);"" "
		 If RS("RateTF") = "0" Then Response.Write ("checked")
		 Response.Write ">"
		 Response.Write "     按大小 </td>"
		 Response.Write "     <td width=""677"" height=""50"" > <div id =""ThumbSetting0"" style=""display:none"">&nbsp;缩略图宽度："
		Response.Write "          <input type=""text"" name=""ThumbWidth"" size=10 value=""" & RS("ThumbWidth") & """>"
		Response.Write "          象素<br>&nbsp;缩略图高度："
		Response.Write "          <input type=""text"" name=""ThumbHeight"" size=10 value=""" & RS("ThumbHeight") & """>"
		Response.Write "          象素</div>"
		Response.Write "        <div id =""ThumbSetting1"" style=""display:none"">&nbsp;比例："
		Response.Write "          <input type=""text"" name=""ThumbRate"" size=10 value="""
		If Left(RS("ThumbRate"), 1) = "." Then Response.Write ("0" & RS("ThumbRate")) Else Response.Write (RS("ThumbRate"))
		Response.Write """>"
		Response.Write "      <br>&nbsp;如缩小原图的50%,<span class=""redtext"">请填写0.5 </span></div></td>"
		Response.Write "    </tr>"
		Response.Write "    <tr bgcolor=""#F7F7F7"" onMouseOut=""this.style.backgroundColor='#F7F7F7'"" onMouseOver=""this.style.backgroundColor='#D7E3F3'""  >"
		Response.Write "      <td height=""40"" align=""left""><strong><u>图片水印组件：</u></strong><BR>"
		Response.Write "      <span class=""STYLE1"">请一定要选择服务器上已安装的组件</span></td>"
		Response.Write "      <td width=""677""><select name=""MarkComponent"" id=""MarkComponent"" onChange=""ShowInfo(this.value)"" style=""width:50%"">"
		Response.Write "          <option value=0 "
		If RS("MarkComponent") = "0" Then Response.Write ("selected")
		Response.Write ">关闭"
		Response.Write "          <option value=1 "
		If RS("MarkComponent") = "1" Then Response.Write ("selected")
		Response.Write ">AspJpeg组件 " & ExpiredStr(0) & "</option>"
		Response.Write "          <option value=2 "
		If RS("MarkComponent") = "2" Then Response.Write ("selected")
		Response.Write ">wsImage组件 " & ExpiredStr(1) & "</option>"
		Response.Write "          <option value=3 "
		If RS("MarkComponent") = "3" Then Response.Write ("selected")
		Response.Write ">SA-ImgWriter组件 " & ExpiredStr(2) & "</option>"
		Response.Write "      </select>  </td>"
		Response.Write "    </tr>"
		Response.Write "    <tr  id=""WaterMarkSetting"" style=""display:none"" >"
		Response.Write "      <td colspan=2 bgcolor=""#FFFFFF""><table width=""100%"" border=0 align=center  cellPadding=0 cellSpacing=1 bordercolor=""#FFFFFF"" bgcolor=""#C4D8ED"">"
		Response.Write "          <tr bgcolor=""#FFFFFF"" onMouseOut=""this.style.backgroundColor='#FFFFFF'"" onMouseOver=""this.style.backgroundColor='#D7E3F3'"">"
		Response.Write "            <td width=248 height=""28"" align=""right"">水印类型：</td>"
		Response.Write "            <td width=""648"" >&nbsp;<SELECT name=""MarkType"" id=""MarkType"" onChange=""SetTypeArea(this.value)"">"
		Response.Write "                <OPTION value=""1"" "
		If RS("MarkType") = "1" Then Response.Write ("selected")
		Response.Write ">文字效果</OPTION>"
		Response.Write "                <OPTION value=""2"" "
		If RS("MarkType") = "2" Then Response.Write ("selected")
		Response.Write ">图片效果</OPTION>"
		Response.Write "            </SELECT> </td>"
		Response.Write "          </tr>"
		Response.Write "          <tr bgcolor=""#FFFFFF"" onMouseOut=""this.style.backgroundColor='#FFFFFF'"" onMouseOver=""this.style.backgroundColor='#D7E3F3'"">"
		Response.Write "            <td height=""26"" align=""right"" >坐标起点位置：</td>"
		Response.Write "            <td >&nbsp;<SELECT NAME=""MarkPosition"" id=""MarkPosition"">"
		Response.Write "                <option value=""1"" "
		If RS("MarkPosition") = "1" Then Response.Write ("selected")
		Response.Write ">左上</option>"
		Response.Write "                <option value=""2"" "
		If RS("MarkPosition") = "2" Then Response.Write ("selected")
		Response.Write ">左下</option>"
		Response.Write "                <option value=""3"" "
		If RS("MarkPosition") = "3" Then Response.Write ("selected")
		Response.Write ">居中</option>"
		Response.Write "                <option value=""4"" "
		If RS("MarkPosition") = "4" Then Response.Write ("selected")
		Response.Write ">右上</option>"
		Response.Write "                <option value=""5"" "
		If RS("MarkPosition") = "5" Then Response.Write ("selected")
		Response.Write ">右下</option>"
		Response.Write "            </SELECT> </td>"
		Response.Write "          </tr>"
		Response.Write "          <tr>"
		Response.Write "           <td colspan=""2"">"
		Response.Write "           <table width=""100%"" border=0 align=center cellPadding=0 cellSpacing=0 bordercolor=""#FFFFFF"" bgcolor=""#C4D8ED"" id=""textarea"">"
		Response.Write "          <tr bgcolor=""#FFFFFF"" onMouseOut=""this.style.backgroundColor='#FFFFFF'"" onMouseOver=""this.style.backgroundColor='#D7E3F3'"">"
		Response.Write "            <td width=""27%"" height=""26"" align=""right"" >水印文字信息：</td>"
		Response.Write "            <td width=""70%"" >&nbsp;<INPUT TYPE=""text"" NAME=""MarkText"" size=40 value=""" & RS("MarkText") & """>            </td>"
		Response.Write "          </tr>"
		Response.Write "          <tr bgcolor=""#FFFFFF"" onMouseOut=""this.style.backgroundColor='#FFFFFF'"" onMouseOver=""this.style.backgroundColor='#D7E3F3'"">"
		Response.Write "            <td height=""26"" align=""right"" >字体大小：</td>"
		Response.Write "            <td >&nbsp;<INPUT TYPE=""text"" NAME=""MarkFontSize"" size=10 value=""" & RS("MarkFontSize") & """>"
		Response.Write "            <b>px</b> </td>"
		Response.Write "          </tr>"
		Response.Write "          <tr bgcolor=""#FFFFFF"" onMouseOut=""this.style.backgroundColor='#FFFFFF'"" onMouseOver=""this.style.backgroundColor='#D7E3F3'"">"
		Response.Write "            <td height=""26"" align=""right"" >字体颜色：</td>"
		Response.Write "            <td >&nbsp;<input  type=""text"" name=""MarkFontColor"" maxlength = 7 size = 7 id=""MarkFontColor"" value=""" & MarkFontColor & """ readonly>"
		Response.Write "    <img border=0 align=""absmiddle"" id=""MarkFontColor"" src=""../images/admin/rect.gif"" style=""cursor:pointer;background-Color:" & MarkFontColor  & ";"" onClick=""Getcolor(this,'Include/selectcolor.asp','MarkFontColor');"" title=""选取颜色""></td>"
		Response.Write "          </tr>"
		Response.Write "          <tr bgcolor=""#FFFFFF"" onMouseOut=""this.style.backgroundColor='#FFFFFF'"" onMouseOver=""this.style.backgroundColor='#D7E3F3'"">"
		Response.Write "            <td height=""26"" align=""right"" >字体名称：</td>"
		Response.Write "            <td >&nbsp;<SELECT name=""MarkFontName"" id=""MarkFontName"">"
		Response.Write "                <option value=""宋体"" "
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -