用户资料

昵称：	<%=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="７天之内有登录" elseif DateDiff("d",rs("lasttime"),now+timeset/24)=< 15 then ad_info="１５天内有登录" elseif DateDiff("d",rs("lasttime"),now+timeset/24) =< 30 then ad_info="３０天未登录" 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"

"&ubb(content(1))&"

" response.write"

"&ubb(content(4))&"

" response.write"

发表时间："&checktitle(content(5))&"

" rs.movenext next end if rs.Close set rs=nothing response.write"

"&pagestr&"

" %>