www.pudn.com > Zhwebcode.rar > Default.asp, change:2008-10-07,size:2769b


<% 
if session("AdminName") = "" then 
    response.Redirect "Login.asp" 
end if 
%> 
<html> 
<head> 
<meta http-equiv=Content-Type content=text/html;charset=gb2312> 
<title>网站管理系统</title> 
<style type="text/css"> 
.navPoint {COLOR:FFFFFF; CURSOR: hand; FONT-SIZE: 0px;} 
.a2{BACKGROUND-COLOR: 666666;} 
</style> 
</head> 
<% 
select case Request("menu") 
case "" 
main 
case "top" 
top 
end select 
%> 
<% sub top %> 
<BODY leftMargin=0 topMargin=0 rightMargin=0> 
<CENTER> 
<TABLE style="BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width="100%" border=0> 
<TR> 
<TD align=center width="100%" style="BACKGROUND-IMAGE: url(image/titlebg.gif); height:30; COLOR: #666666; font:14PX;" 
><B>网 站 后 台 管 理 系 统</B></TD> 
</TR> 
</TABLE> 
</CENTER> 
</body> 
<% end sub %> 
 
<% sub main %> 
<body style="MARGIN: 0px" scroll=no onResize=javascript:parent.carnoc.location.reload()> 
<script> 
if(self!=top){top.location=self.location;} 
function switchSysBar(){ 
if (switchPoint.innerText==3){ 
switchPoint.innerText=4 
document.all("frmTitle").style.display="none" 
}else{ 
switchPoint.innerText=3 
document.all("frmTitle").style.display="" 
}} 
</script> 
 
<table border="0" cellPadding="0" cellSpacing="0" height="100%" width="100%"> 
  <tr> 
    <td align="middle" noWrap vAlign="center" id="frmTitle"> 
    <iframe frameBorder="0" id="carnoc" name="carnoc" scrolling="yes" src="LeftTree.asp" style="HEIGHT: 100%; VISIBILITY: inherit; WIDTH: 180px; Z-INDEX: 2"> 
    </iframe> 
    </td> 
    <td bgcolor="666666" style="WIDTH: 12px;CURSOR: hand;"> 
    <table border="0" cellPadding="0" cellSpacing="0" height="100%"> 
      <tr> 
        <td style=" background:url(Image/lbg.gif);HEIGHT:100%; width:20;vertical-align:middle;" onClick="switchSysBar()" title="关闭/打开左栏"> 
        <font style="FONT-SIZE:12px;; COLOR: #ffffff"> 
        <span class="navPoint" id="switchPoint" title="关闭/打开左栏">3</span><br> 
        <img src="image/round.gif"></font></td> 
      </tr> 
    </table> 
    </td> 
		<td style="WIDTH: 100%"> 
		<iframe frameborder="0" id="main" name="top" scrolling="no" scrolling="yes" src="?menu=top" style="HEIGHT: 5%; VISIBILITY: inherit; WIDTH: 100%; Z-INDEX: 1"> 
		</iframe> 
		<iframe frameborder="0" id="main" name="main" scrolling="yes" src="sysadmin_view.asp" style="HEIGHT: 96%; VISIBILITY: inherit; WIDTH: 100%; Z-INDEX: 1"></iframe></td> 
  </tr> 
</table> 
<script> 
  if(window.screen.width<'1024'){switchSysBar()} 
</script> 
</body> 
<% 
end sub 
 
Function IsObjInstalled(strClassString) 
On Error Resume Next 
IsObjInstalled = False 
Err = 0 
Dim xTestObj 
Set xTestObj = Server.CreateObject(strClassString) 
If 0 = Err Then IsObjInstalled = True 
Set xTestObj = Nothing 
Err = 0 
End Function 
%> 
</html>