<% dim mainsql,strurl,rsmain,bstr1,isbest,show_list,classid,strPlayerUrl strurl="groups.asp" isbest=cint(request.QueryString("isbest")) classid=request.QueryString("classid") call sysshow() if isbest=1 then mainsql=mainsql&" and isbest=1" if strurl="groups.asp" then strurl=strurl&"?isbest=1" else strurl=strurl&"&isbest=1" end if bstr1="→推薦" &P_QQ_NAME end if If IsNumeric(classid) Then classid=CLNG(classid) If classid>0 Then mainsql= mainsql & " and Classid=" & classid & " " end if if strurl="groups.asp" then strurl=strurl&"?classid=" & classid end if End If strPlayerUrl= Replace(strurl,"photo.asp","photoplayer.asp") 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(38)) G_P_FileName=strurl if request("page")<>"" then G_P_This=cint(request("page")) else G_P_This=1 end if msql="select top "&clng(oblog.CacheConfig(39))&" * from oblog_team Where iState=3 "&mainsql&" order by createtime 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個" &P_QQ_NAME& "
" 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,"個" &P_QQ_NAME& "") else if (G_P_This-1)*G_P_PerMax首頁→" &P_QQ_NAME& "(共調用" & G_P_AllRecords & " 個" &P_QQ_NAME& ")" 'bstr=trim(Request.ServerVariables("query_string")) 'if bstr<>"" then bstr="photo.asp?"&replace(replace(bstr,"&isbest=1",""),"isbest=1","")&"&isbest=1" else bstr="photo.asp?isbest=1" show_list=show_list&bstr1&"" show_list=show_list&GetSysClasses&"

---

" show_list=show_list&""& vbcrlf do while not rsmain.eof show_list=show_list&""& vbcrlf for n=1 to 4 if rsmain.eof then show_list=show_list&""& vbcrlf else title="圖片說明:"&oblog.filt_html(rsmain(1)) show_list=show_list&""& vbcrlf i=i+1 if not rsmain.eof then rsmain.movenext end if next show_list=show_list&""& vbcrlf if i>=G_P_PerMax then exit do loop show_list=show_list&"

"&rsmain("t_name")&"

" end sub Function GetSysClasses() Dim rst,sReturn Set rst=conn.Execute("Select * From oblog_logclass Where idtype=2") If rst.Eof Then sReturn="" Else Do While Not rst.Eof sReturn= sReturn & "" & rst("classname") & "" & VBCRLF rst.Movenext Loop sReturn = "所有分類" & VBCRLF & sReturn sReturn="

選擇" &P_QQ_NAME& "分類：" & VBCRLF & sReturn & "

" End If rst.Close Set rst=Nothing GetSysClasses = sReturn End Function %>