<% Dim Action Action=Lcase(Request.Querystring("Action")) If Len(Action)>15 Then MNBoard.GotoErr(1) MNBoard.CheckMake if Action<>"getpassword" and Action<>"forgetpassword" Then MNBoard.Position=MNBoard.Position&" → 用户控制面版 " If Not MNBoard.FoundUser Then MNBoard.GotoErr(4) End If Select Case Action Case"myinfo" MyInfo() Case"savemyinfo" SaveMyInfo Case"mypassword" MyPassword Case"savemypassword" SaveMyPassword Case"forgetpassword" forgetpassword Case"getpassword" GetPassword Case else MNBoard.GoToErr(1) End Select MNBoard.Footer() Set MNBoard =Nothing Sub MyManager() Response.Write MNBoard.ReadSkins("用户控制面版") End Sub Sub Myinfo() Dim Rs,S,temp,Temp1 MNBoard.Head "","","修改个人资料" MyManager() SET RS=MNBoard.Execute("Select Name,Sex,Birthday,Mail,Home,IsQQpic,QQ,Pic,Pich,Picw,IsSign,Sign,Honor,GradeID From[i_user]where ID="&MNBoard.MyID&" And Isdel=False") IF Rs.eof Then MNBoard.MakeCookiesEmpty():MNBoard.GotoErr(100) S="

" S=S&MNBoard.Row("用户名称：
此为论坛ID帐号，自己不能修改","
"&Rs("Name")&"","65%","45px") If Rs("Sex")=1 Then Temp=" checked" Else Temp="" If Rs("Sex")=0 Then Temp1=" checked" Else Temp1="" S=S&MNBoard.Row("您的性别：","

靓女","65%","") S=S&MNBoard.Row("Email地址：
请输入有效的邮件地址","","65%","44px") S=S&"

" S=S&MNBoard.Row("生日：","","65%","20px") S=S&MNBoard.Row("主页：
填写你的个人主页，让大家见识见识！","","65%","44px") If Rs("IsQQPic") Then Temp=" checked" Else Temp="" End If S=S&MNBoard.Row("QQ号码：
填写您的QQ地址，方便与他人的联系"," 启用QQ形象作为头像","65%","44px") S=S&"

" S=S&MNBoard.Row("选择论坛头像：
使用论坛自带的图像",HeadPicOpt() &"

","65%","50") If SESSION(CacheName& "MyGradeInfo")(14)="1" then Temp="
" Else Temp="" End if S=S&MNBoard.Row("自定义头像：
如果图像位置中有连接图片将以自定义的为主",Temp&" 完整Url地址
图像宽度：高度：(最大限度:120)","65%","") S=S&"

" If SESSION(CacheName& "MyGradeInfo")(8)="0" then Temp="您还没达到可以自定头衔称号的等级权限" Else Temp="" End If S=S&MNBoard.Row("自定义头衔称号：
最多8个汉字",Temp,"65%","40px") S=S&MNBoard.Row("个性签名：
文字将出现在您发表的文章的结尾处
体现您的个性(最多255个字符)","","65%","") S=S&"

" MNBoard.ShowTable"修改我的资料",S %> <% End Sub Function HeadPicOpt() Dim Temp,i for i=2 to Int(MNBoard.Info(53)) Temp=Temp&"" Next HeadPicOpt="" End Function Sub SaveMyInfo() With MNBoard .Head"","","修改个人资料" MyManager() Dim Temp,Content,Rs,Sql,Name,Mail,PicUrl,HeadPic,PicW,PicH,Home,Sign,QQ,IsQQpic,Sex,Birthday,Honor Name=.Fun.GetStr("name") Mail=.Fun.GetStr("mail") Honor=.Fun.GetStr("Honor") If Mail="" Then .GoToErr(42) Mail=server.HTMLEnCode(Mail) If Not .Fun.IsValidEmail(Mail) Then .GoToErr(42) '只允一个邮箱 If .Info(42)="1" Then If Not .Execute("SELECT ID FROM [i_user] where Mail='"&Mail&"' And ID<>"&.MyID).Eof Then .GoToErr(49) End If PicUrl=lcase(.Fun.HtmlCode(.Fun.GetStr("PicUrl"))) headpic=.Fun.HtmlCode(.Fun.GetStr("headpicoption")) If Not .Fun.isInteger(headpic) Or Not .Fun.IsUrl(PicUrl) Then .GoToErr(81) Home=.Fun.HtmlCode(.Fun.GetStr("Home")) Sex=.Fun.GetStr("Sex") Birthday=.Fun.GetStr("Birthday") QQ=.Fun.GetStr("QQ") IsQQpic=.Fun.GetStr("IsQQpic") If IsQQPic="" Then IsQQPic=0 If Instr(Home,"://")=0 Then Home=.Info(1) If IsQQpic<>"1" Then IsQQpic="0" Sign=Replace(Left(.Fun.Replacehtml(.Fun.GetStr("Sign")),255),"{帖子内容}","") PicH=.Fun.GetStr("pich") PicW=.Fun.Getstr("picw") If .Info(57)="1" And (Instr(PicUrl,"://")>0 Or Instr(Lcase(Picurl),"www")>0 Or Instr(Lcase(PicUrl),"..")>0) Then .GotoErr(45)'禁止外部图片 If PicUrl="" then PicUrl="Pic/headpic/"& HeadPic &".gif" PicW= .Info(54) PicH= .Info(55) End If If (QQ<>"" And not isnumeric(QQ)) Or (IsQQpic="1" and QQ="") then .GoToErr(46) If Len(Honor)>16 or Len(Mail)>50 or Len(HeadPic)>220 or Len(QQ)>20 or Len(Home)>250 Then .GoToErr(47) If Not isnumeric(PicW) or Not isnumeric(PicH) Then .GoToErr(48) If Int(PicW)>int(.Info(56)) or Int(PicH)>int(.Info(56)) then PicW=.Info(54) PicH=.Info(55) End If Birthday=Replace(Birthday,",","-") If Not isdate(Birthday) then Birthday="Birthday=Null" Else .Cache.clean("Birthday") Birthday="Birthday='"&Birthday&"'" End If .execute("update [i_User] set "&Birthday&",Sex="&Sex&",PicW="&PicW&",PicH="&PicH&",Mail='"&Mail&"',QQ='"&QQ&"',Honor='"&Honor&"',Pic='"&PicUrl&"',Home='"&Home&"',Sign='"&Sign&"',IsQQpic="&IsQQpic&" where ID="&MNBoard.MyID) Content="

