📄 sk_config.asp
字号:
<%
'================================================================================================
' 软件名称：清风信息自动采集生成系统
' 当前版本：CJ 1.0
' 更新日期：2008-7-18
' 程序版权：龙心数据
' 程序开发：龙心数据开发组
' 演示站点：http://cj.iising.com
' 官方网站：http://www.iising.com QQ：24387481 电话：13719316070
' 郑重声明:
' ①、没有版权,你爱抄抄,爱搬搬,偶看不见!
' ②、不要用黑与白来衡量你我之间的距离,更不要让生活磨灭我们的个性！
' ③、欢迎定做各种信息采集功能系统。
'================================================================================================
%>
<!--#include file="inc/setup.asp"-->
<link rel="stylesheet" type="text/css" href="css/Admin_Style.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script src="inc/common.js" language="javascript"></script>
<%
Action=Trim(Request("Action"))
if action="save" then
call SaveEdit()
else
call Main()'显示页面
end if
'关闭数据库链接
Call CloseConnItem()
'保存
Sub SaveEdit()
ConnItem.Execute("Update Sk_cj Set Dir='"& Trim(Request.Form("ArticleDir")) &"' Where Id=1")
ConnItem.Execute("Update Sk_cj Set Dir='"& Trim(Request.Form("photoDir")) &"' Where Id=2")
ConnItem.Execute("Update Sk_cj Set Dir='"& Trim(Request.Form("DownDir")) &"' Where Id=3")
SqlItem="select top 1 * from SK_Config"
Set Rs=server.CreateObject("adodb.recordset")
Rs.Open SqlItem,ConnItem,3,3
rs("WebName")=Request.Form("WebName")
rs("WebUrl")=Request.Form("WebUrl")
rs("WebLogo")=Request.Form("WebLogo")
rs("Webabout")=Request.Form("Webabout")
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") = " "
Else
RS("MarkFontColor") = G("MarkFontColor")
End If
RS("MarkFontName") = G("MarkFontName")
RS("MarkFontBond") = G("MarkFontBond")
If G("MarkPicture") = "" Then
RS("MarkPicture") = " "
Else
RS("MarkPicture") = G("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
response.write "<script>alert('修改设置成功!');location.href='sk_config.asp';</script>"'关闭窗口
call Main()
end sub
%>
<%Sub Main()
SqlStr = "select * from SK_Config"
Set RS = Server.CreateObject("adodb.recordset")
RS.Open SqlStr, ConnItem, 1, 3
%>
<table width="97%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder">
<form name="form" action="?action=save" method="post">
<tr>
<td height="33" colspan="3" class="title"><div align="center"><span style="font-weight: bold">网站基本设置</span></div></td>
</tr>
<tr>
<td colspan="3" class="title2"> 用于设置网站的基本信息。</td>
</tr>
<tr>
<td width="18%" class="table"> 网站全称</td>
<td colspan="2" class="table"><input name="WebName" type="text" id="WebName" class="lostfocus" gf="0" onmouseover='this.className="getfocus"' onmouseout='if (this.gf=="0") this.className="lostfocus"' onblur='this.className="lostfocus";this.gf="0"' onfocus='this.className="getfocus";this.gf="1"' value="<% =rs("WebName") %>" >
（显示于首页。如：“清风信息自动采集生成系统”）</td>
</tr>
<tr>
<td colspan="3" class="title2"> </td>
</tr>
<tr>
<td colspan="3" class="title"><span style="font-weight: bold">缩略图水印设置</span></td>
</tr>
<tr>
<td colspan="3" class="table">
<%
Response.Write "<body bgcolor=""#FFFFFF"" scroll=yes onLoad=""SetTypeArea(" & RS("MarkType") & ");ShowInfo(" & RS("MarkComponent") & ");ShowThumbInfo(" & RS("ThumbComponent") & ");ShowThumbSetting(" & RS("RateTF") & ")"" >"
Response.Write " <tr bgcolor=""#F5F5F5"" >"
Response.Write " <td width=""257"" height=""40"" align=""right"" class=""table""><STRONG>生成缩略图组件：</STRONG><BR>"
Response.Write " <span class=""STYLE1"">请一定要选择服务器上已安装的组件</span></td>"
Response.Write " <td width=""677"" class=""table"">"
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=""#F5F5F5"" id =""ThumbSetting"" style=""display:none"">"
Response.Write " <td height=""23"" align=""right"" class=""table""> <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"" class=""table""> <div id =""ThumbSetting0"" style=""display:none""> 缩略图宽度："
Response.Write " <input type=""text"" name=""ThumbWidth"" size=10 value=""" & RS("ThumbWidth") & """>"
Response.Write " 象素<br> 缩略图高度："
Response.Write " <input type=""text"" name=""ThumbHeight"" size=10 value=""" & RS("ThumbHeight") & """>"
Response.Write " 象素</div>"
Response.Write " <div id =""ThumbSetting1"" style=""display:none""> 比例："
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> 如缩小原图的50%,请输入0.5 </div></td>"
Response.Write " </tr>"
Response.Write " <tr bgcolor=""#F5F5F5"" >"
Response.Write " <td height=""40"" align=""right"" class=""table""><strong>图片水印组件：</strong><BR>"
Response.Write " <span class=""STYLE1"">请一定要选择服务器上已安装的组件</span></td>"
Response.Write " <td width=""677"" class=""table""> <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 align=""left"" valign=""top"" bgcolor=""#F5F5F5"" id=""WaterMarkSetting"" style=""display:none"" cellpadding=""0"" cellspacing=""0"">"
Response.Write " <td colspan=2 class=""table""> <table width=100% border=""0"" cellpadding=""0"" cellspacing=""1"" bordercolor=""e6e6e6"" bgcolor=""#efefef"">"
Response.Write " <tr bgcolor=""#FFFFFF"">"
Response.Write " <td width=262 height=""26"" align=""right"" class=""table"">水印类型</td>"
Response.Write " <td width=""648"" class=""table""> <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"">"
Response.Write " <td height=""26"" align=""right"" class=""table"">坐标起点位置</td>"
Response.Write " <td class=""table""> <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"" cellpadding=""0"" cellspacing=""1"" bgcolor=""#efefef"" id=""textarea"">"
Response.Write " <tr bgcolor=""#FFFFFF"">"
Response.Write " <td width=""27%"" height=""26"" align=""right"" class=""table"">水印文字信息:</td>"
Response.Write " <td width=""70%"" class=""table""> <INPUT TYPE=""text"" NAME=""MarkText"" size=40 value=""" & RS("MarkText") & """> </td>"
Response.Write " </tr>"
Response.Write " <tr bgcolor=""#FFFFFF"">"
Response.Write " <td height=""26"" align=""right"" class=""table"">字体大小:</td>"
Response.Write " <td class=""table""> <INPUT TYPE=""text"" NAME=""MarkFontSize"" size=10 value=""" & RS("MarkFontSize") & """>"
Response.Write " <b>px</b> </td>"
Response.Write " </tr>"
Response.Write " <tr bgcolor=""#FFFFFF"">"
Response.Write " <td height=""26"" align=""right"" class=""table"">字体颜色:</td>"
Response.Write " <td class=""table""><input type=""text"" name=""MarkFontColor"" maxlength = 7 size = 7 id=""MarkFontColor"" value=""" & RS("MarkFontColor") & """ readonly>"
Response.Write " <input type=""button"" name=""button12"" value=""选择颜色..."" onClick=""OpenThenSetValue('inc/SelectColor.asp',230,190,window,document.form.MarkFontColor);document.form.MarkFontColor.style.color=document.form.MarkFontColor.value;""></td>"
Response.Write " </tr>"
Response.Write " <tr bgcolor=""#FFFFFF"">"
Response.Write " <td height=""26"" align=""right"" class=""table"">字体名称:</td>"
Response.Write " <td class=""table""> <SELECT name=""MarkFontName"" id=""MarkFontName"">"
Response.Write " <option value=""宋体"" "
If RS("MarkFontName") = "宋体" Then Response.Write ("selected")
Response.Write ">宋体</option>"
Response.Write " <option value=""楷体_GB2312"" "
If RS("MarkFontName") = "楷体_GB2312" Then Response.Write ("selected")
Response.Write ">楷体</option>"
Response.Write " <option value=""新宋体"" "
If RS("MarkFontName") = "新宋体" Then Response.Write ("selected")
Response.Write ">新宋体</option>"
Response.Write " <option value=""黑体"" "
If RS("MarkFontName") = "黑体" Then Response.Write ("selected")
Response.Write ">黑体</option>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -