<% stats="修改资料" if membername="" then errmsg=errmsg+"
"+"

您没有登录。" founderr=true else set rs=server.createobject("adodb.recordset") if request("action")="update" then if request("sex")="" then errmsg=errmsg+"
"+"

请选择您的性别。" founderr=true elseif request("sex")=0 or request("sex")=1 then sex=request("sex") else errmsg=errmsg+"
"+"

您输入的字符非法。" founderr=true end if if request("showRe")="" then errmsg=errmsg+"
"+"

请选择有回帖时是否提示您。" founderr=true elseif request("showRe")=0 or request("showRe")=1 then showRe=request("showRe") else errmsg=errmsg+"
"+"

您输入的字符非法。" founderr=true end if if request("psw")="" then errmsg=errmsg+"
"+"

请输入您的密码。" founderr=true else password=request("psw") end if if request("myface")<>"" then if request("width")="" or request("height")="" then errmsg=errmsg+"
"+"

请输入图片的宽度和高度。" founderr=true elseif not isInteger(request("width")) or not isInteger(request("height")) then errmsg=errmsg+"
"+"

您输入的字符不合法。" founderr=true elseif request("width")<20 or request("width")>80 then errmsg=errmsg+"
"+"

您输入的图片宽度不符合标准。" founderr=true elseif request("height")<20 or request("height")>80 then errmsg=errmsg+"
"+"

您输入的图片高度不符合标准。" founderr=true else face=request("myface") width=request("width") height=request("height") end if else if request("face")="" then errmsg=errmsg+"
"+"

请选择您的个性头像。" founderr=true elseif Instr(request("face"),picurl)>0 then face=request("face") width=32 height=32 else errmsg=errmsg+"
"+"

您选择了错误的头像。" founderr=true end if end if if IsValidEmail(request("Email"))=false then errmsg=errmsg+"
"+"

您的Email有错误。" founderr=true else Email=request("Email") end if if request("oicq")<>"" then if not isnumeric(request("oicq")) or len(request("oicq"))>10 then errmsg=errmsg+"
"+"

Oicq号码只能是4-10位数字，您可以选择不输入。" founderr=true end if end if else call nav() call headline(1) call userinfo() end if end if if founderr then call nav() call headline(1) call error() else if request("action")="update" then if founderr then call nav() call headline(1) call error() else call update() call nav() call headline(1) if founderr then call error() else call success() end if end if end if end if call endline() sub userinfo() sql="Select * from [User] where username='"&trim(membername)&"'" rs.open sql,conn,1,1 if rs.eof and rs.bof then errmsg=errmsg+"
"+"

该用户名不存在。" founderr=true else %>

align=center>

> > > <%if rs("userclass")>5 then%> > <%end if%> > > > > > > > > >修改资料 注 册 名* <%=htmlencode(RS("username"))%> 性 别 checked <%end if%>name="Sex">酷哥 checked <%end if%> value="0">靓妹 密    码* " size=15 maxlength=13> 头    衔* "" then%><%=htmlencode(RS("title"))%><%end if%>" size=15 maxlength=13> 头像*" alt=个人形象代表 width=<%=rs("width")%> height=<%=rs("height")%>> <%for i=1 to 60%> Image<%=i%> <%next%> 自定义头像 如果图像位置中有连接图片将以自定义的为主 <% if uploadFlag then %> <% end if %> 图像位置：>完整Url地址 宽    度：>20---80的整数 高    度：>20---80的整数 Email地址* "" then%><%=htmlencode(rs("useremail"))%><%end if%>"> 主 页 "" then%><%=htmlencode(rs("homepage"))%><%end if%>" size=30 maxlength=100> OICQ号码 "" then%><%=htmlencode(rs("oicq"))%><%end if%>" size=30 maxlength=20> 有回帖时是否提示您 > 提示我 > 不提示 签    名 文字将出现在您发表的文章的结尾处。 <%if rs("sign")<>"" then%> <% dim signtrue signtrue=replace(rs("sign"),"<BR>",chr(13)) signtrue=replace(signtrue," "," ") %><%=signtrue%><%end if%> 选择Cookie的保留时间 > 1天 > 1个月 > 1年 > 不保留 >

<% end if rs.close end sub sub update() sql="Select * from [User] where username='"&trim(membername)&"'" rs.open sql,conn,1,3 if rs.eof and rs.bof then errmsg=errmsg+"
"+"

该用户名不存在。" founderr=true else rs("useremail")=email rs("homepage")=request("url") rs("face")=face rs("width")=width rs("height")=height rs("sex")=sex rs("sign")=trim(request("Signature")) rs("oicq")=request("oicq") rs("showRe")=showRe rs("usergroup")=request.form("usergroup") rs("userpassword")=password if rs("userclass")>5 then rs("title")=htmlencode(request("title")) end if rs.Update rs.close usercookies=request("usercookies") select case usercookies case 0 Response.Cookies("aspsky")("usercookies") = usercookies case 1 Response.Cookies("aspsky").Expires=Date+1 Response.Cookies("aspsky")("usercookies") = usercookies case 2 Response.Cookies("aspsky").Expires=Date+31 Response.Cookies("aspsky")("usercookies") = usercookies case 3 Response.Cookies("aspsky").Expires=Date+365 Response.Cookies("aspsky")("usercookies") = usercookies end select Response.Cookies("aspsky")("password") = password Response.Cookies("aspsky").path=cookiepath end if end sub sub success() %> align=center>

>成功：修改资料 >恭喜您，您的资料修改成功 > << 返回上一页

<% end sub set rs=nothing stats="修改个人资料" %>