资料修改成功！

返回我的用户控制面版

" .ShowTable"修改成功",Content Session(CacheName & "MyInfo") = Empty End with End Sub Sub MyPassword Dim S MNBoard.Head "","","修改密码" MyManager() S="" MNBoard.ShowTable "修改密码",S End Sub Sub SaveMyPassword Dim Password,NewPassword,RePassword,Caption,Content,Clue,Answer MNBoard.CheckMake'禁止外部提交 MNBoard.Head"","","修改密码" MyManager() Password=MNBoard.Fun.GetStr("Password") NewPassword=MNBoard.Fun.GetStr("NewPassword") RePassword=MNBoard.Fun.GetStr("RePassword") Clue=MNBoard.Fun.GetStr("clue") Answer=MNBoard.Fun.GetStr("answer") If Password="" or Repassword="" or NewPassword="" Then MNBoard.GoToErr(36) If Repassword<>NewPassword Then MNBoard.GoToErr(41) If Not MNBoard.Fun.CheckPassword(Password) Or Not MNBoard.Fun.CheckPassword(NewPassword) Then MNBoard.GoToErr(37) If MNBoard.Fun.StrLength(NewPassword)>14 Then MNBoard.GoToErr(38) If md5(Password)<>MNBoard.MyPassword Then MNBoard.GoToErr(56) IF instr("|12345|123456|1234567|12345678|123456789|1234567890|0123456789|111111|222222|333333|888888|aaaaaa|","|"& Password &"|")>0 or len(Password)<5 Then MNBoard.GoToErr(40) If Clue<>"" or Answer<>"" Then If Len(Clue)<3 or Len(Answer)<3 Then MNBoard.GoToErr(43) If not MNBoard.Fun.CheckIn(Clue) or not MNBoard.Fun.CheckIn(Answer) Then MNBoard.GoToErr(44) MNBoard.execute("update [i_user] set [Clue]='"&Clue&"',Answer='"&MD5(Answer)&"' where ID="&MNBoard.MyID) End IF NewPassword=Md5(Newpassword) MNBoard.execute("update [i_user] set [password]='"&Newpassword&"' where ID="&MNBoard.MyID) MNBoard.LetMemor "","MyPassword",NewPassword Session(CacheName & "MyInfo") = Empty Content="

密码修改成功!

返回用户控制面版

" MNBoard.ShowTable "修改成功",Content End Sub Sub ForgetPassword Dim UserName,S MNBoard.Head"","","找回密码" UserName=MNBoard.Fun.GetStr("UserName") If UserName="" Then S="" Else MNBoard.CheckMake'禁止外部提交 If MNBoard.SafeBuckler(UserName,MNBoard.MyIP,0) Then MNBoard.Alert"MNBoard安全盾已启动！\n\n对不起，你尝试找回密码错误超过3次，今天不能再找回密码了。\n你的信息已被系统记录！","Index.asp" S="" End If MNBoard.ShowTable"找回密码",S End Sub Sub GetPassword Dim UserName,Clue,Answer,NewPassword,Content MNBoard.Head"","","找回密码" UserName=MNBoard.Fun.GetStr("UserName") If MNBoard.SafeBuckler(UserName,MNBoard.MyIP,0) Then MNBoard.Alert"MNBoard安全盾已启动！\n\n对不起，你尝试找回密码错误超过3次，今天不能再找回密码了。\n你的信息已被系统记录！","Index.asp" Clue=MNBoard.Fun.GetStr("Clue") Answer=MNBoard.Fun.GetStr("Answer") If UserName="" or Clue="" or Answer="" Then MNBoard.GoToErr(36) If Not MNBoard.Fun.CheckName(UserName) Then MNBoard.GoToErr(37) If not MNBoard.Fun.CheckIn(Clue) or not MNBoard.Fun.CheckIn(Answer) Then MNBoard.GoToErr(44) IF MNBoard.execute("select name from [i_User] where name='"&UserName&"' And Answer='"&Md5(Answer)&"' And Clue='"&Clue&"'").eof Then MNBoard.SafeBuckler UserName,MNBoard.MyIP,1 MNBoard.GoToErr(57) Else Randomize NewPassword=int(900000*rnd)+100000 MNBoard.execute("update [i_user] set [password]='"&Md5(NewPassword)&"' where name='"&UserName&"'") MNBoard.execute("update [i_Admin] set [password]='"&Md5(NewPassword)&"' where name='"&UserName&"'") Content="

您成功的通过密码保护的检验！

用户名称："&UserName&" 获得新密码："&NewPassword&"

先记住新密码，请您马上登陆论坛，尽快修改密码！

" MNBoard.ShowTable "成功通过验证",Content End If End Sub %>