www.gusucode.com > 25175 学生成绩管理查询系统码程序 > ADMIN/admin_index_top.asp

    <!-- #include file="../config.asp" -->
<!-- #include file="inc.asp" -->
<!-- #include file="../conn.asp" -->
<%
Call admin_log
'====================================================================
'25175成绩查询管理系统
'powered by 25175
'=-------------------------------------------------------------------
'= 文件名称:guestbook.asp
'= 摘    要:用户留言列表
cj_webtit="后台管理"

'= 最后日期:2006-3.1
'====================================================================


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 "td {FONT-SIZE: 9pt; FILTER: Glow(Color=#158CBA, Strength=1) dropshadow(Color=#057aa8, OffX=1, OffY=1,); COLOR: #ffffff; 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('Image/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='Image/admin_top_open.gif';" & vbCrLf
Response.Write "    obj.title='打开左边管理导航菜单';" & vbCrLf
Response.Write "  } else {" & vbCrLf
Response.Write "    parent.frame.cols='160,*';" & vbCrLf
Response.Write "    displayBar=true;" & vbCrLf
Response.Write "    obj.src='Image/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='Image/admin_top_bg.gif' leftmargin='0' topmargin='0'>" & vbCrLf
Response.Write "<table height='100%' width='100%' border='0' cellpadding='0' cellspacing='0'>" & vbCrLf
Response.Write "  <tr valign='middle'>" & vbCrLf
Response.Write "    <td width=96>" & vbCrLf
Response.Write "      &nbsp;<img onclick='switchBar(this)' src='Image/admin_top_close.gif' title='关闭左边管理导航菜单' style='cursor:hand'>" & vbCrLf
Response.Write "    </td>" & vbCrLf

Response.Write "    <td width=20>" & vbCrLf
Response.Write "      <img src='Image/admin_top_icon_1.gif'>" & vbCrLf
Response.Write "    </td>" & vbCrLf
Response.Write "    <td width=60>" & vbCrLf
Response.Write "      <a href='updata.asp?kind=AdminModifyPwd'>修改密码</a>" & vbCrLf
Response.Write "    </td>" & vbCrLf

Response.Write "    <td width=20>" & vbCrLf
Response.Write "      <img src='Image/admin_top_icon_5.gif'>" & vbCrLf
Response.Write "    </td>" & vbCrLf
Response.Write "    <td width=72>" & vbCrLf
Response.Write "      <a href='POPbook.asp' target=main>我的留言</a>" & vbCrLf
Response.Write "    </td>" & vbCrLf
Response.Write "    <td width=20>" & vbCrLf
Response.Write "      <img src='Image/admin_top_icon_7.gif'>" & vbCrLf
Response.Write "    </td>" & vbCrLf
Response.Write "    <td width=72>" & vbCrLf
Response.Write "      <a href='../index.asp' target=_top>系统首页</a>" & vbCrLf
Response.Write "    </td>" & vbCrLf

Response.Write "    <td align='right'>" & vbCrLf
Response.Write "      <font color='#B5CBF2'>成绩查询系统 "
Select Case SystemVersion
Case 0
    Response.Write "标准"
    If SystemDatabaseType = "SQL" Then
        Response.Write "SQL版"
    Else
        Response.Write "ACCESS版"
    End If
Case 1
    Response.Write "学校"
    If SystemDatabaseType = "SQL" Then
        Response.Write "高级版"
    Else
        Response.Write "普及版"
    End If
End Select
Response.Write "      </font>&nbsp;" & vbCrLf
Response.Write "    </td>" & vbCrLf
Response.Write "  </tr>" & vbCrLf

Response.Write "  <tr>" & vbCrLf
Response.Write "    <td colspan=""7"">" & vbCrLf
response.write "&nbsp;<img src='Image/admin_top_icon_6.gif'>  当前位置: "
response.write "<span id=webmap></span>"
Response.Write "    </td>" & vbCrLf
Response.Write "    <td align='right'>" & vbCrLf
Response.Write "[ <a href=""#"" onclick=""parent.main.location.reload()"">刷新</a> ] &nbsp;&nbsp;" & vbCrLf

Response.Write "    </td>" & vbCrLf
Response.Write "  </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "</body>" & vbCrLf
Response.Write "</html>" & vbCrLf
%>