<% dim mainsql,usertype,strurl,rsmain,province,city,bstr1,isbest,show_list,ustr,allnum strurl="listblogger.asp" usertype=cint(request.QueryString("usertype")) isbest=cint(request.QueryString("isbest")) province=oblog.filt_badstr(request("province")) city=oblog.filt_badstr(request("city")) call sysshow() if usertype>0 then set rsmain=oblog.execute("select id from oblog_userclass where parentpath like '"&usertype&",%' OR parentpath like '%,"&usertype&"' OR parentpath like '%,"&usertype&",%'") while not rsmain.eof ustr=ustr&","&rsmain(0) rsmain.movenext wend ustr=usertype&ustr mainsql=" and oblog_user.user_classid in ("&ustr&")" strurl="listblogger.asp?usertype="&usertype 'mainsql="and user_classid="&usertype else mainsql="" end if if province<>"" then strurl=strurl&"?province="&province mainsql=mainsql&" and province='"&province&"'" end if if city<>"" then strurl=strurl&"&city="&city mainsql=mainsql&" and city='"&city&"'" end if if isbest=1 then mainsql=mainsql&" and user_isbest=1" if strurl="listblogger.asp" then strurl=strurl&"?isbest=1" else strurl=strurl&"&isbest=1" end if bstr1="→推荐博客" end if call sub_showuserlist(mainsql,strurl) show=replace(show,"$show_list$",show_list) response.Write show&oblog.site_bottom sub sub_showuserlist(sql,strurl) dim topn,msql MaxPerPage=oblog.setup(45,0) strFileName=strurl if request("page")<>"" then currentPage=cint(request("page")) else currentPage=1 end if if not IsObject(conn) then link_database Set rsmain=Server.CreateObject("Adodb.RecordSet") msql="select count(userid) from [oblog_user] where lockuser=0 "&sql & " " rsmain.Open msql,Conn,1,1 allnum=rsmain(0) rsmain.close msql="select top 500 username,blogname,sex,useremail,qq,msn,log_count,homepage,adddate,userid,province,city from [oblog_user] where lockuser=0 "&sql&" order by userid desc" 'response.Write(msql) rsmain.Open msql,Conn,1,1 if rsmain.eof and rsmain.bof then show_list=show_list & "共调用0位博客
" else totalPut=rsmain.recordcount 'show_list=show_list & "共调用" & totalPut & " 位博客
" if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then getlist() show_list=show_list&oblog.showpage(strFileName,totalput,MaxPerPage,false,true,"位博客") else if (currentPage-1)*MaxPerPage" if not rstmp.eof then show_list=show_list&"当前位置:首页→博客类别("&rstmp(0)&")" end if if usertype=0 then show_list=show_list&"当前位置:首页→所有博客(共有"&allnum&"位博客,本次调用" & totalPut & "位博客)" end if bstr=trim(Request.ServerVariables("query_string")) if bstr<>"" then bstr="listblogger.asp?"&replace(replace(bstr,"&isbest=1",""),"isbest=1","")&"&isbest=1" else bstr="listblogger.asp?isbest=1" show_list=show_list&bstr1&"查看推荐博客
" set rstmp=nothing show_list=show_list&""& vbcrlf show_list=show_list&""& vbcrlf show_list=show_list&""& vbcrlf show_list=show_list&""& vbcrlf show_list=show_list&""& vbcrlf show_list=show_list&""& vbcrlf do while not rsmain.eof title="======== 用 户 信 息 ========" & vbcrlf & "性别:" if rsmain(2)=1 then title=title& "男" else title=title& "女" end if title=title&vbcrlf & "QQ:" if rsmain(4)<>"" then title=title& rsmain(4) else title=title& "未填" end if title=title& vbcrlf & "MSN:" if rsmain(5)<>"" then title=title& rsmain(5) else title=title& "未填" end if 'title=title& vbcrlf & "邮箱:" 'if rsmain(3)<>"" then ' title=title& rsmain(3) 'else ' title=title& "未填" 'end if title=title& vbcrlf & "主页:" if rsmain(7)<>"" then title=title& rsmain(7) else title=title& "未填" end if title=title& vbcrlf & "注册:" & rsmain(8) show_list=show_list&""& vbcrlf show_list=show_list&""& vbcrlf show_list=show_list&""& vbcrlf show_list=show_list&""& vbcrlf show_list=show_list&""& vbcrlf rsmain.movenext i=i+1 if i>=MaxPerPage then exit do loop show_list=show_list&"
用户id blog名 来自 日志
"&oblog.filt_html(rsmain(0))&""&oblog.filt_html(rsmain(1))&""&rsmain(10)&rsmain(11)&""&rsmain(6)&"
" end sub %>