<% '********************************************************* '********************************************************* dim rs,mainsql,usertype,strurl,rsmain,province,city,bstr1,isbest,user_icon1,show_list,ustr,rs111 strurl="listkhal.asp" usertype=9 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="listkhal.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="listkhal.asp" then strurl=strurl&"?isbest=1" else strurl=strurl&"&isbest=1" end if bstr1="→推荐" end if call sub_showuserlist(mainsql,strurl) G_P_Show=replace(G_P_Show,"$show_list$",show_list) response.Write G_P_Show&oblog.site_bottom sub sub_showuserlist(sql,strurl) dim topn,msql G_P_PerMax=Int(oblog.CacheConfig(36)) G_P_FileName=strurl if request("page")<>"" then G_P_This=cint(request("page")) else G_P_This=1 end if msql="select top 199 username,blogname,sex,useremail,qq,msn,log_count,homepage,adddate,userid,province,city,user_icon1,siteinfo,scores,user_group,user_isbest from [oblog_user] where lockuser=0 "&sql&" order by userid desc" if not IsObject(conn) then link_database Set rsmain=Server.CreateObject("Adodb.RecordSet") 'response.Write(msql) rsmain.Open msql,Conn,1,1 if rsmain.eof and rsmain.bof then show_list=show_list & "共调用0个
" else G_P_AllRecords=rsmain.recordcount 'show_list=show_list & "共调用" & G_P_AllRecords & " 个
" if G_P_This<1 then G_P_This=1 end if if (G_P_This-1)*G_P_PerMax>G_P_AllRecords then if (G_P_AllRecords mod G_P_PerMax)=0 then G_P_This= G_P_AllRecords \ G_P_PerMax else G_P_This= G_P_AllRecords \ G_P_PerMax + 1 end if end if if G_P_This=1 then getlist() show_list=show_list&oblog.showpage(false,true,"个") else if (G_P_This-1)*G_P_PerMax" if not rstmp.eof then show_list=show_list&"当前位置:首页→2008年度团队拓展训练部分客户案例

" show_list=show_list&"申明:客户案例中的培训内容及客户内部培训平台进行了加密保护,管理密码由天勤(大自然拓展)网络部提供并管理.索要管理密码,请发邮件致tqnet8@gmail.com并注名:1.参训单位; 2.姓名; 3.队训;4.培训老师;" end if if usertype=0 then show_list=show_list&"当前位置:首页→(共调用" & G_P_AllRecords & "个)" end if bstr=trim(Request.ServerVariables("query_string")) if bstr<>"" then bstr="listkhal.asp?"&replace(replace(bstr,"&isbest=1",""),"isbest=1","")&"&isbest=1" else bstr="listkhal.asp?isbest=1" show_list=show_list&bstr1&"
" set rstmp=nothing show_list=show_list&""& vbcrlf do while not rsmain.eof show_list=show_list&""& vbcrlf for n=1 to 2 if rsmain.eof then show_list=show_list&""& vbcrlf else show_list=show_list&""& vbcrlf show_list=show_list&""& vbcrlf if i>=G_P_PerMax then exit do loop show_list=show_list&"
"&oblog.filt_html(rsmain(1))&"
"&Left(rsmain(13),55)&"...
"& vbcrlf i=i+1 if not rsmain.eof then rsmain.movenext end if next show_list=show_list&"
" end sub %>