<%
if Request("menu")="upface" then
if CookieUserName=empty then Alert("您还未登录论坛")
UpFace
elseif Request("menu")="PostUpFace" then
if CookieUserName=empty then Alert("您还未登录论坛")
UserID=Conn.Execute("Select UserID From [BBSXP_Users] where UserID="&CookieUserID&"")(0)
UpFolder="UpFile/UpFace/"&CookieUserID&"" '上传路径及文件名
UpClass="Face"
UpMaxFileSize=SiteConfig("MaxFaceSize")*1024 '最大上传文件大小
%>
<%
else
if CookieUserName=empty then error("您还未登录论坛")
HtmlTop
%>
<%
select case Request("menu")
case "editProfileok"
editProfileok
case "passok"
passok
end select
%>
<%
select case Request("menu")
case "pass"
pass
case else
default
end select
Sub default
sql="select * from [BBSXP_Users] where UserID="&CookieUserID&""
Set Rs=Conn.Execute(sql)
if Rs.eof then error("该用户资料不存在")
XMLDOM.loadxml(""&Rs("UserInfo")&"")
QQ=SelectSingleNode("QQ")
ICQ=SelectSingleNode("ICQ")
AIM=SelectSingleNode("AIM")
MSN=SelectSingleNode("MSN")
Yahoo=SelectSingleNode("Yahoo")
Skype=SelectSingleNode("Skype")
UserSign=replace(""&Rs("UserSign")&""," ",vbCrlf)
UserBio=replace(""&Rs("UserBio")&""," ",vbCrlf)
birthday=Rs("birthday")
%>
<%
End Sub
Sub editProfileok
UserSign=HTMLEncode(Request.Form("UserSign"))
UserFaceUrl=HTMLEncode(Request("UserFaceUrl"))
birthday=Request("birthday")
if birthday<>"" then
if Not IsDate(birthday) then Message=Message&"
出生日期输入格式错误"
end if
if instr(UserFaceUrl,";")>0 or instr(UserFaceUrl,"%")>0 or instr(UserFaceUrl,"javascript:")>0 then Message=Message&"
头像URL中不能含有特殊符号"
if Len(UserSign)>SiteConfig("SignatureMaxLength") then Message=Message&"
签名档不能大于 "&SiteConfig("SignatureMaxLength")&" 个字节"
if Message<>"" then error(""&Message&"")
sql="select * from [BBSXP_Users] where UserID="&CookieUserID&""
Rs.Open sql,Conn,1,3
XMLDOM.loadxml(""&Rs("UserInfo")&"")
Set objRoot = XMLDOM.documentElement
objRoot.SelectSingleNode("QQ").text = ""&server.HTMLEncode(Request("QQ"))&""
objRoot.SelectSingleNode("ICQ").text = ""&server.HTMLEncode(Request("ICQ"))&""
objRoot.SelectSingleNode("AIM").text = ""&server.HTMLEncode(Request("AIM"))&""
objRoot.SelectSingleNode("MSN").text = ""&server.HTMLEncode(Request("MSN"))&""
objRoot.SelectSingleNode("Yahoo").text = ""&server.HTMLEncode(Request("Yahoo"))&""
objRoot.SelectSingleNode("Skype").text = ""&server.HTMLEncode(Request("Skype"))&""
Set objNodes=XMLDOM.documentElement.ChildNodes
for each element in objNodes
UserInfoList=UserInfoList&"<"&element.nodename&">"&element.text&""&vbCrlf
next
if IsDate(birthday) then
Rs("birthday")=birthday
else
Rs("birthday")=null
end if
Rs("UserFaceUrl")=UserFaceUrl
Rs("UserSex")=RequestInt("UserSex")
Rs("UserBio")=HTMLEncode(Request("UserBio"))
Rs("RealName")=HTMLEncode(Request("RealName"))
Rs("Occupation")=HTMLEncode(Request("Occupation"))
Rs("Address")=HTMLEncode(Request("Address"))
Rs("Interests")=HTMLEncode(Request("Interests"))
Rs("WebAddress")=HTMLEncode(Request("WebAddress"))
Rs("WebLog")=HTMLEncode(Request("WebLog"))
Rs("WebGallery")=HTMLEncode(Request("WebGallery"))
Rs("UserSign")=UserSign
Rs("UserInfo")=UserInfoList
Rs.update
Rs.close
Message=Message&"
"
succeed Message,"Profile.asp?UserName="&CookieUserName&""
End Sub
Sub pass
sql="select * from [BBSXP_Users] where UserID="&CookieUserID&""
Set Rs=Conn.Execute(sql)
%>
<%
End Sub
Sub passok
Userpass=Trim(Request("Userpass"))
OldUserPass=Trim(Request("OldUserPass"))
RetypePassword=Trim(Request("RetypePassword"))
UserEmail=HTMLEncode(Request("UserEmail"))
if instr(UserEmail,"@")=0 then error("您的电子邮箱地址填写错误")
sql="select * from [BBSXP_Users] where UserID="&CookieUserID&""
Rs.Open sql,Conn,1,3
if md5(OldUserPass)<>Rs("Userpass") then Message=Message&"
您的原密码错误"
if Userpass<>RetypePassword then Message=Message&"
您的新密码和确认新密码不同"
if Userpass<>empty then
if Len(Userpass)<6 then Message=Message&"
新密码必须至少包含 6 个字符"
Rs("Userpass")=md5(Userpass)
end if
if UserEmail<>Rs("UserEmail") then
If not Conn.Execute("Select UserID From [BBSXP_Users] where UserEmail='"&UserEmail&"'" ).eof Then Message=Message&"
"&UserEmail&" 已经被别人注册了"
end if
if Message<>"" then error(""&Message&"")
Rs("UserEmail")=UserEmail
Rs.update
Rs.close
Message=Message&"
"
succeed Message,"Profile.asp?UserName="&CookieUserName&""
End Sub
Set XMLDOM=Nothing
HtmlBottom
end if
Sub UpFace
Response.clear
%>
上传头像
<%
End Sub
%>