📄 system_thumb.asp

📁 SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../Inc/Session.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 SP2 Free
'Copyright (C) 2006-2008 Kesion.Com  All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407 
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail  :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com  
'演示站点：http://test.kesion.com 
'郑重声明:
'    ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
'    ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
'    ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Dim KSCls
Set KSCls = New System_Thumb
KSCls.Execute()
Set KSCls = Nothing

Class System_Thumb
        Private KSCMS
		Private Sub Class_Initialize()
		  Set KSCMS=New CommonCls
		End Sub
        Private Sub Class_Terminate()
		 Call KSCMS.CloseConn()
		 Set KSCMS=Nothing
		End Sub


		Public Sub Execute()
		Dim InstallDir, CurrPath, SqlStr, RS
		CurrPath = KSCMS.GetConfig("UpFilesDir")
		InstallDir = KSCMS.GetConfig("InstallDir")
		CurrPath = Left(CurrPath, Len(CurrPath) - 1)
		If InstallDir = "/" Then CurrPath = "/" & CurrPath
		
		SqlStr = "select * from KS_Thumb"
		Set RS = Server.CreateObject("adodb.recordset")
		RS.Open SqlStr, Conn, 1, 3
		If KSCMS.G("Action") = "Modify" Then
			On Error Resume Next
			If KSCMS.G("RateTF") = "" Then
				RS("RateTF") = 0
			Else
				RS("RateTF") = KSCMS.G("RateTF")
			End If
			If KSCMS.G("ThumbWidth") = "" Then
				RS("ThumbWidth") = 0
			Else
				RS("ThumbWidth") = KSCMS.G("ThumbWidth")
			End If
			If KSCMS.G("ThumbHeight") = "" Then
				RS("ThumbHeight") = 0
			Else
				RS("ThumbHeight") = KSCMS.G("ThumbHeight")
			End If
			If KSCMS.G("ThumbRate") = "" Then
				RS("ThumbRate") = 0
			Else
				RS("ThumbRate") = KSCMS.G("ThumbRate")
			End If
			If KSCMS.G("MarkComponent") = "" Then
				RS("MarkComponent") = 0
			Else
				RS("MarkComponent") = KSCMS.G("MarkComponent")
			End If
			RS("MarkType") = KSCMS.G("MarkType")
			If KSCMS.G("MarkText") = "" Then
				RS("MarkText") = " "
			Else
				RS("MarkText") = KSCMS.G("MarkText")
			End If
			If KSCMS.G("MarkFontSize") = "" Then
				RS("MarkFontSize") = 12
			Else
				RS("MarkFontSize") = KSCMS.G("MarkFontSize")
			End If
			If KSCMS.G("MarkFontColor") = "" Then
				RS("MarkFontColor") = " "
			Else
				RS("MarkFontColor") = KSCMS.G("MarkFontColor")
			End If
			RS("MarkFontName") = KSCMS.G("MarkFontName")
			RS("MarkFontBond") = KSCMS.G("MarkFontBond")
			If KSCMS.G("MarkPicture") = "" Then
			RS("MarkPicture") = " "
			Else
			RS("MarkPicture") = KSCMS.G("MarkPicture")
			End If
			If KSCMS.G("MarkOpacity") = "" Then
				RS("MarkOpacity") = 0
			Else
				RS("MarkOpacity") = CSng(KSCMS.G("MarkOpacity"))
			End If
			If KSCMS.G("MarkWidth") = "" Then
				RS("MarkWidth") = 0
			Else
				RS("MarkWidth") = KSCMS.G("MarkWidth")
			End If
			If KSCMS.G("MarkHeight") = "" Then
				RS("MarkHeight") = 0
			Else
				RS("MarkHeight") = KSCMS.G("MarkHeight")
			End If
			If KSCMS.G("MarkTranspColor") = "" Then
				RS("MarkTranspColor") = " "
			Else
				RS("MarkTranspColor") = KSCMS.G("MarkTranspColor")
			End If
		
			RS("ThumbComponent") = KSCMS.G("ThumbComponent")
			RS("MarkPosition") = KSCMS.G("MarkPosition")
			RS.Update
			Response.Write ("<script>alert('缩略图选项设置成功!');location.href='System_Thumb.asp';</script>")
		End If
		
		
		Response.Write "<html>"
		Response.Write "<title>网站基本参数设置</title>"
		Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""><style type=""text/css"">"
		Response.Write "<!--" & vbCrLf
		Response.Write "body {" & vbCrLf
		Response.Write "    margin-left: 0px;" & vbCrLf
		Response.Write "    margin-top: 0px;"
		Response.Write "    margin-right: 0px;"
		Response.Write "    margin-bottom: 0px;"
		Response.Write "}"
		Response.Write ".STYLE1 {color: #FF0000}" & vbCrLf
		Response.Write "-->" & vbCrLf
		Response.Write "</style></head>" & vbCrLf
		Response.Write "<script src=""../js/common.js"" language=""javascript""></script>"
		Response.Write "<link href=""../inc/admin_style.css"" rel=""stylesheet"">"
		Response.Write "<body bgcolor=""#FFFFFF"" scroll=yes onLoad=""SetTypeArea(" & RS("MarkType") & ");ShowInfo(" & RS("MarkComponent") & ");ShowThumbInfo(" & RS("ThumbComponent") & ");ShowThumbSetting(" & RS("RateTF") & ")""  oncontextmenu=""return false;"">"
		Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
		Response.Write "  <tr>"
		Response.Write "    <td height=""25"" align=""center"" class=""sort""><strong>缩略图水印选项设置</strong>"
		Response.Write "    <div align=""center"" ><strong></strong></div></td>"
		Response.Write "  </tr>"
		Response.Write "</table>"
		Response.Write "<table><tr><Td height=20></td></tr></table>"
		Response.Write "  <table width=""95%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""1"" bgcolor=""#CDCDCD"">"
		Response.Write "<form name=""form"" method=""post"" action=""system_thumb.asp?action=Modify"">"
		Response.Write "    <tr bgcolor=""#F5F5F5"" >"
		Response.Write "      <td width=""257"" height=""40"" align=""right"" bgcolor=""#EEF8FE""><STRONG>生成缩略图组件：</STRONG><BR>"
		Response.Write "      <span class=""STYLE1"">请一定要选择服务器上已安装的组件</span></td>"
		Response.Write "      <td width=""677"" bgcolor=""#EEF8FE"">"
		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组件 " & KSCMS.ExpiredStr(0) & "</option>"
		Response.Write "          <option value=2 "
		If RS("ThumbComponent") = "2" Then Response.Write ("selected")
		Response.Write ">wsImage组件 " & KSCMS.ExpiredStr(1) & "</option>"
		Response.Write "          <option value=3 "
		If RS("ThumbComponent") = "3" Then Response.Write ("selected")
		Response.Write ">SA-ImgWriter组件 " & KSCMS.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"" bgcolor=""#EEF8FE""> <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"" bgcolor=""#EEF8FE""> <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%,请输入0.5 </div></td>"
		Response.Write "    </tr>"
		Response.Write "    <tr bgcolor=""#F5F5F5"" >"
		Response.Write "      <td height=""40"" align=""right"" bgcolor=""#EEF8FE""><strong>图片水印组件：</strong><BR>"
		Response.Write "      <span class=""STYLE1"">请一定要选择服务器上已安装的组件</span></td>"
		Response.Write "      <td width=""677"" bgcolor=""#EEF8FE""> <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组件 " & KSCMS.ExpiredStr(0) & "</option>"
		Response.Write "          <option value=2 "
		If RS("MarkComponent") = "2" Then Response.Write ("selected")
		Response.Write ">wsImage组件 " & KSCMS.ExpiredStr(1) & "</option>"
		Response.Write "          <option value=3 "
		If RS("MarkComponent") = "3" Then Response.Write ("selected")
		Response.Write ">SA-ImgWriter组件 " & KSCMS.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 bgcolor=""#EEF8FE""> <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"" bgcolor=""#EEF8FE"">水印类型</td>"
		Response.Write "            <td width=""648"" bgcolor=""#EEF8FE""> <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"" bgcolor=""#EEF8FE"">坐标起点位置</td>"
		Response.Write "            <td bgcolor=""#EEF8FE""> <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>"
12 下一页
💿 文件大小 9756 K
👤 上传用户 BO__1
📂 所属分类 Java编程
🏷️ 相关标签

#shtml #ASPX #html #采集
⌨️ 快捷键说明

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