📄 admin_index.asp
字号:
<%@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) 2005-2006 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 Admin_Index
KSCls.Execute()
Set KSCls = Nothing
Class Admin_Index
Private KSCMS
Private Sub Class_Initialize()
Set KSCMS=New CommonCls
End Sub
Private Sub Class_Terminate()
Set KSCMS=Nothing
End Sub
Public Sub Execute()
With Response
.Write "<html>"
.Write "<head>"
.Write "<title>"
.Write (KSCMS.GetConfig("WebName") & "---网站后台管理")
.Write "</title>"
.Write "<script language=""JavaScript"">" & vbCrLf
.Write "<!--" & vbCrLf
.Write " //保存复制,移动的对象,模拟剪切板功能" & vbCrLf
.Write " function CommonCopyCutObj(ChannelID, PasteTypeID, SourceFolderID, FolderID, ContentID)" & vbCrLf
.Write " {" & vbCrLf
.Write " this.ChannelID=ChannelID; //频道ID" & vbCrLf
.Write " this.PasteTypeID=PasteTypeID; //操作类型 0---无任何操作,1---剪切,2---复制" & vbCrLf
.Write " this.SourceFolderID=SourceFolderID; //所在的源目录" & vbCrLf
.Write " this.FolderID=FolderID; //目录ID" & vbCrLf
.Write " this.ContentID=ContentID; //文章或图片等ID" & vbCrLf
.Write " }" & vbCrLf
.Write " function CommonCommentBack(FromUrl)" & vbCrLf
.Write " {" & vbCrLf
.Write " this.FromUrl=FromUrl; //保存来源页的地址" & vbCrLf
.Write " }" & vbCrLf
.Write " //初始化对象实例" & vbCrLf
.Write " var CommonCopyCut=null;" & vbCrLf
.Write " var CommonComment=null;" & vbCrLf
.Write " var DocumentReadyTF=false;" & vbCrLf
.Write " function document.onreadystatechange()" & vbCrLf
.Write " {" & vbCrLf
.Write " if (DocumentReadyTF==true) return;" & vbCrLf
.Write " CommonCopyCut=new CommonCopyCutObj(0,0,0,'0','0');" & vbCrLf
.Write " CommonComment=new CommonCommentBack(0);" & vbCrLf
.Write " DocumentReadyTF=true;" & vbCrLf
.Write " }" & vbCrLf
.Write "//-->" & vbCrLf
.Write "</script>" & vbCrLf
.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf
.Write "</head>" & vbCrLf
.Write "<frameset rows=""58,*,28"" border=""0"" frameborder=""0"" framespacing=""0"">" & vbCrLf
.Write " <frame src=""Head.asp"" name=""FrameTop"" noresize scrolling=""no"" frameborder=""no""></frame>" & vbCrLf
.Write " <frameset cols=""165,*"" name=""FrameMain"" border=""0"" frameborder=""0"" framespacing=""0"">" & vbCrLf
.Write " <frame src=""Left.asp"" name=""LeftFrame"" frameborder=""no"" scrolling=""no"" marginwidth=""0"" marginheight=""0""></frame>" & vbCrLf
.Write " <frameset rows=""*,26"" border=""0"" frameborder=""0"" framespacing=""0"">" & vbCrLf
.Write " <frame src=""Main.asp"" noresize name=""MainFrame"" frameborder=""no"" scrolling=""yes"" marginwidth=""0"" marginheight=""0""></frame>" & vbCrLf
.Write " <frame src=""Split.asp?ButtonSymbol=Disabled&OpStr= <font color=red>系统管理中心</font>"" name=""BottomFrame"" frameborder=""no"" scrolling=""no"" marginwidth=""0"" marginheight=""0""></frame>" & vbCrLf
.Write " </frameset>" & vbCrLf
.Write " </frameset>" & vbCrLf
.Write " <frame src=""foot.asp"" name=""FrameBottom"" noresize frameborder=""no"" scrolling=""no"" marginwidth=""0"" marginheight=""0""></frame>" & vbCrLf
.Write "</frameset>" & vbCrLf
.Write "<noframes>您的浏览器版本太低,请安装IE5.5或以上版本!</noframes>" & vbCrLf
.Write "</html>" & vbCrLf
End With
End Sub
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -