profile2.asp

这个论坛也不错．适合做毕业设计的

<% on error resume next
if RS("M_Face")="" then
face="face/1.gif"
else
face=RS("M_Face")
end if

%>
<p>
<table  align="center" bgcolor=<%=TableColor%> border="0" width=<%=TableWidth%> cellspacing="1" cellpadding="3" class="sft">
<TR><td bgcolor=<%=HeadColor%> colspan=2 class="sfh" align="center">用户档案 (注意:带<FONT color=#ff0000>*</FONT>的项目必须填写)</td></tr><tr>
<TD width="20%" bgcolor=<%=CellColor1%> align="right"><FONT color=#ff0000>*</FONT>用户名:</td>
<TD width="80%" bgcolor=<%=CellColor1%>>
<INPUT name="Name" size="20"  value="<%=Request.Form("name") %>" maxlength="10" class="box"> (长度不得大于10)</td>
<TR><TD bgcolor=<%=CellColor1%> align="right"><FONT color=#ff0000>*</FONT>性别:<%=Request.Form("sex")%></td><TD bgcolor=<%=CellColor1%>> 
<INPUT type=radio <%if RS("M_Sex")=1 then Response.Write "CHECKED"%> value="1" name=Sex><IMG src="images/boy.gif" align=absMiddle>帅哥&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<INPUT type=radio <%if RS("M_Sex")<>1 then Response.Write "CHECKED"%> value="0" name=sex>
<IMG src="images/girl.gif" align=absMiddle>美女</TD>
</TR><tr>
<TD bgcolor=<%=CellColor1%> align="right"><FONT color=red face="">*</FONT>密码:</td>
<TD bgcolor=<%=CellColor1%>>
<INPUT name="password" type=password maxlength="16" size="20" value="<%=Request.Form("password") %>" class="box">
<INPUT name="password-d" type=hidden value="<%=Request.Form("password") %>">(长度不得大于16)</td>
<% if Request.QueryString("mode") <> "go" then %>
<TR><TD bgcolor=<%=CellColor1%> align="right"><FONT color=#ff0000 face="">*</FONT>重复输入密码:</td>
<TD bgcolor=<%=CellColor1%>>
<INPUT name="password2" type=password maxlength="16" size="20" class="box"></td>
<% End If %>
<TR><TD bgcolor=<%=CellColor1%> align="right"><FONT color=#ff0000 face="">*</FONT>E-Mail 地址:</td>
<TD bgcolor=<%=CellColor1%>>
<INPUT  name="email" size="35" maxlength="40" value="<%=RS("M_email") %>" class="box">(长度不得大于40个英文字符,如您不想公开,可以乱填:)</td>
<TR><TD bgcolor=<%=CellColor1%> align="right"><img id=face src=<%=face%> alt="头像">头像:</td>
<TD bgcolor=<%=CellColor1%>>
<table border="0" class="sft"><tr><td>选择论坛自带的头像:
<select name="face" size=1 onChange="document.images['face'].src=options[selectedIndex].value;" class="box">
<% for i=1 to 35
Response.Write "<option "
facestr="face/" & i & ".gif"
if facestr= RS("M_Face") then Response.Write "SELECTED "
Response.Write "value='" & facestr &"'>头像" &i &"</option>"
next%>
</select></td></tr><tr><td>
自定义头像的URL地址:<INPUT name="otherface" maxlength="250" size="25" value="<%=RS("M_OtherFace") %>" class="box">(如果你不使用自定义头像,请将本框置空)</td></tr>
<tr><td>自定义头像图片 宽度:<INPUT name="otherface_width" size="5" value="<%=RS("M_OtherFace_Width") %>" class="box"> 高度:<INPUT name="otherface_height" size="5" value="<%=RS("M_OtherFace_Height") %>" class="box">(宽高必须小于120)</td></tr>
</table>
</td>
<TR><TD bgcolor=<%=CellColor1%> align="right">主页:</td>
<TD bgcolor=<%=CellColor1%>><INPUT name="homepage" size="30" value="<%=RS("M_HomePage") %>" maxlength="50" class="box"></td>
<TR><TD bgcolor=<%=CellColor1%> align="right">QQ号码:</td>
<TD bgcolor=<%=CellColor1%>><INPUT name="ICQ" size="15" value="<%=RS("M_ICQ") %>" maxlength="20" class="box"></td></tr>
<TR><TD bgcolor=<%=CellColor1%> align="right">MSN号码:</td>
<TD bgcolor=<%=CellColor1%>><INPUT name="MSN" size="15" value="<%=RS("M_MSN") %>" maxlength="20" class="box"></td></tr>
<TR><TD bgcolor=<%=CellColor1%> align="right">来自:</td>
<TD bgcolor=<%=CellColor1%>>
<INPUT name="Country" size="20" value="<%=RS("M_Country") %>" maxlength="50" class="box">(你该不会来自外星吧?)</TD>
<TR><TD bgcolor=<%=CellColor1%> align="right">找回密码时问的问题:</td>
<TD bgcolor=<%=CellColor1%>>
<INPUT name="question" size="30" value="<%=RS("M_Question") %>" maxlength="100" class="box"><br>如果遗忘了密码,可以凭此问题的答案找回,长度小于100 (如:"我家小猫的胡子长在哪里?")</TD>
<TR><TD bgcolor=<%=CellColor1%> align="right">找回密码时的回答:</td>
<TD bgcolor=<%=CellColor1%>>
<INPUT name="restr" size="30" value="<%=RS("M_Return") %>" maxlength="100" class="box"><br>设置问题的答案,一定要记住,长度小于100 (如:"尾巴")</TD>
<TR><TD bgcolor=<%=CellColor1%> align="right">个性签名:</td>
<TD bgcolor=<%=CellColor1%>><textarea name="sig" cols="50" rows=5 class="box"><%=RS("M_sig") %></textarea><br>(长度不得大于250,不支持html语法,支持除贴图外的UBB标签)</td>
</TR><td bgcolor=<%=CellColor1%> colspan=2 align="center"><INPUT type="submit" value="确 定" class="btn"></td>
</TABLE>