editprofile.asp

ASP整套的建站源代码

<td height="2" valign="top" bgcolor="#ECF5FF" width="46%">　<b>国　　家：</b>
<b>
<input type="text" name="country" size="18" value="<%=rs("country")%>">
</b> </td>
</tr>
<tr>
<td height="2" valign="top" bgcolor="#F2F8FF" width="46%">　<b>省　　份：</b>
<input type="text" name="province" size="18" value="<%=rs("province")%>">
</td>
</tr>
<tr>
<td height="2" valign="top" bgcolor="#ECF5FF" width="46%">　<b>城　　市：
</b>
<input type="text" name="city" size="18" value="<%=rs("city")%>">
</td>
</tr>
<tr>
<td height="2" valign="top" bgcolor="#F2F8FF" width="46%">　<b>生　　肖：
</b>
<input class=sy maxlength=4 size=4
name=shengxiao value="<%=rs("shengxiao")%>">
</td>
</tr>
<tr>
<td height="2" valign="top" bgcolor="#ECF5FF" width="46%">　<b>血　　型：</b>
<input class=sy maxlength=4 size=4
name=blood value="<%=rs("blood")%>">
</td>
</tr>
<tr>
<td height="2" valign="top" bgcolor="#F2F8FF" width="46%">　<b>星　　座：</b>

<select size=1 name=constellation>
<option value="<%=rs("constellation")%>" selected>默认</option>
<option value=^>牡羊座</option>
<option value=_>金牛座</option>
<option value="`">双子座</option>
<option value=a>巨蟹座</option>
<option value=b>狮子座</option>
<option value=c>处女座</option>
<option value=d>天秤座</option>
<option value=e>天蝎座</option>
<option value=f>射手座</option>
<option value=g>魔羯座</option>
<option value=h>水瓶座</option>
<option value=i>双鱼座</option>
</select>


</td>
</tr>
<tr>
<td height="2" valign="top" bgcolor="#ECF5FF" width="46%">　<b>信　　仰：</b>
<input type="text" name="belief" size="18" value="<%=rs("belief")%>"></td>
</tr>
<tr>
<td height="2" valign="top" bgcolor="#F2F8FF" width="46%">　<b>职　　业：</b>
<input type="text" name="occupation" size="18" value="<%=rs("occupation")%>"></td>
</tr>
<tr>
<td height="2" valign="top" bgcolor="#ECF5FF" width="46%">　<b>婚姻状况：</b>
<input class=sy maxlength=4 size=4
name=marital value="<%=rs("marital")%>"></td>
</tr>
<tr>
<td height="2" valign="top" bgcolor="#F2F8FF" width="46%">　<b>最高学历：</b>
<input type="text" name="education" size="18" value="<%=rs("education")%>"></td>
</tr>
<tr>
<td height="2" valign="top" bgcolor="#ECF5FF" width="46%">　<b>毕业院校：</b>
<input type="text" name="college" size="18" value="<%=rs("college")%>"></td>
</tr>
</table><center><br>
<input type="submit" name="Submit" value=" 确 定 "></form>

<Script>
document.form.sign.value = unybbcode(document.form.sign.value);
document.form.sign.focus();
</Script>

<%
end sub





sub editprofileok
username=Trim(Request("username"))
realname=server.htmlencode(Request("realname"))
birthyear=server.htmlencode(Request("birthyear"))
birthmonth=server.htmlencode(Request("birthmonth"))
birthday=server.htmlencode(Request("birthday"))
userface=server.htmlencode(Request("userface"))
sex=server.htmlencode(Request("sex"))
country=server.htmlencode(Request("country"))
province=server.htmlencode(Request("province"))
city=server.htmlencode(Request("city"))
shengxiao=server.htmlencode(Request("shengxiao"))
blood=server.htmlencode(Request("blood"))
constellation=server.htmlencode(Request("constellation"))
character=server.htmlencode(Request("character"))
belief=server.htmlencode(Request("belief"))
college=server.htmlencode(Request("college"))
marital=server.htmlencode(Request("marital"))
education=server.htmlencode(Request("education"))
personal=server.htmlencode(Request("personal"))
occupation=server.htmlencode(Request("occupation"))
sign=server.htmlencode(Request("sign"))
sign=replace(sign,"  ","　")
sign=replace(sign,vbCrlf,"<br>")
sign=replace(sign,"[FLASH]","[URL]")
sign=replace(sign,"[/FLASH]","[/URL]")
sign=ybbcode(sign)
if Len(sex)>1 then
message=message&"<li>性别不能大于 1 个字符"
end if

