<% dim userid,seeinfo,userinfo,goodcount,ad_info,topicuserid,newbbs,topic id=0 userid=checknum(request.querystring("userid")) if userid="" then userid=lguserid seeinfo=true if isnull(lguserid) or lguserid="" then seeinfo=false set rs=conn.execute("select top 1 * from [user] where userid="&userid&" and not del") if rs.eof then seeinfo=false if seeinfo=false then tl=" 操 作 失 败" mes="对不起,你不能查看该用户的资料。可能存在以下问题:
·你还没有登陆
·你要查看的用户不存在。
·你要查看的用户已经被删除。" call sendinfo(tl,mes) end if if seeinfo=true then userinfo=rs("userinfo") userinfo=split(userinfo,"|") %>
用户资料
昵称: <%=checktitle(rs("name"))%>
性别: <%if userinfo(4)=1 then response.write"帅哥" else response.write"靓女" end if %>
生日: <%=userinfo(2)%>
E-mail: ><%=checktitle(userinfo(0))%>
主页: <%if userinfo(1)<>"" then%><%=checktitle(userinfo(1))%><%end if%>
QQ 号码: <%=userinfo(3)%>

论坛信息
头衔: <%=userinfo(10)%>
论坛积分: <%=rs("mark")%>
论坛等级: <%gradename(rs("grade"))%> .gif border=0>
帖子数: <%=rs("alltopicnum")%>
精华帖数: <%goodcount=conn.execute("select count(id) from Topic where type=1 and userid="&userid&"")(0) if goodcount=0 then response.write goodcount else response.write goodcount&" [ 查看 ]" end if %>
注册时间: <%=userinfo(9)%>
最后登陆: <%=rs("lasttime")%>
论坛职务: <%if rs("grade")>=10 then gradename(rs("grade")) else response.write"论坛用户" end if %>
论坛考勤: <% if DateDiff("d",rs("lasttime"),now+timeset/24) =< 2 then ad_info="比较勤快,加油哦!" elseif DateDiff("d",rs("lasttime"),now+timeset/24) =< 7 then ad_info="7天之内有登录" elseif DateDiff("d",rs("lasttime"),now+timeset/24)=< 15 then ad_info="15天内有登录" elseif DateDiff("d",rs("lasttime"),now+timeset/24) =< 30 then ad_info="30天未登录" else ad_info="连续超过一个月未登陆!" end if response.write ""&ad_info&""%>

最近发帖:<%set newbbs=conn.execute("select top 8 id,topicinfo,bd,totable from topic where userid="&userid&" order by edittime desc")%>
<%do while not newbbs.eof topic=newbbs("topicinfo") topic=split(topic,"|") response.write"" %> <% newbbs.movenext loop set newbbs=nothing%>
  "&checktitle(lefttrue(topic(1),25))&"
订阅<%=checktitle(rs("name"))%>的帖子
height=<%=checktitle(userinfo(7))%> border=0>
> 给 <%=checktitle(rs("name"))%> 留言
<%=ubb(userinfo(8))%>
<% '_____________________________________________________________________________________________________________________________________________ dim wzcount,wzrep,wzpagecount,wzpage,pagestr,urlstr,sql,content urlstr="userid="&userid wzrep=10 sql="select * from bbs"&totable&" where userid="&userid&" and bid=0 and type<>3 order by edittime desc" set rs = server.createobject("adodb.recordset") rs.Open sql,conn,1 if rs.eof or rs.bof then response.write"
暂无记录
" else wzcount=rs.recordcount wzpagecount = abs(int(-abs(wzcount/wzrep))) wzpage = clng(request.querystring("page")) if len(wzpage) = 0 or wzpage = 0 then wzpage = 1 rs.absoluteposition=rs.absoluteposition+((abs(wzpage)-1)*wzrep) pagestr="每页"&wzrep&"条 共"&wzpagecount&"页 ["&pagination(wzpagecount,urlstr)&"] " response.write"
"&pagestr&"
" for i = 0 to wzrep-1 if rs.eof then exit for content=rs("content") content=split(content,"|") response.write"" response.write"
"&ubb(content(4))&"
" response.write"
发表时间:"&checktitle(content(5))&"
" rs.movenext next end if rs.Close set rs=nothing response.write"
"&pagestr&"
" %>
<% end if set rs=nothing call down%>