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

Class InsertRM
        Private KSCMS
		Private ChannelID
		Private AdminDir
		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>插入RealPlay文件</TITLE>
			<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
			<link rel="stylesheet" type="text/css" href="Editor.css">
			<script language="JavaScript" src="../inc/Common.js"></script>
			<script language="JavaScript">
			function OK()
			{
			  var str1="";
			  var autoplayvalue;
			  var strurl=document.RmForm.url.value;
			  if (!IsExt(strurl,'rm|ra|ram'))
			  {
				  alert('文件类型不对，请重新选择！');
				  document.RmForm.url.focus();
				  return;
			  }
			  if (strurl==""||strurl=="rtsp://")
			  {
				alert("请先输入RealPlay文件地址，或者上传RealPlay文件！");
				document.RmForm.url.focus();
				return false;
			  }
			  else
			  {
			   if (RmForm.autoplay.checked==true)
					 {autoplayvalue=-1;}
					else
					 {autoplayvalue=0;}
					 
					str1="<object classid='clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA' width="+document.RmForm.width.value+" height="+document.RmForm.height.value+"><param name='CONTROLS' value='ImageWindow'><param name='CONSOLE' value='Clip1'><param name='AUTOSTART' value='"+autoplayvalue+"'><param name=src value="+document.RmForm.url.value+"></object><br><object classid='clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA'  width="+document.RmForm.width.value+" height=60><param name='CONTROLS' value='ControlPanel,StatusBar'><param name='CONSOLE' value='Clip1'></object>"
					window.returnValue = str1+"$$$"+document.RmForm.UpFileName.value;
					window.close();
			  }
			}
			function ShowRmPlay()
			{
			  if (document.RmForm.url.value==""||document.RmForm.url.value=="rtsp://"||document.RmForm.url.value=="rtsp:///")
			   {    return;
					document.RmForm.url.value=""
				}  
				objFiles.innerHTML="<object classid='clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA' width="+document.RmForm.width.value+" height="+document.RmForm.height.value+"><param name='CONTROLS' value='ImageWindow'><param name='CONSOLE' value='Clip1'><param name='AUTOSTART' value='-1'><param name=src value="+document.RmForm.url.value+"></object><br><object classid='clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA'  width="+document.RmForm.width.value+" height=60><param name='CONTROLS' value='ControlPanel,StatusBar'><param name='CONSOLE' value='Clip1'></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>
			<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
			</head>
			<BODY bgColor=menu topmargin=15 leftmargin=15 >
			<form name="RmForm" method="post" action="">
			  <table width=100% border="0" cellpadding="0" cellspacing="2">
				<tr>
				  <td> <FIELDSET align=left>
					<LEGEND align=left>RealPlay文件参数</LEGEND>
					<TABLE border="0" align="center" cellpadding="0" cellspacing="3">
					  <tr> 
						<td width=350 align='center'>
						<div style="height:270; overflow:auto; width:380" align="center"> 
							<span id="objFiles"> 
							<object id="player" name="player" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width="350" height="210">
							  <param name="CONTROLS" value="Imagewindow">
							<param name="CONSOLE" value="clip1">
							<param name="AUTOSTART" value="0">
							<param name="SRC" value="">
						  </object><br> 
							<object ID="RP2" CLASSID="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" WIDTH="350" HEIGHT="50">
							  <PARAM NAME="CONTROLS" VALUE="ControlPanel,StatusBar">
							<param name="CONSOLE" value="clip1">
						  </object> 
						  </span>
						  </div>
						</td>
					  </tr>
					
					</TABLE>
					<TABLE border="0" align="center" cellpadding="0" cellspacing="3">
					  <TR>
						<TD >地址： 
						  <INPUT name="url" id=url  value="rtsp://" size=30 onChange="javascript:ShowRmPlay()">
						 <%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.RmForm.url.value=TempReturnValue;ShowRmPlay();" class=Anbutc> 
						   <%End IF%>
						</td>
					  </TR>
					  <TR>
						<TD >宽度：
						  <INPUT name="width" onChange="javascript:ShowRmPlay()" id=width ONKEYPRESS="event.returnValue=IsDigit();" value=350 size=7 maxlength="4" > 
						  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;高度：
						  <INPUT name="height" onChange="javascript:ShowRmPlay()" id=height ONKEYPRESS="event.returnValue=IsDigit();" value=200 size=7 maxlength="4">
					      　
						  
							  自动播放：
						  <input name="autoplay" type="checkbox" id="autoplay" value="1" checked></TD>
					  </TR>
					  <TR>
						<TD align=center>支持格式为：rm、ra、ram</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 + -