<!--#include file="system_manage.asp"-->
<%
Call WM_Content()

Sub WM_Content()
  Response.write "<style>" & vbCrLf
  Response.write "body{overflow:hidden}" & vbCrLf
  Response.write "</style>" & vbCrLf
  Response.write "<title>控制面版</title>"
  Response.write "<base onmouseover=""window.status='当前用户："&Session("Admin")&"　IP地址："&Request.ServerVariables("REMOTE_ADDR")&"';return true"">" & vbCrLf
  Response.write "</head>" & vbCrLf
  Response.write "<body scroll=no bgcolor='#3A6592'>" & vbCrLf
  Response.write "<table width='100%' height='100%' border=0 cellspacing=0 cellpadding=0>" & vbCrLf
  
  Response.write "<tr><td height='41' background='img/top_bg.gif' colspan=2>"&M_Top()&"</td></tr>" & vbCrLf
  Response.write "<tr>" & vbCrLf
  Response.write "<td rowspan=3 width=190 id=menu><iframe name=left src='Admin_Menu.asp' width='100%' height='100%' scrolling=no FRAMEBORDER=0></iframe></td>" & vbCrLf
  Response.write "<td id=Top height='200' style='display:none'><iframe name=top src='Admin_Top.asp' width='100%' height='100%' scrolling=yes FRAMEBORDER=0></iframe></td>" & vbCrLf
  Response.write "</tr>" & vbCrLf
  
  Response.write "<tr><td height=9 bgcolor='#3A6592' align=center><img src='img/p_5.gif' id=TopPic align=absmiddle style='cursor:pointer' onClick='TopType()'></td></tr>" & vbCrLf
  Response.write "<tr><td height='100%'><div style='position:absolute;width:100%;text-align:right;padding:0 16px 0 0'><img src='img/R_T.gif'></div><div style='position:absolute'><img src='img/L_T.gif'></div><div style='position:absolute;bottom:0px;width:100%;text-align:right;padding:0 16px 24px 0'><img src='img/R_B.gif'></div><div style='position:absolute;bottom:0px;padding:0 0 24px 0'><img src='img/L_B.gif'></div><iframe name=main src='Admin_Main.asp' width='100%' height='100%' scrolling=yes FRAMEBORDER=0></iframe></td></tr>" & vbCrLf
  Response.write "<tr><td height=25 colspan=2 bgcolor=#3A6592>"&M_Bottom()&"</td></tr>" & vbCrLf

  Response.write "</table>" & vbCrLf
  Response.write "</body>" & vbCrLf
  Response.write "</html>" & vbCrLf
  Call ClassEnd()
End Sub

Function M_Top()
  M_Top = "<div style='float:right;width:auto;padding:20px 0 0 0' class=Font4>" & vbCrLf
  M_Top = M_Top & "&nbsp;" & vbCrLf
  M_Top = M_Top & "[<a style='cursor:pointer' href=../ target=_blank class=white>站点首页</a>]" & vbCrLf
  M_Top = M_Top & "[<a style='cursor:pointer' href=Admin_Main.Asp target=main class=white>管理首页</a>]" & vbCrLf
  M_Top = M_Top & "[<a style='cursor:pointer' href=System_Cache.asp target=main class=white>更新缓存</a>]" & vbCrLf
  M_Top = M_Top & "[<a style='cursor:pointer' href=System_EditPass.asp target=main class=white>修改密码</a>]" & vbCrLf
  M_Top = M_Top & "[<a style='cursor:pointer' href=http://bbs.snxsc.com class=white>技术论坛</a>]" & vbCrLf
  M_Top = M_Top & "[<a style='cursor:pointer' onclick=""main.location.reload();"" class=white>刷新</a>]" & vbCrLf
  M_Top = M_Top & "[<a style='cursor:pointer' href=Admin_Logout.asp class=white>退出</a>]&nbsp;" & vbCrLf
  M_Top = M_Top & "</div>" & vbCrLf
  M_Top = M_Top & "<div style='float:left;width:150px'><img src='img/Logo.gif' valign=bottom></div>" & vbCrLf
  M_Top = M_Top & "<div style='float:left;width:80px;padding:20px 0 0 0'><a style='cursor:pointer' onClick='MenuType()' class=white><span id=menukey><< 隐藏菜单</span></a></div>" & vbCrLf
End Function




Function M_Bottom()
  Dim CnVersion
  Select Case versionType
    Case 88
	  CnVersion = CHR(-13083)&CHR(-11799)&CHR(-20250)
    Case 168
	  CnVersion = CHR(-10328)&CHR(-11595)&CHR(-20250)
    Case 518
	  CnVersion = CHR(-14605)&CHR(-11595)&CHR(-20250)
	Case 999
	  CnVersion = CHR(-15390)&CHR(-18479)&CHR(-20250)
	Case Else
	  CnVersion = CHR(-18489)&CHR(-17959)&CHR(-18499)&CHR(-20250)&CHR(-20034)
  End Select
  M_Bottom = "<div style='float:right;width:auto;filter:shadow(Color=#000000,direction=135);font-weight:bolder' class=Font4><strong>txcms ("&Replace(Replace(ConnTypeStr,0,"ACCESS"),1,"MsSQL")&")80IT设计版权QQ:87450265</strong>&nbsp;</div>" & vbCrLf
  M_Bottom = M_Bottom & "<div style='float:left;width:auto' class=Font4>" & vbCrLf
  M_Bottom = M_Bottom & "常用功能开发集成中--详情登录http://bbs.snxsc.com" & vbCrLf
  M_Bottom = M_Bottom & "</div>" & vbCrLf
End Function
%>
