conventionframe.asp

来自「SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括h」· ASP 代码 · 共 61 行

ASP
61
字号
<%@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友情连接,商业版本无此要求;
'    ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息;
'    ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Dim KSCls
Set KSCls = New ConventionFrame
KSCls.Execute()
Set KSCls = Nothing

Class ConventionFrame
        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 LinkID,Url,FileName,PageTitle,Action,FolderID,ChannelID
			Url=KSCMS.G("Url")
			FolderID=KSCMS.G("FolderID")
			LinkID=KSCMS.G("LinkID")
			Action=KSCMS.G("Action")
			PageTitle=KSCMS.G("PageTitle")
			ChannelID=KSCMS.G("ChannelID")
			FileName=Url&"?ChannelID=" & ChannelID& "&LinkID=" & LinkID &"&FolderID=" & FolderID & "&Action=" & Action 
			%>
			<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
			<html>
			<head>
			<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
			<title><%=PageTitle%></title>
			</head>
			<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" scrolling=no>
			<Iframe src=<% = FileName %> style="width:100%;height:100%;" frameborder=0 scrolling="no"></Iframe>
			</body>
			</html>
	<% End Sub
End Class
%>

⌨️ 快捷键说明

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