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 " <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> " & vbCrLf Response.Write " </td>" & vbCrLf Response.Write " </tr>" & vbCrLf Response.Write " <tr>" & vbCrLf Response.Write " <td colspan=""7"">" & vbCrLf response.write " <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> ] " & vbCrLf Response.Write " </td>" & vbCrLf Response.Write " </tr>" & vbCrLf Response.Write "</table>" & vbCrLf Response.Write "</body>" & vbCrLf Response.Write "</html>" & vbCrLf %>