edituserinfoinput.asp

ASPTest 网络基础网页设计

<%
Set rsUser = Server.CreateObject("ADODB.RecordSet")
rsUser.Open "SELECT * FROM Lily_Users WHERE UserID='"&Session("UserID")&"'",cn
%>
<form Method="POST" Action="EditUserInfoCheck.asp">
<table border="1" cellpadding="0" cellspacing="0" width="630" height="167" style="border-collapse: collapse" bordercolor="#111111" align="center">
  <tr>
    <td width="628" colspan="3" height="30" align="center" bgcolor="#1E3A75">
    <font color="#FFFFFF">请输入<span lang="zh-cn">修改</span>信息（带*号为必填）</font></td>
  </tr>
  <tr>
    <td width="125" align="right" height="25" bgcolor="#B5C7EC">用户昵称：</td>
    <td width="258" height="25" align="right" bgcolor="#B5C7EC">
    <input name="txtUserNick" size="20" value="<%=rsUser("UserNick")%>"></td>
    <td width="244" height="25" bgcolor="#B5C7EC">&nbsp; (*)20个字符以内的英文或汉字</td>
  </tr>
  <tr>
    <td width="125" align="right" height="25" bgcolor="#B5C7EC">旧密码：</td>
    <td width="258" height="25" align="right" bgcolor="#D8E1F5">
    <input name="txtOldPWD" size="20" type="password"></td>
    <td width="244" height="25" bgcolor="#D8E1F5">&nbsp; </td>
  </tr>
  <tr>
    <td width="125" align="right" height="25" bgcolor="#B5C7EC">新密码：</td>
    <td width="258" height="25" align="right" bgcolor="#B5C7EC">
    <input name="txtUserPWD" size="20" type="password"></td>
    <td width="244" height="25" bgcolor="#B5C7EC">&nbsp; (*)建议6-18位</td>
  </tr>
  <tr>
    <td width="125" align="right" height="25" bgcolor="#B5C7EC">确认新密码：</td>
    <td width="258" height="25" align="right" bgcolor="#D8E1F5">
    <input name="txtPWDSubmit" size="20" type="password"></td>
    <td width="244" height="25" bgcolor="#D8E1F5">&nbsp; (*)建议6-18位</td>
  </tr>
  <tr>
    <td width="125" align="right" height="25" bgcolor="#B5C7EC">电子邮件：</td>
    <td width="258" height="25" align="right" bgcolor="#B5C7EC">
    <input type="text" name="txtEmail" size="20" value="<%=rsUser("Email")%>"></td>
    <td width="244" height="25" bgcolor="#B5C7EC">&nbsp; 方便站长和其他用户与您联系</td>
  </tr>
  <tr>
    <td width="125" align="right" height="25" bgcolor="#B5C7EC">性别：</td>
    <td width="258" height="25" align="right" bgcolor="#D8E1F5">
    <input type="radio" value="男" <%If rsUser("UserGender")="男" Then Response.Write "checked" %> name="rdUserGender">男
    <input type="radio" value="女" <%If rsUser("UserGender")="女" Then Response.Write "checked" %> name="rdUserGender">女
    <input type="radio" value="保密" <%If rsUser("UserGender")="保密" Then Response.Write "checked" %> name="rdUserGender">保密</td>
    <td width="244" height="25" bgcolor="#D8E1F5"></td>
  </tr>
  <tr>
    <td width="125" align="right" height="25" bgcolor="#B5C7EC">生日：</td>
    <td width="258" height="25" align="right" bgcolor="#B5C7EC">
    <select size="1" name="txtYear">
      <% 
      For i = 1960 to Year(Date)-5
        If i = Year(rsUser("Birthday")) Then
          Response.Write "<option selected>"&i&"</option>"
        Else
          Response.Write "<option>"&i&"</option>"
        End If
      Next
      %> 
    </select>年
    <select size="1" name="txtMonth">
      <% 
      For i = 1 to 12
        If i = Month(rsUser("Birthday")) Then
          Response.Write "<option selected>"&i&"</option>"
        Else
          Response.Write "<option>"&i&"</option>"
        End If
      Next
      %>
    </select>月
    <select size="1" name="txtDay">
      <% 
      For i = 1 to 31
        If i = Day(rsUser("Birthday")) Then
          Response.Write "<option selected>"&i&"</option>"
        Else
          Response.Write "<option>"&i&"</option>"
        End If
      Next
      %>
    </select>日</td>
    <td width="244" height="25" bgcolor="#B5C7EC">&nbsp; 请勿选择不存在的日期</td>
  </tr>
  <tr>
    <td width="125" align="right" height="25" bgcolor="#B5C7EC">qq号：</td>
    <td width="258" height="25" align="right" bgcolor="#D8E1F5">
    <input type="text" name="txtOicq" size="20" value="<%=rsUser("OicqNum")%>"></td>
    <td width="244" height="25" bgcolor="#D8E1F5"></td>
  </tr>
  <tr>
    <td width="125" align="right" height="25" bgcolor="#B5C7EC">真实姓名：</td>
    <td width="258" height="25" align="right" bgcolor="#B5C7EC">
    <input type="text" name="txtUserName" size="20" value="<%=rsUser("UserName")%>"></td>
    <td width="244" height="25" bgcolor="#B5C7EC">&nbsp; 可以不输入任何信息</td>
  </tr>
  <tr>
    <td width="125" align="right" height="25" bgcolor="#B5C7EC">个人主页：</td>
    <td width="258" height="25" align="right" bgcolor="#D8E1F5">
    <input type="text" name="txtHomePage" size="20" value="<%=rsUser("Homepage")%>"></td>
    <td width="244" height="25" bgcolor="#D8E1F5"></td>
  </tr>
  <tr>
    <td width="125" align="right" height="2" bgcolor="#B5C7EC">个人介绍：</td>
    <td width="502" height="2" colspan="2" align="center" bgcolor="#B5C7EC">
      <textarea rows="5" name="txtDescription" cols="50">
        <%=rsUser("Description")%>
      </textarea>
    </td>
  </tr>
  <tr>
    <td width="627" align="center" height="37" colspan="3" bgcolor="#1E3A75">
    <input type="submit" value="提交注册信息" name="B1">&nbsp;&nbsp;&nbsp;
    <input type="reset" value="清除注册信息" name="B2"></td>
  </tr>
</table>

</form>
<%
rsUser.Close
Set rsUser = Nothing
%>