%
HtmlTop
if SiteConfig("RequireAuthenticationForProfileViewing")=1 and CookieUserName=empty then error("您必须登录后才能浏览个人资料")
UserName=HTMLEncode(Request("UserName"))
sql="select * from [BBSXP_Users] where UserName='"&UserName&"'"
Set Rs=Conn.Execute(sql)
if Rs.eof then error("用户“"&UserName&"”的资料不存在")
ShowRank(Rs("experience"))
select case Rs("UserSex")
case 0
UserSex="未设置"
case 1
UserSex="男"
case 2
UserSex="女"
end select
select case Rs("UserAccountStatus")
case "0"
UserAccountStatus="正等待审核"
case "1"
UserAccountStatus="已通过审核"
case "2"
UserAccountStatus="已禁用"
case "3"
UserAccountStatus="未通过审核"
end select
Set XMLDOM=Nothing
%>
查看<%=Rs("UserName")%>的资料 - <%=SiteConfig("SiteName")%> - Powered By BBSXP