editaddress.asp

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

<!--#include file="conn.asp"-->
<!--#include file="error.asp"-->
<%
  dim id,rs_class
  id=request("id")
  if member="" then
      founderr=true
      errinfo="<li>你还没有登陆，请先 <a href='login.asp'>登陆</a><br>"
  else
      set rs=conn.execute("select id from address_list where id="&id&" and user='"&member&"'")
      if rs.eof and rs.bof then
          founderr=true
          errinfo=errinfo&"<li>你的通讯录中没有该联系人<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="182" valign="top" align="center"><%call left()%></td>
    <td width="80%" valign="top" align="center">

<form method="POST" action="saveedit.asp?id=<%=id%>">
  <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 * from address_list where id="&id&" and user='"&member&"'")
  set rs_class=conn.execute("select id,classname from address_class where user='"&member&"'")
  do while not rs_class.eof
      if rs("class_id")=rs_class("id") then
            response.write"<option value='"&rs_class("id")&"' selected>"&rs_class("classname")&"</option>"
      else
            response.write"<option value='"&rs_class("id")&"'>"&rs_class("classname")&"</option>"
      end if
      rs_class.movenext
  loop
  set rs_class=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" value="<%=rs("name")%>">      </td>
    </tr>
    <tr>
      <td width="40%" align="center" height="25">年&nbsp;&nbsp;&nbsp; 龄</td>                     
      <td width="60%" height="25">
        <input name="age" size="10" value="<%=rs("age")%>"></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="男" <%if rs("sex")="男" then%> selected <%end if%>>男</option>
        <option value="女" <%if rs("sex")="女" then%> selected <%end if%>>女</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="<%=rs("tel_home")%>">      </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="<%=rs("tel_work")%>">      </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="<%=rs("tel_hand")%>">      </td>
    </tr>
    <tr>
      <td width="40%" height="25" align="center">
        家庭地址            
      </td>
      <td width="60%" height="25">
        <input name="address_home" size="40" value="<%=rs("address_home")%>">      </td>
    </tr>
    <tr>
      <td width="40%" align="center" height="25">住所地址</td>
      <td width="60%" height="25">
        <input name="address_house" size="40" value="<%=rs("address_house")%>"></td>
    </tr>
    <tr>
      <td width="40%" height="25" align="center">
        工作单位            
      </td>
      <td width="60%" height="25">
      <input type="text" name="company" size="40" value="<%=rs("company")%>">      </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="<%=rs("email")%>">      </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="<%=rs("oicq")%>">      </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="<%=rs("icq")%>">      </td>
    </tr>
    <tr>
      <td width="40%" height="25" align="center">
        MSN            
      </td>
      <td width="60%" height="25">
        <input name="msn" size="20" value="<%=rs("msn")%>">      </td>
    </tr>
    <tr>
      <td width="40%" align="center" height="25">网&nbsp;&nbsp;&nbsp; 页</td>                     
      <td width="60%" height="25">
        <input name="homepage" size="40" value="<%=rs("homepage")%>"></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="<%=rs("photo")%>">      </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="<%=rs("photo_width")%>"> 
      高<input type="text" name="photo_height" size="5" value="<%=rs("photo_height")%>">（若使用默认宽高则不填或填0）      </td>
    </tr>
    <tr>
      <td width="40%" align="center" height="25">关系等级</td>            
      <td width="60%" height="25">
      <select size="1" name="grade">
        <option value="0" <%if rs("grade")=0 then%> selected <%end if%>>普通</option>
        <option value="1" <%if rs("grade")=1 then%> selected <%end if%>>重要</option>
      </select>      </td>
    </tr>
    <tr>
      <td width="40%" align="center">备&nbsp;&nbsp;&nbsp; 注</td>                         
      <td width="60%"><textarea rows="5" name="remark" cols="40"><%=rs("remark")%></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>
<%
  set rs=nothing
  end if

  conn.close
  set conn=nothing
%>