?? manager.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% response.buffer=false %>
<%
Response.CacheControl="no-cache"
%>
<% if session("Admin")="" Then %>
<script language="javascript">
alert("請勿非法操作");
window.location.href="../index.asp";
</script>
<%
response.end()
end if %>
<%times=date()%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新聞網(wǎng)后臺管理</title>
</head>
<script src="../Js/Status.js"></SCRIPT>
<script src="../Js/Win.js"></script>
<link rel="stylesheet" href="../Css/Style.css">
<body leftmargin="0" topmargin="0">
<!-- #include file="Top.asp" -->
<br>
<table width=778 height=523 align=center cellpadding="0" cellspacing="0" >
<tr>
<td width="225" height="521" align=center valign=middle
background="../Image/Back/left.gIf">
<table width="213" height="511" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="213" height="313" valign="top">
<table width="200" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="160" height="266">
<table width="158" height="289" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="13"> </td>
<td> </td>
</tr>
<tr>
<td width="38" height="30"> </td>
<td width="120"><div align="center">
<%if session("type")="時政要聞" or session("type")="Super" then%>
<a href="Manager.asp?action=时政要闻">
<% end if %>
<img src="../Image/Back/button/jzyw.gIf" width="120" height="30"
border="0"></a></div></td>
</tr>
<tr>
<td> </td>
<td><%if session("type")="經(jīng)濟(jì)動向" or session("type")="Super" then%>
<a href="Manager.asp?action=经济动向">
<%end if %>
<img src="../Image/Back/button/jjdx.gIf" width="120"
height="30" border="0"></a></td>
</tr>
<tr>
<td> </td>
<td><div align="center">
<%if session("type")="世界軍事" or session("type")="Super" then%>
<a href="Manager.asp?action=世界军事">
<%end if %>
<img src="../Image/Back/button/sjjs.gIf" width="120" height="30"
border="0"></a></div></td>
</tr>
<tr>
<td> </td>
<td><div align="center">
<%if session("type")="科學(xué)教育" or session("type")="Super" then%>
<a href="Manager.asp?action=科学教育">
<%end if %>
<img src="../Image/Back/button/kxjy.gIf" width="120"
height="30" border="0"></a></div></td>
</tr>
<tr>
<td> </td>
<td>
<%if session("type")="法治道德" or session("type")="Super" then%>
<a href="Manager.asp?action=法治道德">
<%end if %>
<img src="../Image/Back/button/fzdd.gIf" width="120"
height="30" border="0"></a></td>
</tr>
<tr>
<td> </td>
<td><div align="center">
<% if session("type")="社會現(xiàn)象" or session("type")="Super" then %>
<a href="Manager.asp?action=社会现象">
<%end if %>
<img src="../Image/Back/button/shxx.gIf" width="120"
height="30" border="0"></a></div></td>
</tr>
<tr>
<td> </td>
<td><%if session("type")="體育世界" or session("type")="Super" then%>
<a href="Manager.asp?action=体育世界">
<%end if %>
<img src="../Image/Back/button/tysj.gIf" width="120"
height="30" border="0"></a></td>
</tr>
<tr>
<td height="80" rowspan="3"> </td>
<td height="30"><%if session("type")="時尚娛樂" or session("type")="Super" then%>
<a href="Manager.asp?action=时尚娱乐">
<%end if %>
<img src="../Image/Back/button/ssyl.gIf" width="120"
height="30" border="0"></a></td>
</tr>
<tr>
<td height="30">
<%if session("type")="鏈接管理" or session("type")="Super" then%>
<a href="Manager.asp?action=link">
<%end if %>
<img src="../Image/Back/button/ljgl.gif" width="120"
height="30" border="0"></a></td>
</tr>
<tr>
<td height="30"><a href="Manager.asp?action=system">
<img src="../Image/Back/button/glysz.gif" width="120"
height="30" border="0"></a></td>
</tr>
</table></td>
<td width="40"> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="120" valign="top"> <div align="center">
<table width="204" border="0" cellspacing="0" cellpadding="0">
<!--操作區(qū)域-->
<Form name="Form10" method="post">
<tr>
<td width="24" height="171"> </td>
<% style=Request.Querystring("action") %>
<td width="158" valign="middle"> <%Sub Setsystem()%>
<input name="Submit1" type="button" class="go-wenbenkuang"
<% If session("type")="Super" Then %> value="添加管理員"
onClick="systemadd()"<% End If %>>
<input name="Submit4" type="button" class="go-wenbenkuang"
<% If session("type")="Super" Then
Response.Write("value='管理員資料查看' onclick=jscript:location='Manager.asp?action=See'")
else
Response.Write("value='修改密碼' onClick=systemchange()")
End If %> >
<input name="Submit3" type="button" class="go-wenbenkuang"
<% If session("type")="Super" Then %>
value="管理員刪除" onClick="systemdelete()"
<% End If %>>
<input name="Submit4" type="button" class="go-wenbenkuang"
<%If session("type")="Super" Then %> value="管理日志查看"
onclick="jscript:location='Manager.asp?action=Log'"<% Else%>
disabled
<%End If %>>
<%End Sub%>
<% Select Case style %>
<% Case "link" %>
<input name="Submit1" type="button" class="go-wenbenkuang"
value="鏈接信息添加" onClick="linkadd()">
<input name="Submit3" type="button" class="go-wenbenkuang"
value="鏈接信息刪除" onClick="linkdeletes()">
<input name="Submit2" type="button" class="go-wenbenkuang"
value="點(diǎn)擊名稱修改" disabled>
<input name="Submit4" type="button" class="go-wenbenkuang"
disabled>
<% Case "system"
Setsystem()
%>
<% Case "Log"
Setsystem()
%>
<% Case "See"
Setsystem()
%>
<% Case Else %>
<input name="Submit1" type="button" class="go-wenbenkuang"
<% if style<>"" then %>value="<%=style%>查詢" onClick="searchs('<%=style%>')"
<% Else%> value="操"disabled <% End If %>>
<input name="Submit2" type="button" class="go-wenbenkuang"
<% If style<>"" Then %>value="<%=style%>添加" onclick="add('<%=style%>')"
<% Else%> value="作" disabled <% End If %>>
<input name="Submit3" type="button" class="go-wenbenkuang"
<% if style<>"" then %>value="<%=style%>修改" onClick="change('<%=style%>')"
<% else%> value="區(qū)" disabled <% End If %>>
<input name="Submit4" type="button" class="go-wenbenkuang"
<% if style<>"" then %>value="<%=style%>刪除" onClick="deletes('<%=style%>')"
<% Else%> value="域"disabled <% End If %>> </td>
<% End Select %>
</form>
</table>
</div></td>
</tr>
</table></td>
<td width="551" background="../Image/Back/right.gIf">
<table width="520" height="428" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="36" height="321"> </td>
<td width="484"> <table width="483" height="428" border="2"
cellpadding="0" cellspacing="0" bordercolor="#BDBEC6">
<tr>
<td valign="top">
<% Select Case Request.QueryString("action") %>
<% Case "" %>
<!-- #include file="Default.asp" -->
<% Case "See" %>
<!-- #include file="System/Manager.asp" -->
<% Case "link" %>
<!-- #include file="Link/Link.asp" -->
<% Case "Log" %>
<!-- #include file="Log/Log.asp" -->
<% Case "system" %>
<!-- #include file="System/Default.asp" -->
<% Case Else %>
<!-- #include file="New/News.asp" -->
<% End Select %> </td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<table width="800" height="47" border="0" align="center" cellpadding="0"
cellspacing="0" background="../Image/footerdi.gIf">
<tr>
<td width="296" height="47"> </td>
<td width="160"><div align="center"> <img src="../Image/footer1.gIf"
width="160" height="46"></div></td>
<td width="299"></td>
</tr>
</table>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -