addressclass.asp

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

<!--#include file="conn.asp"-->
<!--#include file="error.asp"-->
<%
  dim id
  id=request("id")
  if member="" then
      founderr=true
      errinfo="<li>你还没有登陆，请先 <a href='login.asp'>登陆</a><br>"
  end if
  if id="" then
      founderr=true
      errinfo="<li>你没有选择一个通讯分类<br>"
  elseif isnumeric(id)=false then
      founderr=true
      errinfo="<li>通讯分类参数错误<br>"
  end if
%>
<title><%=sitename%>-通讯分类</title>
<%
  if founderr=true then
      call errweb()
  else
%>
<table width="<%=width%>" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="20%" valign="top"><%call left()%></td>
    <td width="80%" valign="top">
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="100%" height="25">通讯分类
<%
  set rs=conn.execute("select classname,classtotal from address_class where id="&id&"")
  response.write rs("classname")&"，该分类有通讯数 "&rs("classtotal")
  set rs=nothing
%>          </td>
        </tr>
        <tr>
          <td width="100%" height="25">排序方式：<a href="?id=<%=id%>&order=1">重要降序</a>、<a href="?id=<%=id%>&order=2">重要升序</a>、<a href="?id=<%=id%>&order=3">普通降序</a>、<a href="?id=<%=id%>&order=4">普通升序</a>、<a href="?id=<%=id%>&order=5">混合降序</a>、<a href="?id=<%=id%>&order=6">混合升序</a></td>
        </tr>
      </table>
      
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
<%
  dim sql,i,totaladdress,page,pages,order,orderlist
  order=request("order")
  select case order
  case "1"
      orderlist=" and grade=1 order by id desc "
  case "2"
      orderlist=" and grade=1 order by id asc "
  case "3"
      orderlist=" and grade=0 order by id desc "
  case "4"
      orderlist=" and grade=0 order by id asc "
  case "","5"
      orderlist=" order by id desc "
  case "6"
      orderlist=" order by id asc "
  end select
  set rs= Server.CreateObject("ADODB.Recordset")
  sql="select id,name from address_list where user='"&member&"' and class_id="&id&" "&orderlist&""
  rs.open sql,conn,1,1
  if rs.eof and rs.bof then
      page=1
      pages=1
      totaladdress=0
      response.write"<tr><td width='100%' height='80' align='center' colspan='4'>该通讯分类中没有联系人</td></tr>"
  else
      totaladdress=rs.recordcount      '总的人数
      rs.pagesize=50                   '每页显示的条数
      pages=rs.pagecount               '总的找到页数
      page=request("page")             '当前页
      if page="" then
          page=1
      elseif page<1 then
          page=1
      end if
      page=cint(page)
      if page>pages then page=pages
      rs.absolutepage=page

      response.write"<tr>"
      do while not rs.eof and i<rs.pagesize
          i=i+1
          response.write"<td><a href='address.asp?id="&rs("id")&"'>"&rs("name")&"</a></td>"
          if i mod 4=0 then
              response.write"</tr>"
          end if
          rs.movenext
      loop
  end if
  set rs=nothing
%>
        <tr>
          <td width="25%" height="25">　</td>
          <td width="25%" height="25">　</td>
          <td width="25%" height="25">　</td>
          <td width="25%" height="25">　</td>
        </tr>
        <tr>
          <td width="25%" height="25">　</td>
          <td width="25%" height="25">　</td>
          <td width="25%" height="25">　</td>
          <td width="25%" height="25">　</td>
        </tr>
        <tr>
          <td width="100%" height="25" colspan="4">
<%
  if pages>1 then
      response.write"<table align='center' cellspacing='0' cellpadding='0' border='0' width='100%'>"&_
                    "<form method='POST' action='?id="&id&"&order="&order&"'><tr><td height='20' width='50%'>共<font color='red'>"&totaladdress&"</font>人 <font color='red'>"&pages&"</font>页 第<font color='red'>"&page&"</font>页 "

      response.write" <input type='text' name='page' size='5' maxlength='4'> <input type='submit' value='GO' name='B1'></td></form><td align='right' width='50%' height='20'>"
      if page>1 then
          response.write"<a href='?id="&id&"&order="&order&"&page=1'>首页</a> "&_
                        "<a href='?id="&id&"&order="&order&"&page="&page-1&"'>上一页</a> "
      else
          response.write"首页 上一页 "
      end if
      if page<pages then
          response.write"<a href='?id="&id&"&order="&order&"&page="&page+1&"'>下一页</a> "&_
                        "<a href='?id="&id&"&order="&order&"&page="&pages&"'>尾页</a>"
      else
          response.write"下一页 尾页"
      end if
      response.write"</td></tr></table>"
  end if
%></td>
        </tr>
      </table>    </td>
  </tr>
</table>
<%
  end if

  conn.close
  set conn=nothing
%>