modify.asp

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

<!--#include file="conn.asp"-->
<!--#include file="error.asp"-->
<%
  if member="" then
      founderr=true
      errinfo="<li>你还没有登陆，请先 <a href='login.asp'>登陆</a><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%" height="182" valign="top" align="center"><%call left()%></td>
    <td width="80%" height="182" valign="top" align="center">
<form method="POST" action="savemodify.asp">
<%
  set rs=conn.execute("select * from user where user='"&member&"'")
%>
  <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td width="50%" align="center">帐&nbsp;&nbsp;&nbsp; 号</td>             
      <td width="50%" align="center" height="25"><%=rs("user")%></td>
    </tr>
    <tr>
      <td width="50%" align="center">
        密&nbsp;&nbsp;&nbsp; 码             
      </td>
      <td width="50%" height="25" align="center">
        <input type="password" name="password" size="20">      </td>
    </tr>
    <tr>
      <td width="50%" align="center">重输密码</td>
      <td width="50%" align="center" height="25">
        <input type="password" name="password1" size="20"></td>
    </tr>
    <tr>
      <td width="50%" align="center">
        性&nbsp;&nbsp;&nbsp; 别             
      </td>
      <td width="50%" height="25" align="center">
      <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>
          &nbsp;             
          </select>      </td>
    </tr>
    <tr>
      <td width="50%" align="center">生&nbsp;&nbsp;&nbsp; 日</td>             
      <td width="50%" align="center" height="25">
          <select size="1" name="birthday_y">
<%
  dim i
  for i=1927 to 2004
      if year(rs("birthday"))=i then
          response.write"<option value='"&i&"' selected>"&i&"</option>"
      else
          response.write"<option value='"&i&"'>"&i&"</option>"
      end if
  next
%>
          </select>年
          <select size="1" name="birthday_m">
<%
  for i=1 to 12
      if month(rs("birthday"))=i then
          response.write"<option value='"&i&"' selected>"&i&"</option>"
      else
          response.write"<option value='"&i&"'>"&i&"</option>"
      end if
  next
%>
          </select>月
          <select size="1" name="birthday_d">
<%
  for i=1 to 31
      if day(rs("birthday"))=i then
          response.write"<option value='"&i&"' selected>"&i&"</option>"
      else
          response.write"<option value='"&i&"'>"&i&"</option>"
      end if
  next
%>
          </select>日      </td>
    </tr>
    <tr>
      <td width="50%" align="center">
        邮&nbsp;&nbsp;&nbsp; 箱             
      </td>
      <td width="50%" height="25" align="center">
      <input type="text" name="email" size="30" value="<%=rs("email")%>">      </td>
    </tr>
    <tr>
      <td width="100%" align="center" height="25" 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
%>