address.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=errinfo&"<li>联系人的ID不能为空<br>"
  elseif isnumeric(id)=false then
      founderr=true
      errinfo=errinfo&"<li>联系人的ID参数有误<br>"
  else
      set rs=conn.execute("select id from address_list where user='"&member&"' and id="&id&"")
      if rs.eof and rs.bof then
          founderr=true
          errinfo=errinfo&"<li>没有该ID的联系人<br>"
      end if
      set rs=nothing
  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%" height="459" valign="top"><%call left()%></td>
    <td width="80%" height="459" valign="top">
<%
  set rs=conn.execute("select * from address_list where user='"&member&"' and id="&id&"")
%>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="100%" height="180">
            <div align="center">
              <center>
            <table width="98%" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td width="60%" height="25">
<%
  if rs("grade")=0 then
      response.write"普通"
  else
      response.write"重要"
  end if
  response.write "　"&rs("sex")&"　"&rs("age")&"岁"
%>                </td>
                <td width="40%" height="180" align="center" rowspan="9">
<%
  if rs("photo")="-" then
      response.write"<img src='images/nophoto.gif' border='0'>"
  else
      if rs("photo_width")=0 then
          response.write"<img src='"&rs("photo")&"' border='0'>"
      else
          response.write"<img src='"&rs("photo")&"' border='0' width='"&rs("photo_width")&"' height='"&rs("photo_height")&"'>"
      end if
  end if
%>
                </td>
              </tr>
              <tr>
                <td width="60%" align="center" height="25"><%=rs("name")%></td>
              </tr>
              <tr>
                <td width="60%" align="right" height="25"><a href="editaddress.asp?id=<%=id%>">编辑</a>  
                  <a href="saveedit.asp?action=del&id=<%=id%>"> 删除</a></td> 
              </tr>
              <tr>
                <td width="60%" height="25">家庭/住所电话：<%=rs("tel_home")%></td> 
              </tr>
              <tr>
                <td width="60%" height="25">工作电话：<%=rs("tel_work")%></td>
              </tr>
              <tr>
                <td width="60%" height="25">私人手机：<%=rs("tel_hand")%></td>
              </tr>
              <tr>
                <td width="60%" height="25">家庭地址：<%=rs("address_home")%></td>
              </tr>
              <tr>
                <td width="60%" height="25">住所地址：<%=rs("address_house")%></td>
              </tr>
              <tr>
                <td width="60%" height="25">工作单位：<%=rs("company")%></td>
              </tr>
            </table>
              </center>
            </div>
          </td>
        </tr>
        <tr>
          <td width="100%" height="133">
            <div align="center">
              <center>
            <table width="98%" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td width="50%" height="25">OICQ：<%=rs("oicq")%></td>
                <td width="50%" height="25">ICQ：<%=rs("icq")%></td>
              </tr>
              <tr>
                <td width="100%" colspan="2" height="25">MSN：<%=rs("msn")%></td>
              </tr>
              <tr>
                <td width="100%" colspan="2" height="25">邮箱：<a href="mailto:<%=rs("email")%>"><%=rs("email")%></a></td>
              </tr>
              <tr>
                <td width="100%" colspan="2" height="25">网页：<%=rs("homepage")%></td>
              </tr>
              <tr>
                <td width="100%" height="25" colspan="2">备注：<%=rs("remark")%></td>
              </tr>
              <tr>
                <td width="100%" colspan="2" height="25" align="center"><a href="javascript:history.go(-1)">返回</a></td>
              </tr>
            </table>
              </center>
            </div>
          </td>
        </tr>
      </table>
      
    </td>
  </tr>
</table>
<%
  set rs=nothing
  conn.execute("update address_list set hits=hits+1 where id="&id&"")
  end if

  conn.close
  set conn=nothing
%>