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

📄 insertpicture.asp

📁 SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.
💻 ASP
字号:
🔍 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../Conn.asp"-->
<!--#include file="../SysCls/KS_CommonCls.asp"-->
<!--#include file="../Inc/Session1.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友情连接,商业版本无此要求;
'    ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
'    ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Response.Buffer = True 
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.CacheControl = "no-cache" 
Dim KSCls
Set KSCls = New InsertPicture
KSCls.Execute()
Set KSCls = Nothing

Class InsertPicture
        Private KSCMS
		Private AdminDir
		Private ChannelID
        Private CurrPath,InstallDir
		Private FromUrl
		Private Sub Class_Initialize()
		  Set KSCMS=New CommonCls
		End Sub
        Private Sub Class_Terminate()
		 Set KSCMS=Nothing
		End Sub
        Public Sub Execute()
			ChannelID = KSCMS.G("ChannelID")
			FromUrl=KSCMS.G("FromUrl")
			
			IF FromUrl=1 Then  '后台调用，检查是否登录
				Dim KSLoginCls
				Set KSLoginCls = New LoginCheckCls1
				KSLoginCls.Execute()
				Set KSLoginCls= Nothing
			End IF
			
			CurrPath=KSCMS.ReturnChannelUpFilesDir(ChannelID)
			AdminDir=KSCMS.GetDomain & KSCMS.GetConfig("AdminDir")
			Set KSCMS=Nothing
			%>
			<HTML>
			<HEAD>
			<TITLE>插入图片文件</TITLE>
			<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
			<link href="Editor.css" rel="stylesheet" type="text/css">
			<script language="JavaScript" src="../inc/Common.js"></script>
			<script language="JavaScript">
			function OK()
			{
			  var str1="";
			  var strurl=document.PicForm.url.value;
			  if (strurl==""||strurl=="http://")
			  {
				alert("请先输入图片地址，或者上传图片！");
				document.PicForm.url.focus();
				return false;
			  }
			  else
			  {
				str1="<img src='"+document.PicForm.url.value+"' alt='"+document.PicForm.alttext.value+"' ";
				if(document.PicForm.width.value!=''&&document.PicForm.width.value!='0') str1=str1+"width='"+document.PicForm.width.value+"' ";
				if(document.PicForm.height.value!=''&&document.PicForm.height.value!='0') str1=str1+"height='"+document.PicForm.height.value+"' ";
				str1=str1+"border='"+document.PicForm.PicBorder.value+"' align='"+document.PicForm.aligntype.value+"' ";
				if(document.PicForm.vspace.value!=''&&document.PicForm.vspace.value!='0') str1=str1+"vspace='"+document.PicForm.vspace.value+"' ";
				if(document.PicForm.hspace.value!=''&&document.PicForm.hspace.value!='0') str1=str1+"hspace='"+document.PicForm.hspace.value+"' ";
				if(document.PicForm.styletype.value!='')	str1=str1+"style='"+document.PicForm.styletype.value+"'";
				str1=str1+">";
				window.returnValue=str1+"$$$"+document.PicForm.UpFileName.value;
				window.close();
			  }
			}
			function ShowPicture()
			{
			  var str1="";
			  var strurl=document.PicForm.url.value;
			  if (strurl==""||strurl=="http://")
			  {
			  strurl='images/FileType/nopic.gif';
			  str1="<br><br><br><br><br><img src='"+ strurl+"'";
			  }
			  else
			  {
			  str1="<img src='"+ strurl+"'";
			   }
				str1=str1+" alt='"+document.PicForm.alttext.value+"' ";
				if(document.PicForm.width.value!=''&&document.PicForm.width.value!='0') str1=str1+"width='"+document.PicForm.width.value+"' ";
				if(document.PicForm.height.value!=''&&document.PicForm.height.value!='0') str1=str1+"height='"+document.PicForm.height.value+"' ";
				str1=str1+"border='"+document.PicForm.PicBorder.value+"' align='"+document.PicForm.aligntype.value+"' ";
				if(document.PicForm.vspace.value!=''&&document.PicForm.vspace.value!='0') str1=str1+"vspace='"+document.PicForm.vspace.value+"' ";
				if(document.PicForm.hspace.value!=''&&document.PicForm.hspace.value!='0') str1=str1+"hspace='"+document.PicForm.hspace.value+"' ";
				if(document.PicForm.styletype.value!='')	str1=str1+"style='"+document.PicForm.styletype.value+"'";
				str1=str1+">";
			objFiles.innerHTML=str1
			}
			function IsDigit()
			{
			  return ((event.keyCode >= 48) && (event.keyCode <= 57));
			}
			window.onunload=SetReturnValue;
			function SetReturnValue()
			{
				if (typeof(window.returnValue)!='string') window.returnValue='';
			}
			</script>
			</head>
			<BODY bgColor=menu topmargin=15 leftmargin=15 onload=ShowPicture();>
			<form name="PicForm" method="post" action="">
			  <table width=100% border="0" align="center" cellpadding="0" cellspacing="2">
				<tr>
				  <td> <FIELDSET align=left>
					<LEGEND align=left>输入图片参数</LEGEND>
					<TABLE border="0" align="center" cellpadding="0" cellspacing="3">
					  <tr> 
						<td width=350 align='center' bgcolor="#FFFFFF">
						 <div style="height:270; overflow:auto; width:380;" align="center"> 
							<span id="objFiles">
							</span> </div></td>
					  </tr>
					</TABLE>
					<table border="0" align=center cellpadding="0" cellspacing="3">
					  <tr> 
						<td colspan="2">图片地址： 
						  <input name="url" id="url" value='http://' size=30 maxlength="200" onChange="ShowPicture();"> 
						  <%if FromUrl=1 Then%>
						  <input type="button" name="Button" value="选择图片" onClick="var TempReturnValue=OpenWindow('<%=AdminDir%>Dialog/SelectPic.asp?ChannelID=<% = ChannelID %>&CurrPath=<% = CurrPath %>',500,290,window);if (TempReturnValue!='') document.PicForm.url.value=TempReturnValue;ShowPicture();" class=Anbutc> 
						  <%End If%>
						</td>
					  </tr>
					  <tr> 
						<td> 说明文字： 
						  <input name="alttext" id=alttext size=20 maxlength="100" onChange="ShowPicture();"> </td>
						<td>图片边框： 
						  <input name="PicBorder" id="PicBorder" ONKEYPRESS="event.returnValue=IsDigit();"  value="0" size=5 maxlength="2" onChange="ShowPicture();">
						  像素 </td>
					  </tr>
					  <tr> 
						<td> 特殊效果： 
						  <select name="styletype" id=styletype onChange="ShowPicture();">
							<option selected>不应用</option>
							<option value="filter:Alpha(Opacity=50)">半透明效果</option>
							<option value="filter:Alpha(Opacity=0, FinishOpacity=100, Style=1, StartX=0, StartY=0, FinishX=100, FinishY=140)">线型透明效果</option>
							<option value="filter:Alpha(Opacity=10, FinishOpacity=100, Style=2, StartX=30, StartY=30, FinishX=200, FinishY=200)">放射透明效果</option>
							<option value="filter:blur(add=1,direction=14,strength=15)">模糊效果</option>
							<option value="filter:blur(add=true,direction=45,strength=30)">风动模糊效果</option>
							<option value="filter:Wave(Add=0, Freq=60, LightStrength=1, Phase=0, Strength=3)">正弦波纹效果</option>
							<option value="filter:gray">黑白照片效果</option>
							<option value="filter:Chroma(Color=#FFFFFF)">白色为透明</option>
							<option value="filter:DropShadow(Color=#999999, OffX=7, OffY=4, Positive=1)">投射阴影效果</option>
							<option value="filter:Shadow(Color=#999999, Direction=45)">阴影效果</option>
							<option value="filter:Glow(Color=#ff9900, Strength=5)">发光效果</option>
							<option value="filter:flipv">垂直翻转显示</option>
							<option value="filter:fliph">左右翻转显示</option>
							<option value="filter:grays">降低彩色度</option>
							<option value="filter:xray">X光照片效果</option>
							<option value="filter:invert">底片效果</option>
						  </select> </td>
						<td>图片位置： 
						  <select name="aligntype" id=aligntype onChange="ShowPicture();">
							<option selected>默认位置 
							<option value="left">居左 
							<option value="right" >居右 
							<option value="top">顶部 
							<option value="middle">中部 
							<option value="bottom">底部 
							<option value="absmiddle">绝对居中 
							<option value="absbottom">绝对底部 
							<option value="baseline">基线 
							<option value="texttop">文本顶部 </select></td>
					  </tr>
					  <tr> 
						<td>图片宽度： 
						  <input name="width" id=width2  ONKEYPRESS="event.returnValue=IsDigit();" size=4 maxlength="4" onChange="ShowPicture();">
						  像素</td>
						<td>图片高度： 
						  <input name="height" id="height3" onKeyPress="event.returnValue=IsDigit();" size=4 maxlength="4" onChange="ShowPicture();">
						  像素</td>
					  </tr>
					  <tr> 
						<td>上下间距： 
						  <input name="vspace" id=vspace  ONKEYPRESS="event.returnValue=IsDigit();" value="0" size=4 maxlength="2" onChange="ShowPicture();">
						  像素</td>
						<td>左右间距： 
						  <input name="hspace" id=hspace onKeyPress="event.returnValue=IsDigit();"  value="0" size=4 maxlength="2" onChange="ShowPicture();">
						  像素</td>
					  </tr>
					</table>
					</fieldset></td>
				  <td width=80 align="center"><table width="100%" border="0" cellspacing="0" cellpadding="0">
					  <tr> 
						<td height="40"> <div align="center"> 
							<input name="cmdOK" type="button" id="cmdOK3" value="  确定  " onClick="OK();">
							<input name="UpFileName" type="hidden" id="UpFileName3" value="None">
						  </div></td>
					  </tr>
					  <tr> 
						<td height="40"> <div align="center"> 
							<input name="cmdCancel" type=button id="cmdCancel3" onClick="window.close();" value='  取消  '>
						  </div></td>
					  </tr>
					</table></td>
				</tr>
			  </table>
			</form>
			</body>
			</html>
<%
  End Sub
End Class
%>

⌨️ 快捷键说明

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