<% cp.title="用户信息" dim tableBBSTopic call doWebHead() call doSkinParse("user","") call doWebEnd() sub doPageLoad() dim tmpUserid,tmpUsername tmpUserid=ops.request.getQueryID("userid") tmpUsername=ops.request.getQuery("username") if len(tmpUsername)>0 then if not opsCheck.isName(tmpUsername) then go "./" exit sub end if end if if len(tmpUsername)<1 and int(tmpUserid)<1 then go "./" exit sub end if set treeDat=cp.getModeInfoTree(tmpUserid,tmpUsername) 'debug treeDat.getCount() if treeDat.getCount()<1 then go "./" treeDat.doFilter("u_") end sub sub doPageParse() dim tmpSQL tmpSQL="select top 10 t_id,t_topic,t_tim from db_bbs_topic where userid="&dat("userid")&" and f_id<>999999999 order by t_id desc" set tableBBSTopic=ops.db.getQueryTable(tmpSQL) end sub %>