📄 admin_index_top.asp

📁 一本关于大学的书
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
Response.buffer = True
Const PurviewLevel = 0
Const PurviewLevel_Channel = 0
Const PurviewLevel_Others = ""
%>
<!--#include file="../conn.asp"-->
<!--#include file="../inc/function.asp"-->
<!--#include file="Admin_ChkPurview.asp"-->
<%
Call CloseConn

Response.Write "<html>" & vbCrLf
Response.Write "<head>" & vbCrLf
Response.Write "<title>顶部管理导航菜单</title>" & vbCrLf
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
Response.Write "<style type='text/css'>" & vbCrLf
Response.Write "a:link { color:#ffffff;text-decoration:none}" & vbCrLf
Response.Write "a:hover {color:#ffffff;}" & vbCrLf
Response.Write "a:visited {color:#f0f0f0;text-decoration:none}" & vbCrLf
Response.Write ".spa {FONT-SIZE: 9pt; FILTER: Glow(Color=#0F42A6, Strength=2) dropshadow(Color=#0F42A6, OffX=2, OffY=1,); COLOR: #8AADE9; FONT-FAMILY: '宋体'}" & vbCrLf
Response.Write "img {filter:Alpha(opacity:100); chroma(color=#FFFFFF)}" & vbCrLf
Response.Write "</style>" & vbCrLf
Response.Write "<base target='main'>" & vbCrLf
Response.Write "<script language='JavaScript' type='text/JavaScript'>" & vbCrLf
Response.Write "function preloadImg(src) {" & vbCrLf
Response.Write "  var img=new Image();" & vbCrLf
Response.Write "  img.src=src" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "preloadImg('Images/admin_top_open.gif');" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "var displayBar=true;" & vbCrLf
Response.Write "function switchBar(obj) {" & vbCrLf
Response.Write "  if (displayBar) {" & vbCrLf
Response.Write "    parent.frame.cols='0,*';" & vbCrLf
Response.Write "    displayBar=false;" & vbCrLf
Response.Write "    obj.src='Images/admin_top_open.gif';" & vbCrLf
Response.Write "    obj.title='打开左边管理导航菜单';" & vbCrLf
Response.Write "  } else {" & vbCrLf
Response.Write "    parent.frame.cols='200,*';" & vbCrLf
Response.Write "    displayBar=true;" & vbCrLf
Response.Write "    obj.src='Images/admin_top_close.gif';" & vbCrLf
Response.Write "    obj.title='关闭左边管理导航菜单';" & vbCrLf
Response.Write "  }" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "<body background='Images/admin_top_bg.gif' leftmargin='0' topmargin='0'>" & vbCrLf
Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='0'>" & vbCrLf
Response.Write "  <tr valign='middle'>" & vbCrLf
Response.Write "    <td width=60><img onclick='switchBar(this)' src='Images/admin_top_close.gif' title='关闭左边管理导航菜单' style='cursor:hand'></td>" & vbCrLf
If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "ModifyPwd") = True Then
    Response.Write "    <td width=92><a href='Admin_ModifyPwd.asp'><img src='Images/top_an_1.gif' border='0'></a></td>" & vbCrLf
End If
If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "MailList") = True Then
    Response.Write "    <td width=92><a href='Admin_MailList.asp'><img src='Images/top_an_2.gif' border='0'></a></td>" & vbCrLf
End If
Response.Write "    <td width=104><a href='../User/User_Message.asp' target='_blank'><img src='Images/top_an_4.gif' border='0'></a></td>" & vbCrLf
If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Cache") = True Then
    Response.Write "    <td width=92><a href='Admin_Cache.asp'><img src='Images/top_an_5.gif' border='0'></a></td>" & vbCrLf
End If
Response.Write "    <td width=92><a href='http://help.powereasy.net'  target='_blank'><img src='Images/top_an_6.gif' border='0'></a></td>" & vbCrLf
Response.Write "    <td align='right' class='spa'>" & vbCrLf
If CMS_Edition = 0 And eShop_Edition = -1 Then
    Response.Write "      PowerEasy CMS"
ElseIf CMS_Edition = 0 And eShop_Edition = 0 Then
    Response.Write "      PowerEasy eShop"
Else
    Response.Write "      PowerEasy " & CMS_Edition & eShop_Edition & CRM_Edition
End If
Response.Write " 2006 Build 070604 "
Response.Write SystemDatabaseType
Response.Write "      &nbsp;" & vbCrLf
Response.Write "    </td>" & vbCrLf
Response.Write "  </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "</body>" & vbCrLf
Response.Write "</html>" & vbCrLf
%>
⌨️ 快捷键说明

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