searchout.asp

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

<!--#include file="conn.asp"-->
<!--#include file="error.asp"-->
<%
  if member="" then
      founderr=true
      errinfo="<li>你还没有登陆，请先 <a href='login.asp'>登陆</a><br>"
  else
      dim name
      name=request.form("name")
      if name="" then
          founderr=true
          errinfo="<li>请在搜索中输入联系人姓名<br>"
      elseif len(name)>5 then
          founderr=true
          errinfo="<li>联系人姓名不能超过5个字符<br>"
      end if
  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%">搜索通讯录联系人关键字 <font color="#ff0000"><%=name%></font></td>
        </tr>
        <tr>
          <td width="100%" height="25">
<%
  set rs=conn.execute("select id,name from address_list where user='"&member&"' and name like '%"&name&"%'")
  if rs.eof and rs.bof then
      response.write"<p align='center'>通讯中没有搜索到相关联系人</p>"
  else
      do while not rs.eof
          response.write"　<a href='address.asp?id="&rs("id")&"'>"&rs("name")&"</a>　"
          rs.movenext
      loop
  end if
  set rs=nothing
%></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<%
  end if

  conn.close
  set conn=nothing
%>