<% '********************************************************* '********************************************************* dim rs,mainsql,usertype,strurl,rsmain,province,city,bstr1,isbest,user_icon1,show_list,ustr,rs111 strurl="listkh.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="listkh.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="listkh.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&"當前位置：首頁→團隊拓展訓練部分客戶案例

" show_list=show_list&"申明：客戶案例中的培訓內容及客戶內部培訓平臺進行了加密保護，管理密碼由天勤（大自然拓展）網絡部提供并管理.索要管理密碼,請發(fā)郵件致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="listkh.asp?"&replace(replace(bstr,"&isbest=1",""),"isbest=1","")&"&isbest=1" else bstr="listkh.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 %>