admin_error.asp

还是同学录 功能较为的简单点 挺好用的

<%
  dim master
  master=session("master_address_list")
  '******错误和成功提示页面、网站导航******

  dim founderr,errinfo,success
  '出错提示
  sub errweb()
      response.write"<table align='center' width='500'><tr><td width=100% align=center height=20>出错提示</td></tr><tr><td width=100% height=180 valign='top'><br><br>你的操作遇到以下错误：<p>"&errinfo&"<li><a href=javascript:history.go(-1)>返回上一页</a></td></tr></table>"
  end sub

  '成功提示
  sub successweb()
      response.write"<table align='center' width='500'><tr><td width=100% align=center height=20>操作成功</td></tr><tr><td width=100% height=180 valign='top'><br><br>你成功进行了以下操作：<p>"&success&"<li><a href=javascript:history.go(-1)>返回上一页</a></td></tr></table>"
  end sub
  
  sub menu()
%>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="100%" height="25"><a href="admin_login.asp?action=logout">退出管理</a></td>
        </tr>
        <tr>
          <td width="100%" height="25"><a href="admin_modify.asp">帐号管理</a></td>
        </tr>
        <tr>
          <td width="100%" height="25"><a href="admin_user.asp">用户管理</a></td>
        </tr>
        <tr>
          <td width="100%" height="25"><a href="admin_class.asp">分类数据</a></td>
        </tr>
        <tr>
          <td width="100%" height="25"><a href="admin_address.asp">联系人数据</a></td>
        </tr>
</table>
<%
  end sub
%>