if Len(constellation)>1 then
message=message&"<li>星座不能大于 1 个字符"
end if

if Len(character)>255 then
message=message&"<li>性格不能大于 255 个字符"
end if

if Len(personal)>255 then
message=message&"<li>个人简介不能大于 255 个字符"
end if

if Len(sign)>255 then
message=message&"<li>签名档不能大于 255 个字节"
end if

if message<>"" then
error(""&message&"")
end if

if instr(username," ")>0 then:error("<li>非法操作"):end if
sql="select * from user where username='"&username&"'"
rs.Open sql,Conn,1,3
rs("realname")=realname
rs("birthyear")=birthyear
rs("birthmonth")=birthmonth
rs("birthday")=birthday
rs("userface")=userface
rs("sex")=sex
rs("country")=country
rs("province")=province
rs("city")=city
rs("shengxiao")=shengxiao
rs("blood")=blood
rs("constellation")=constellation
rs("character")=character
rs("belief")=belief
rs("college")=college
rs("marital")=marital
rs("education")=education
rs("personal")=personal
rs("sign")=sign
rs("occupation")=occupation
rs("landtime")=now
rs.update
rs.close
succtitle="修改资料成功"
message=message&"<li><a href=usercp.asp>控制面板首页</a>"
succeed(""&message&"<meta http-equiv=refresh content=3;url=usercp.asp>")
end sub





sub contact
sql="select * from user where username='"&Request.Cookies("username")&"'"
rs.Open sql,Conn
%>
<table width=730 cellspacing=0 cellpadding=4 border=1 borderColor=a4b6d7 align=center>
<form method="POST" name="form"action="editprofile.asp">
<input type=hidden name="username" value="<%=rs("username")%>">
<input type=hidden name="menu" value="contactok">
<tr>
<td height="20" align="center" colspan="2" valign="bottom" background=images/title_sub.gif>
<font color="#000000"><b>联系资料修改</b></font></td>
</tr>
<tr>
<td height="2" align="right" width="46%" bgcolor="#ECF5FF"><b>QQ：</b></td>
<td height="2" align="left" width="54%" bgcolor="#ECF5FF"> &nbsp;
<input type="text" name="userqq" size="40" value="<%=rs("userqq")%>">
</td>
</tr>
<tr>
<td bgcolor=#f2f8ff height="2" align="right" valign="middle" width="46%"><b>您的Email地址：</b></td>
<td bgcolor=#f2f8ff height="2" align="left" valign="middle" width="54%">
&nbsp;
<input type="text" name="usermail" size="40" value="<%=rs("usermail")%>">
</td>
</tr>

<tr bgcolor="#ECF5FF">
<td bgcolor=#F2F8FF height="2" align="right" width="46%"><b>个人主页：</b></td>
<td height="2" align="left" width="54%" bgcolor="#F2F8FF"> &nbsp;
<input type="text" name="userhome" size="40" value="<%=rs("userhome")%>">
</td>
</tr>
</table>
<center><br>
<input type="submit" name="Submit" value=" 确 定 ">
</form>
<%
end sub



