📄 insertflash.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 InsertFlash
KSCls.Execute()
Set KSCls = Nothing

Class InsertFlash
        Private KSCMS
		Private AdminDir
		Private ChannelID
		Private FromUrl
        Private CurrPath,InstallDir
		Private Sub Class_Initialize()
		  Set KSCMS=New CommonCls
		End Sub
        Private Sub Class_Terminate()
		 Set KSCMS=Nothing
		End Sub
        Public Sub Execute()
			FromUrl=KSCMS.G("FromUrl")
	
	       IF FromUrl=1 Then  '后台调用，检查是否登录
				Dim KSLoginCls
				Set KSLoginCls = New LoginCheckCls1
				KSLoginCls.Execute()
				Set KSLoginCls= Nothing
			End IF

			ChannelID = KSCMS.G("ChannelID")
			CurrPath=KSCMS.ReturnChannelUpFilesDir(ChannelID)
			AdminDir=KSCMS.GetDomain & KSCMS.GetConfig("AdminDir")
			Set KSCMS=Nothing
			%>
			<HTML>
			<HEAD>
			<TITLE>插入FLASH文件</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.FlashForm.url.value;
			  if (!IsExt(strurl,'swf'))
			  {
				  alert('文件类型不对，请重新选择！');
				  return;
			  }
			  if (strurl==""||strurl=="http://")
			  {
				alert("请先输入FLASH文件地址，或者上传FLASH文件！");
				document.FlashForm.url.focus();
				return false;
			  }
			  else
			  {
				str1="<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000'  codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width="+document.FlashForm.width.value+" height="+document.FlashForm.height.value+"><param name=movie value="+document.FlashForm.url.value+"><param name=quality value=high><embed src="+document.FlashForm.url.value+" pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width="+document.FlashForm.width.value+" height="+document.FlashForm.height.value+"></embed></object>"
				window.returnValue = str1+"$$$"+document.FlashForm.UpFileName.value;
				window.close();
			  }
			}
			function swfShowChange(){
			   if(document.FlashForm.url.value=="http://"){
			   document.FlashForm.url.value=""
			   }
			   if(document.FlashForm.url.value!='')  
			   {objFiles.innerHTML="<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000'  codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width="+document.FlashForm.width.value+" height="+document.FlashForm.height.value+"><param name=movie value="+document.FlashForm.url.value+"><param name=quality value=high><embed src="+document.FlashForm.url.value+" pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width="+document.FlashForm.width.value+" height="+document.FlashForm.height.value+"></embed></object>"}
			}
			function IsExt(url,opt)
			{  
				var sTemp; 
				var b=false; 
				var s=opt.toUpperCase().split("|");  
				for (var i=0;i<s.length ;i++ ) 
				{ 
					sTemp=url.substr(url.length-s[i].length-1); 
					sTemp=sTemp.toUpperCase();
					s[i]="."+s[i];
					if (s[i]==sTemp)
					{
						b=true;
						break;
					}
				}
				return b;
			}
			
			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 >
			<form name="FlashForm" method="post" action="">
			  <table width=100% border="0" cellpadding="0" cellspacing="2">
				<tr>
				  <td> <FIELDSET align=left>
					<LEGEND align=left>FLASH动画参数</LEGEND>
					<table height="280" border="0" align="center" cellpadding="0" cellspacing="3" >
					  <tr> 
						<td width=350 align='center'> 
						<div style="height:250; overflow:auto; width:380" align="center"> 
							<span id="objFiles"> <img src="images/FileType/Flash.gif"></span> 
						  </div>
						</td>
					  </tr>
					</table>
					<TABLE border="0" align="center" cellpadding="0" cellspacing="3" >
					  <TR>
						<TD height="17" >地址： <INPUT name="url" id=url value="http://" size=30 onChange="javascript:swfShowChange()">
					  <%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.all.url.value=TempReturnValue;swfShowChange()" class=Anbutc> 
						  <%End If%>
						</td>
					  </TR>
					  <TR>
						<TD >宽度：
						  <INPUT name="width" id=width ONKEYPRESS="event.returnValue=IsDigit();" value=300 size=7 maxlength="4" onChange="javascript:swfShowChange()"> 
						  &nbsp;&nbsp;高度：
						  <INPUT name="height" id=height ONKEYPRESS="event.returnValue=IsDigit();" value=200 size=7 maxlength="4" onChange="javascript:swfShowChange()"></TD>
					  </TR>
					</TABLE>
					</fieldset></td>
				  <td width=80 align="center"><input name="cmdOK" type="button" id="cmdOK" value="  确定  " onClick="OK();"> 
					<br> <br>
					<input name="cmdCancel" type=button id="cmdCancel" onClick="window.close();" value='  取消  '> 
					<input name="UpFileName" type="hidden" id="UpFileName2" value="None"></td>
				</tr>
			  </table>
			</form>
			</body>
			</html>
<%
  End Sub
End Class
%>
⌨️ 快捷键说明

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