addaddress.asp

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

<!--#include file="conn.asp"-->
<!--#include file="error.asp"-->
<%
  if member="" then
      founderr=true
      errinfo="<li>你还没有登陆，请先 <a href='login.asp'>登陆</a><br>"
  else
      set rs=conn.execute("select id from address_class where user='"&member&"'")
      if rs.eof and rs.bof then
          founderr=true
          errinfo=errinfo&"<li>你还没有建立新的分类，请先进行 <a href='manage_sort.asp'>分类管理</a><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%" valign="top" align="center"><%call left()%></td>
    <td width="80%" valign="top" align="center">

<form method="POST" action="saveaddress.asp">
  <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td width="40%" align="center" height="25">分&nbsp;&nbsp;&nbsp; 类</td>                             
      <td width="60%" height="25"><select size="1" name="class_id">
<%
  set rs=conn.execute("select id,classname from address_class where user='"&member&"'")
  do while not rs.eof
      response.write"<option value='"&rs("id")&"'>"&rs("classname")&"</option>"
      rs.movenext
  loop
  set rs=nothing
%>
          </select>      </td>
    </tr>
    <tr>
      <td width="40%" height="25" align="center">
        姓&nbsp;&nbsp;&nbsp; 名                            
      </td>
      <td width="60%" height="25">
        <input name="name" size="20">
         <font color="#FF0000">*</font>      </td>
    </tr>
    <tr>
      <td width="40%" align="center" height="25">年&nbsp;&nbsp;&nbsp; 龄</td>                 
      <td width="60%" height="25">
        <input name="age" size="10"></td>
    </tr>
    <tr>
      <td width="40%" height="25" align="center">
        性&nbsp;&nbsp;&nbsp; 别                              
      </td>
      <td width="60%" height="25"><select size="1" name="sex">
        <option value="男">男</option>
        <option value="女">女</option>
        </select>      </td>
    </tr>
    <tr>
      <td width="40%" align="center" height="25">家庭/住所电话</td>            
      <td width="60%" height="25">
      <input type="text" name="tel_home" size="20" value="">      </td>
    </tr>
    <tr>
      <td width="40%" height="25" align="center">
        工作电话            
      </td>
      <td width="60%" height="25">
      <input type="text" name="tel_work" size="20" value="">      </td>
    </tr>
    <tr>
      <td width="40%" align="center" height="25">私人手机</td>            
      <td width="60%" height="25">
      <input type="text" name="tel_hand" size="20" value="">      </td>
    </tr>
    <tr>
      <td width="40%" height="25" align="center">
        家庭地址            
      </td>
      <td width="60%" height="25">
        <input name="address_home" size="40">      </td>
    </tr>
    <tr>
      <td width="40%" align="center" height="25">住所地址</td>
      <td width="60%" height="25">
        <input name="address_house" size="40"></td>
    </tr>
    <tr>
      <td width="40%" height="25" align="center">
        工作单位            
      </td>
      <td width="60%" height="25">
      <input type="text" name="company" size="40" value="">      </td>
    </tr>
    <tr>
      <td width="40%" align="center" height="25">邮&nbsp;&nbsp;&nbsp; 箱</td>                             
      <td width="60%" height="25">
      <input type="text" name="email" size="40" value="">      </td>
    </tr>
    <tr>
      <td width="40%" height="25" align="center">
        OICQ            
      </td>
      <td width="60%" height="25">
      <input type="text" name="oicq" size="20" value="">      </td>
    </tr>
    <tr>
      <td width="40%" align="center" height="25">ICQ</td>            
      <td width="60%" height="25">
      <input type="text" name="icq" size="20" value="">      </td>
    </tr>
    <tr>
      <td width="40%" height="25" align="center">
        MSN            
      </td>
      <td width="60%" height="25">
        <input name="msn" size="20">      </td>
    </tr>
    <tr>
      <td width="40%" align="center" height="25">网&nbsp;&nbsp;&nbsp; 页</td>                 
      <td width="60%" height="25">
        <input name="homepage" size="40"></td>
    </tr>
    <tr>
      <td width="40%" height="25" align="center">
        照&nbsp;&nbsp;&nbsp; 片                            
      </td>
      <td width="60%" height="25">
      <input type="text" name="photo" size="40" value="">      </td>
    </tr>
    <tr>
      <td width="40%" height="25" align="center">
        照片大小                          
      </td>
      <td width="60%" height="25">
      宽
        <input type="text" name="photo_width" size="5" value=""> 高<input type="text" name="photo_height" size="5" value="">（若使用默认宽高则不填）      </td>
    </tr>
    <tr>
      <td width="40%" align="center" height="25">关系等级</td>            
      <td width="60%" height="25">
      <select size="1" name="grade">
        <option selected value="0">普通</option>
        <option value="1">重要</option>
      </select>      </td>
    </tr>
    <tr>
      <td width="40%" align="center">备&nbsp;&nbsp;&nbsp; 注</td>                     
      <td width="60%"><textarea rows="5" name="remark" cols="40"></textarea></td>
    </tr>
    <tr>
      <td width="100%" align="center" height="35" colspan="2"><input type="submit" value="添 加" name="B1">&nbsp;&nbsp;&nbsp;            
        <input type="reset" value="重 写" name="B2">&nbsp;&nbsp;&nbsp; <input type="button" value="返 回" name="B2" onclick="javascript:history.go(-1)"></td>                       
    </tr>
  </table>
</form>    </td>
  </tr>
</table>
<%
  end if

  conn.close
  set conn=nothing
%>