<% Response.Expires=0 dim username cname=membername username=trim(request("name")) founderr=false strIcons = 1 strflash= 1 strIMGInPosts = 1 if username="" then ErrMsg=Errmsg+"
"+"请输入姓名" founderr=true else %> <%=ForumName%>--<%=htmlencode(cname)%>查询个人资料 <% set rs=server.createobject("adodb.recordset") sql="select * from [User] where username='"&UserName&"'" rs.open sql,conn,1,1 if err.number<>0 then ErrMsg=Errmsg+"
"+"
  • 数据库操作失败:"&err.description founderr=true end if if rs.eof and rs.bof then ErrMsg=Errmsg+"
    "+"
  • 您查询的名字不存在" founderr=true else %>
    <% if TitleFlag and rs("title")<>"" then %> <% end if %> <% if GroupFlag then %> <% end if %>
    <%=htmlencode(cname)%>查询个人资料
    <%=htmlencode(username)%>的资料(登陆社区<%=rs("logins")%>次)
    头 衔: <%= rs("title") %>
    门 派: <%= rs("usergroup") %>
    财 产: <%= rs("userWealth") %>
    经验值: <%= rs("userEP") %>
    魅力值: <%= rs("userCP") %>
    性 别: <%if rs("sex")=0 then response.write("靓妹") else response.write("酷哥") end if %>
    发表文章数: <%=rs("article")%>
    E_Mail: <%if trim(rs("useremail"))<>"" then%> "><%=htmlencode(rs("useremail"))%> <%end if%>
    OICQ: <%if rs("oicq")<>"" then%> <%=htmlencode(rs("oicq"))%> <%end if%>
    主 页: <%if trim(rs("homepage"))<>"" then%> " target="_blank"><%=htmlencode(rs("homepage"))%> <%end if%>
    签 名: <%if rs("sign")<>"" then%> <%=ubbcode(rs("sign"))%> <%end if%>
    社区等级: <%=grade(rs("userclass"))%>
    给他留言
    <%end if%> <%end if if founderr=true then call error() end if rs.close set rs=nothing %>