<% 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 %> <% 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 %>