sub contactok
username=Trim(Request("username"))
usermail=server.htmlencode(Request("usermail"))
userhome=server.htmlencode(Request("userhome"))
userqq=server.htmlencode(Request("userqq"))
if instr(usermail,"@")=0 then
error"<li>您的电子邮件地址填写错误"
end if
if instr(username," ")>0 then:error("<li>非法操作"):end if
sql="select * from user where username='"&username&"'"
rs.Open sql,Conn,1,3
rs("usermail")=usermail
rs("userhome")=userhome
rs("userqq")=userqq
rs("landtime")=now
rs.update
rs.close
succtitle="修改资料成功"
message=message&"<li><a href=usercp.asp>控制面板首页</a>"
succeed(""&message&"<meta http-equiv=refresh content=3;url=usercp.asp>")
end sub



sub pass
sql="select * from user where username='"&Request.Cookies("username")&"'"
rs.Open sql,Conn
%>
<table width=730 cellspacing=0 cellpadding=4 border=1 borderColor=a4b6d7 align=center>
<form method="POST" name="form"action="editprofile.asp">
<input type=hidden name="username" value="<%=rs("username")%>">
<input type=hidden name="menu" value="passok">
<tr>
<td height="20" align="center" colspan="2" valign="bottom" background=images/title_sub.gif>
<font color="#000000"><b>用户密码修改</b></font></td>
</tr>
<tr>
<td height="2" align="right" width="46%" bgcolor="#F2F8FF"><b>
原密码：</b></td>
<td height="2" align="left" width="54%" bgcolor="#F2F8FF"> &nbsp;
<input type="password" name="olduserpass" size="40" maxlength="12">
</td>
</tr>
<tr>
<td bgcolor=#ECF5FF height="2" align="right" width="46%"><b>
新密码：</b><br>如不更改密码此处请留空</td>
<td bgcolor=#ECF5FF height="2" align="left" width="54%">
&nbsp;
<input type="password" name="userpass" size="40" maxlength="16">
</td>
</tr>
<tr>
<td bgcolor=#F2F8FF height="2" align="right" width="46%"><b>确认新密码：</b><br>请与您的新密码保持一致</td>
<td bgcolor=#F2F8FF height="2" align="left" valign="middle" width="54%">
&nbsp;
<input type="password" name="userpass2" size="40" value=""></td>
</tr>
<tr bgcolor="#ECF5FF">
<td bgcolor=#ECF5FF height="1" align="right" width="46%"><b>密码提示问题：</b><br>提示性问题，如：女朋友的生日?</td>
<td height="1" align="left" width="54%"> &nbsp;
<input type="text" name="question" size="40" value="<%=rs("question")%>">
</td>
</tr>
<tr bgcolor="#ECF5FF">
<td bgcolor=#F2F8FF height="1" align="right" width="46%"><b>密码提示答案：</b><br>问题的回答，如：1981/10/31</td>
<td height="1" align="left" width="54%" bgcolor="#F2F8FF"> &nbsp;
<input type="text" name="answer" size="40" value="<%=rs("answer")%>"></td>
</tr>
</table>
<center><br>
<input type="submit" name="Submit" value=" 确 定 ">
</form>
<%
end sub

sub passok
username=Trim(Request("username"))
userpass=Trim(Request("userpass"))
olduserpass=Trim(Request("olduserpass"))
userpass2=Trim(Request("userpass2"))
question=server.htmlencode(Request("question"))
answer=server.htmlencode(Request("answer"))

if instr(username," ")>0 then:error("<li>非法操作"):end if
sql="select * from user where username='"&username&"'"
rs.Open sql,Conn,1,3


if olduserpass<>rs("userpass") then
message=message&"<li>您的原密码错误"
end if

if userpass<>userpass2 then
message=message&"<li>您的新密码和确认新密码不同"
end if

if message<>"" then
error(""&message&"")
end if


if userpass="" then
userpass=olduserpass
end if

rs("userpass")=userpass
rs("question")=question
rs("answer")=answer

rs("landtime")=now
rs.update
rs.close
succtitle="修改资料成功"
message=message&"<li><a href=usercp.asp>控制面板首页</a>"
succeed(""&message&"<meta http-equiv=refresh content=3;url=usercp.asp>")
end sub


htmlend
%>