📄 index.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../Conn.asp"-->
<!--#include file="../KS_Cls/KS.PublicCls.asp"-->
<!--#include file="Include/Session.asp"-->
<!--#include file="../KS_Inc/md5.asp"-->
<%
Dim KSCls
Set KSCls = New Admin_Index
KSCls.Kesion()
Set KSCls = Nothing
Class Admin_Index
Private KS
Private Sub Class_Initialize()
Set KS=New PublicCls
End Sub
Private Sub Class_Terminate()
Set KS=Nothing
End Sub
Public Sub Kesion()
Call CheckSetting()
Select Case KS.G("Action")
Case "Head"
Call KS_Head()
Case "Left"
Call KS_Left()
Case "Main"
Call KS_Main()
Case "Foot"
Call KS_Foot()
Case "ver"
Call GetRemoteVer()
Case Else
Call KS_Index()
End Select
End Sub
Sub KS_Index()
With Response
.Write "<html>"
.Write "<head>"
.Write "<title>"
.Write (KS.Setting(0) & "---网站后台管理")
.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=""40,*,36"" border=""0"" frameborder=""0"" framespacing=""0"">" & vbcrlf
.Write " <frame src=""Index.asp?Action=Head"" name=""FrameTop"" noresize scrolling=""no"" frameborder=""no""></frame>" & vbcrlf
.Write " <frameset cols=""201,*"" name=""FrameMain"" border=""0"" frameborder=""0"" framespacing=""0"">" & vbcrlf
.Write " <frame src=""Index.asp?Action=Left"" name=""LeftFrame"" noresize frameborder=""no"" scrolling=""yes"" marginwidth=""0"" marginheight=""0""></frame>" &vbcrlf
.Write " <frameset rows=""*,26"" border=""0"" frameborder=""0"" framespacing=""0"">" & vbCrLf
.Write " <frame src=""Index.asp?Action=Main"" noresize name=""MainFrame"" frameborder=""no"" scrolling=""yes"" marginwidth=""0"" marginheight=""0""></frame>" & vbCrLf
.Write " <frame src=""KS.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=""Index.asp?Action=Foot"" 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
Public Sub KS_Head()
On Error Resume Next
With Response
.Buffer = True
Dim ComeUrl:ComeUrl = Trim(Request.ServerVariables("HTTP_REFERER"))
If ComeUrl = "" Then
.Write "<br><p align=center><font color='red'>对不起，为了系统安全，不允许直接输入地址访问本系统的后台管理页面。</font></p>"
Exit Sub
End If
.Write "<html>"
.Write "<script language='JavaScript' src='../KS_Inc/Prototype.js'></script>"
.Write "<script language=""JavaScript"" src=""Include/Common.js""></script>"
.Write "<script language=""JavaScript"" src=""../KS_Inc/ksajax.js""></script>"
%>
<style type="text/css">
.logo {
color: #ffffff;
font-size: 20px;
font-family: Georgia, "Times New Roman", Times, serif;
font-weight: bold;
}
.font_text{
font-size: 12px;
line-height: 20px;
color: #ffffff;
text-decoration: none;
}
a.white:link {
font-size: 13px;
line-height: 20px;
color: #FFFFFF;
text-decoration: none;
}
a.white:active {
font-size: 13px;
line-height: 20px;
color: #FFFFFF;
text-decoration: none;
}
a.white:visited {
font-size: 13px;
line-height: 20px;
color: #FFFFFF;
text-decoration: none;
}
a.white:hover {
font-size: 13px;
line-height: 20px;
color: #FFFFFF;
text-decoration: underline;
}
</style>
<script language="javascript">
parent.window.defaultStatus="当前用户：<%=Trim(KS.C("AdminName"))%> IP地址：<%= KS.GetIP%>";
function out(src){
if(confirm("确定要退出吗？")) {
return true;
}
return false;
}
</script>
<%
.Write "<script>" & vbcrlf
.Write " var xhr=new Ajax();"
.Write " function getNewMessage()"
.Write " {"
.Write " xhr.open(""get"",""../user/UserAjax.asp?Action=GetAdminMessage"",true);"
.Write " xhr.onreadystatechange=$CallBack;"
.Write " xhr.send(null); "
.Write "setTimeout('getNewMessage()', 10000);"
.Write " }"
.Write " function $CallBack()"
.Write " {"
.Write " if(xhr.readystate==4)"
.Write " {"
.Write " if (xhr.status==200)"
.Write " {"
.Write " $('newmessage').innerHTML=xhr.responseText;"
.Write " }"
.Write " }"
.Write " }"
.Write "setTimeout('getNewMessage()', 1000);"
.Write "</script>"
.Write "</head>"
.Write "<body leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"" scroll=""no"" background=""images/top.gif"">"
.Write "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
.Write "<tr>"
.Write " <td height=""30"">"
.Write " <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
.Write " <tr>"
.Write " <td><font class='logo'> 飞扬科技CMS系统</font></td>"
.Write " <td><table width=""100%"" height=""100%"" border=""0"">"
.Write " <tr>"
.Write " <td class=""font_text"" width=""40%""><script language=""JavaScript"" src=""../ks_inc/time/3.js""></script></td>"
.Write " <td class=""font_text"" align=""right""> [<a href=""" & KS.GetDomain &""" target=""_blank"" class=""white"">网站首页</a>] [<a href=""" & KS.GetDomain &"User/index.asp?User_Message.asp?action=inbox"" target=""_blank"" class=""white"">查看短信</a><span id='newmessage'>(<font color=#ff0000>0</font>)</span>] [<a href=""#"" onClick=""OpenWindow('KS.Frame.asp?Url=KS.Admin.asp&Action=SetPass&PageTitle=修改后台登录密码',360,160,window);"" class=""white"">修改密码</a>] [<a href=""KS.CleanCache.asp"" target=""MainFrame"" class=""white"">更新缓存</a>] [<a href=""Login.asp?Action=LoginOut"" target=""_top"" onClick=""return out(this)"" class=""white"">安全退出</a>]"
.Write " </td>"
.Write " </tr>"
.Write " </table></td>"
.Write " </tr>"
.Write " </table>"
.Write " </td>"
.Write " </tr>"
.Write "</table>"
.Write "</body>"
.Write "</html>"
End With
End Sub
Public Sub KS_Left()
Dim SQL,I
Dim RSC:Set RSC=Server.CreateObject("ADODB.RECORDSET")
RSC.Open "Select ChannelID,ChannelName,ChannelTable,ItemName,BasicType,ModelEname From KS_Channel Where ChannelStatus=1 Order By ChannelID",Conn,1,1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -