error.asp

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

<%
  dim member
  member=session("member_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 left()
%>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="100%" height="25"><a href="logout.asp">退出登陆</a></td>
        </tr>
        <tr>
          <td width="100%" height="25"><a href="modify.asp">修改资料</a></td>
        </tr>
        <tr>
          <td width="100%" height="25"><a href="main.asp">通讯首页</a></td>
        </tr>
        <tr>
          <td width="100%" height="25"><a href="manage_sort.asp">分类管理</a></td>
        </tr>
        <tr>
          <td width="100%" height="25"><a href="addaddress.asp">添加联系人</a></td>
        </tr>
        <tr>
          <td width="100%" height="25">通讯分类
<%
  set rs=conn.execute("select id,classname,classtotal from address_class where user='"&member&"'")
  do while not rs.eof
      response.write"<br>　<a href='addressclass.asp?id="&rs("id")&"'>"&rs("classname")&"</a>("&rs("classtotal")&""
      rs.movenext
  loop
  set rs=nothing
%>          </td>
        </tr>
        <tr>
          <td width="100%" height="25">搜索联系人
<input type="text" name="name" size="10"> <input type="submit" value="搜索" name="B1">          </td>
        </tr>
        <tr>
          <td width="100%" height="25">常用联系人
<%
  dim ii
  set rs=conn.execute("select top 10 id,name from address_list where user='"&member&"' order by hits desc")
  do while not rs.eof and ii<10
      ii=ii+1
      response.write"<br>　<a href='address.asp?id="&rs("id")&"'>"&rs("name")&"</a>"
      rs.movenext
  loop
  set rs=nothing
%>          </td>
        </tr>
</table>
<%
  end sub
%>