usersave.asp

庐江二中

<%PageName="UserSave"%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="session.asp"-->
<!--#include file="INC/CHAR.INC"-->
<%
founderr=false
if isnull(session("XPPwd")) or session("XPPwd")="" or isnull(session("XPUser")) or session("XPUser")="" then
errmsg=errmsg+"<li>你尚未登陆。"
founderr=true
end if
if trim(request.form("password"))="" or Len(request.form("password"))>10 then
errmsg=errmsg+"<li>请输入您的密码(长度不能大于10)。"
founderr=true
else
password=trim(request.form("password"))
end if
if request.form("sex")<>0 and request.form("sex")<>1 then
errmsg=errmsg+"<li>请选择您的性别。"
founderr=true
else
sex=request.form("sex")
end if
if password<>request.form("password2") then
errmsg=errmsg+"<li>您输入的密码和确认密码不一致。"
founderr=true
end if
if IsValidEmail(trim(request.form("Email")))=false then
errmsg=errmsg+"<li>您的Email有错误。"
founderr=true
else
Email=trim(request.form("Email"))
end if



if founderr=true then
call error()
else
	
sql="select * FROM Users where username='"&session("XPUser")&"' and password='"&session("XPPwd")&"'"
rs.open sql,conn,1,3
if rs.eof then
errmsg="<br>"+"<li>对不起，你不是本站用户，请重新注册。"
founderr=true
else
rs("username")=session("XPUser")
rs("password")=password
rs("email")=email
if trim(request.form("MyIntro"))="" then
rs("sign")="无"
else		
rs("sign")=htmlencode2(trim(request.form("MyIntro")))
end if
if trim(request.form("oicq"))="" then
rs("oicq")=null
else
rs("oicq")=trim(request.form("oicq"))
end if
if request.form("UserWebName")="" then
rs("UserWebName")=null
else
rs("UserWebName")=request.form("UserWebName")
end if
if request.form("UserWebUrl")="" then
rs("UserWebUrl")=null
else
rs("UserWebUrl")=request.form("UserWebUrl")
end if
Rs("sex")=sex
rs.update
session("XPPwd")=password
end if
rs.close

if founderr=true then
call error()
else
%>
<!--#include file="top1.asp"-->
<table cellpadding=0 cellspacing=0 border=0 width=760 bgcolor=<%=MainBgColor%> align=center>
<tr>
<td align=center><br>
<table border=1 cellpadding=3 cellspacing=1 border=0 Class="TableLine" bordercolorlight="<%=MainBgColor%>" width=50% bgcolor=<%=MainCColor%>>
<TR align=middle>
<TD colSpan=2 height=24 bgcolor=<%=MainTColor%>><b>会员资料修改成功</b></TD>
</TR>
<TR>
<TD width=20% align=right>用 户 名</TD>
<TD><%=session("XPUser")%>　</TD>
</TR>
<TR>
<TD align=right>性 别</TD>
<TD><%if sex=1 then%>男<%else%>女<%end if%></TD>
</TR>
<TR>
<TD align=right>密 码</TD>
<TD><%=password%>　</TD>
</TR>
<TR>
<TD align=right>Email地址</TD>
<TD><%=email%>　</TD></TR>
<TR>
<TD align=right>OICQ号码</TD>
<TD><%if request("oicq")="" then%>无<%else%><%=request("oicq")%><%end if%> </TD>
</TR>
<TR>
<TD align=right>主页</TD>
<TD><%if request.form("UserWebUrl")="" or request.form("UserWebName")="" then%>未注册<%else%><a href="<%=request.form("UserWebUrl")%>" target=_blank><%=request("UserWebName")%><%end if%> </TD>
</TR>
<TR>
<TD valign=top align=right>签 名</TD>
<TD><%if trim(request.form("MyIntro"))="" then%>无<%else%><%=htmlencode2(trim(request.form("MyIntro")))%><%end if%></TD>
</TR>
<TR>
<TD align=center colSpan=2><input type=button name=back value="返 回" onclick="javascript:window.open('default.asp','_self','')"></TD>
</TR>
</TABLE>
<br></td>
</tr>
</table>
<!--#include file="copyright.asp"-->
<%
end if
set rs=nothing
end if
%>