menu.asp

来自「新闻管理系统,管理员登陆后能够实现对新闻的添加,删除以及更新等功能,操作比较简单」· ASP 代码 · 共 123 行

<!--#include file="header.inc"-->
<%
select case request("action")
case "left"
%>

<CENTER><table width="160" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td><img src="Images/title.gif" width="160" height="45"></td>
  </tr>
  <tr>
    <Td height=25 align=CENTER Class=TableTitle2>控制面板</td>
  </tr>
  <tr>
    <th height=25 align=left >&nbsp;数据管理</th>
  </tr>
  <tr>
    <td height=25 align=CENTER Class=TableBody1><A HREF="news_List_ad.asp" target=mainFrame>公告管理</A></td>
  </tr>
  <tr>
    <td height=25 align=CENTER Class=TableBody1><A HREF="Data_Add.asp" target=mainFrame>添加公告</A></td>
  </tr>
  <tr>
    <th height=25 align=left >&nbsp;系统控制</th>
  </tr>
  <tr>
    <td height=25 align=CENTER Class=TableBody1><A HREF="Sys_Set.asp" target=mainFrame>基本设定</A></td>
  </tr>
  <tr>
    <th height=25 align=left >&nbsp;管理控制</th>
  </tr>
  <tr>
    <td height=25 align=CENTER Class=TableBody1><A HREF="Admin_Set.asp" target=mainFrame>管理员设置</A></td>
  </tr>
    <tr>
    <th height=25 align=left >&nbsp;ACCESS</th>
  </tr>
  <tr>
    <td height=25 align=CENTER Class=TableBody1><A HREF="Access.asp" target=mainFrame>压缩数据库</A></td>
  </tr>
  <tr>
    <th height=25 align=left >&nbsp;退出系统</th>
  </tr>
    <tr>
    <td height=25 align=CENTER Class=TableBody1><A HREF="logout.asp" target=mainFrame>安全退出</A></td>
  </tr>
    <tr>
    <th height=25 align=left>&nbsp;技术支持</th>
  </tr>
    <tr>
    <td height=25 align=CENTER Class=TableBody1><a href="login.asp" target="mainFrame">管理入口</a><A HREF="http://3gu.tea8.com" target=mainFrame></A></td>
  </tr>
      <tr>
      <td height=25 align=CENTER Class=TableBody1><a href="mailto:[e-mail]">错误报告</a><A HREF="http://3gu.tea8.com/show/News/" target=mainFrame></A></td>
  </tr>
  <tr>
      <td height=25 align=CENTER Class=TableBody1><A HREF="http://3gu.tea8.com/DownLoad/index.asp" target=mainFrame></A></td>
  </tr>
    <tr>
      <td height=25 align=CENTER Class=TableBody1><a href="mailto:[e-mail]"></A></td>
  </tr>
</table></CENTER>


<%

case "right"

Response.Write "<BR><BR><BR><BR>"
%>
<CENTER>
<table width="60%" border="0" cellspacing="0" cellpadding="0">
<tr>
      <th height=25 align=CENTER>服务器信息</th>
  </tr>
    <tr>
      <td height=25 Class=TableBody1>当前时间: <%=now()%></td>
  </tr>
   <tr>
      <td height=25 Class=TableBody1>您的IP: <%=Request.ServerVariables("REMOTE_ADDR")%></td>
  </tr>
   <tr>
      <td height=25 Class=TableBody1>绝对路径: <%=Server.MapPath("admin.asp")%></td>
  </tr>
   <tr>
      <td height=25 Class=TableBody1>服务器: <%=Request.ServerVariables("SERVER_NAME")%></td>
  </tr>
   <tr>
      <td height=25 Class=TableBody1>IIS版本:<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
  </tr>
     <tr>
      <td height=25 Class=TableBody1>脚本超时时间:<%=Server.ScriptTimeout%> 秒</td>
  </tr>
     <tr>
      <td height=25 Class=TableBody1>服务器解译引擎:<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
  </tr>
     <tr>
      <td height=25 Class=TableBody1>服务器IP:<%=Request.ServerVariables("LOCAL_ADDR")%></td>
  </tr>
   <tr>
    <Td height=25 align=CENTER Class=TableTitle2>&nbsp;</td>
  </tr>
</table></CENTER>
 

<%
Response.Write "<BR><BR><BR><BR>"

case "top"
Response.Write "<table width=""100%"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
Response.Write "<tr><th valign=""middle"" id=""TableTitleLink""><CENTER><A HREF=""http://3gu.tea8.com/"" target=mainFrame>技术支持</A></CENTER></th><th valign=""middle"" id=""TableTitleLink""><CENTER><A HREF=""http://3gu.tea8.com/Download"" target=mainFrame>检查版本</A></CENTER></th><th valign=""middle"" id=""TableTitleLink""><CENTER><A HREF=""http://3gu.tea8.com/""  target=mainFrame>站长交流</A></CENTER></th></tr>"
Response.Write "</table>"


end select






%>