用户名

性别

发帖数

积分

登陆时间

等级

<% dim wzcount,wzrep,wzpagecount,wzpage,pagestr,urlstr,renum,hot,width,face,n,nn action=request.querystring("action") urlstr="action="&action wzrep=25 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"" for i = 0 to wzrep-1 if rs.eof then exit for sex1="帅哥" if split(rs("userinfo"),"|")(4)<>"1" then sex1="美女" response.write"

"&checktitle(rs("name"))&"

"&sex1&"

"&rs("alltopicnum")&"

"&rs("mark")&"

"&formatdatetime(rs("lasttime"),1)&"

『 "&gradename(rs("grade"))&" 』

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