📄 head.asp
字号:
.Write " }" & vbCrLf
.Write " ButtonSymbol='Disabled';"
.Write " SearchArea='Manager';"
.Write " break;" & vbCrLf
.Write " case 2:" & vbCrLf
.Write " url = ""Template/Template_left.asp"";"
.Write " if (SuperTF==0)"
.Write " { mainurl = ""main.asp"";"
.Write " ButtonSymbol='Disabled';"
.Write " OpStr='<font color=red> 模板标签管理中心 </font>';"
.Write " }"
.Write " else"
.Write " {"
.Write " ButtonSymbol='FunctionLabel';"
.Write " mainurl = ""Template/Label_main.asp"";" & vbCrLf
.Write " OpStr='标签管理 >> <font color=red> 系统函数标签</font>';"
.Write " }"
.Write " SearchArea='SysLabel';" & vbCrLf
.Write " break;" & vbCrLf
.Write " case 10:" & vbCrLf
.Write " url = ""Convention/Convention_left.asp"";"
.Write " if (SuperTF==0)" & vbCrLf
.Write " { mainurl = ""main.asp"";"
.Write " OpStr='<font color=red> 常规管理中心</font>';" & vbCrLf
.Write " ButtonSymbol='Disabled';"
.Write " }" & vbCrLf
.Write " else" & vbCrLf
.Write " {mainurl = ""Convention/Convention_Main.asp"";"
.Write " OpStr=' 常规管理 >> <font color=red> 模块简介</font>';"
.Write " ButtonSymbol='LinkList';"
.Write " }" & vbCrLf
.Write " break;"
.Write " case 11:"
.Write " url=""LoginOut.asp"";"
.Write " mainurl=""about:blank"";"
.Write " break;" & vbCrLf
.Write " }" & vbCrLf
.Write " if (url==""#"")"
.Write " {parent.frames['MainFrame'].location.href='about:blank';}"
.Write " else" & vbCrLf
.Write " {" & vbCrLf
.Write " parent.frames['LeftFrame'].LeftInfoFrame.location.href=url;"
.Write " parent.frames['MainFrame'].location.href=mainurl;"
.Write " parent.frames['BottomFrame'].location.href='Split.asp?ButtonSymbol='+ButtonSymbol+'&OpStr='+OpStr;"
.Write " if (parent.frames['LeftFrame'].openTF)"
.Write " {"
.Write " parent.frames['LeftFrame'].initialSearchAreaOption(SearchArea);"
.Write " }"
.Write " }"
.Write " }"
.Write "</script>" & vbCrLf
.Write "<script language=""JavaScript"" src=""JS/SetFocus.js""></script>"
.Write "<style type=""text/css"">"
.Write "<!--" & vbCrLf
.Write ".STYLE4 {color: #000000}"
.Write "-->" & vbCrLf
.Write "</style>"
.Write "</head>"
.Write "<body leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"" scroll=""no"">"
.Write "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
.Write "<tr>"
.Write " <td height=""25"" background=""Images/b01.gif"">"
.Write " <div align=""center""><b> </b>"
.Write " <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
.Write " <tr>"
.Write " <td width=""34%""><img src=""Images/Title.gif""></td>"
.Write " <td width=""66%""><table width=""100%"" height=""100%"" border=""0"">"
.Write " <tr>"
.Write " <td width=""50%"" style=""filter:shadow(Color=blue,direction=180);letter-spacing:0.5em;font-weight:bolder"">"
.Write (KSCMS.GetConfig("WebName") & "---网站后台管理")
.Write " </td>"
.Write " <td width=""50%""><table width=""100%"" border=""0"" align=""right"" cellpadding=""0"" cellspacing=""0"">"
.Write " <tr>"
.Write " <td >"
'得到官方最新信息 新版本，活动公告
.Write " <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf
.Write " <tr>"
.Write " <td height=""22"" align=""right"" nowrap><iframe scrolling=no src=""http://www.kesion.com/Websystem/ShowAnnounce.asp"" name=""ShowAnnounce"" id=""ShowAnnounce"" height=""100%"" WIDTH=""100%"" marginheight=""0"" marginwidth=""0"" frameborder=""0"" align=""middle"" allowtransparency=""true""></iframe></td>"
.Write " </td>"
.Write " </tr>"
.Write " </table></td>"
.Write " </tr>"
.Write " </table></td>"
.Write " </tr>"
.Write " </table></td>"
.Write " </tr>"
.Write " </table>"
.Write " </div></td>"
.Write " </tr>"
.Write "</table>"
.Write "<table width=""100%"" height=""30"" border=""0"" cellpadding=""0"" cellspacing=""0"" class=""HeaderStyle"">"
.Write " <tr>"
Dim DisabledTF, I, J, ButtonS, ButtonsArr, Displays, DisplaysArr, CssStr, NonPowerShowStyle
ButtonS = "系统管理,站点发布,模板标签,文章管理,图片管理,下载管理,Flash管理,专题管理,采集管理,用户管理,常规管理,退出系统"
Displays = "" '屏蔽没有权限的管理模块的数组下标ID
NonPowerShowStyle = KSCMS.GetConfig("NonPowerShowStyle")
If CBool(KSCMS.ReturnPowerResult(0, "KMSystemPower")) = False Then '检查系统设置中心权限
Displays = Displays & "0,"
End If
If CBool(KSCMS.ReturnPowerResult(0, "KMRefreshPower")) = False Then '检查站点发布中心权限
Displays = Displays & "1,"
End If
If CBool(KSCMS.ReturnPowerResult(0, "KMTemplatePower")) = False Then '检查模板标签管理中心权限
Displays = Displays & "2,"
End If
'检查文章管理中心权限
If Request.Cookies(KSCMS.SiteSn)("ArticlePower") = 0 Or Conn.Execute("select ChannelStatus From KS_Channel Where ChannelID=1")(0) = 0 Then
Displays = Displays & "3,"
End If
'检查图片管理中心权限
If Request.Cookies(KSCMS.SiteSn)("PicturePower") = 0 Or Conn.Execute("select ChannelStatus From KS_Channel Where ChannelID=2")(0) = 0 Then
Displays = Displays & "4,"
End If
'检查下载管理中心权限
If Request.Cookies(KSCMS.SiteSn)("DownLoadPower") = 0 Or Conn.Execute("select ChannelStatus From KS_Channel Where ChannelID=3")(0) = 0 Then
Displays = Displays & "5,"
End If
Displays = Displays & "6,"
If CBool(KSCMS.ReturnPowerResult(0, "KMSPPower")) = False Then '检查专题管理权限
Displays = Displays & "7,"
End If
If CBool(KSCMS.ReturnPowerResult(0, "KMCLPower")) = False Then '检查采集管理权限
Displays = Displays & "8,"
End If
If CBool(KSCMS.ReturnPowerResult(0, "KMUserAdminPower")) = False Then '检查用户管理中心权限
Displays = Displays & "9,"
End If
If CBool(KSCMS.ReturnPowerResult(0, "KMConventionPower")) = False Then '检查常规管理中心权限
Displays = Displays & "10,"
End If
ButtonsArr = Split(ButtonS, ",")
DisplaysArr = Split(Displays, ",")
For I = 0 To UBound(ButtonsArr)
If I = 0 Then
CssStr = " class=""HeaderSelect"""
Else
CssStr = " class=""TdOut"""
End If
DisabledTF = False
For J = LBound(DisplaysArr) To UBound(DisplaysArr) - 1
If I = CInt(DisplaysArr(J)) Then
DisabledTF = True
Exit For
End If
Next
If DisabledTF = False Then
.Write ("<td " & CssStr & " style=""TABLE-LAYOUT: fixed; WORD-WRAP: break-word;"" width=""100"" align=""center"" onMouseDown=""Td_Down(this)"" onMouseOver=""Td_Over(this)"" onMouseOut=""Td_Out(this)"" onClick=""Td_Click(this," & I & ")""> <img src=""Images/TopButton/" & I & ".gif"" align=""absmiddle""> " & ButtonsArr(I) & "</td>")
Else
If NonPowerShowStyle = 0 Then
.Write ("<td onclick=""javascript:return"" " & CssStr & " width=""100"" align=""center"" disabled title=""小提示： 对此模块的操作权限已被系统管理员屏蔽""> <img src=""Images/TopButton/" & I & ".gif"" align=""absmiddle""> " & ButtonsArr(I) & "</td>")
End If
End If
Next
.Write " </tr>"
.Write "</table>"
.Write "</body>"
.Write "</html>"
End With
End Sub
End Class
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -