修改inc/syscode.asp的 Function GetTeams函数 
替换成： 
Function GetTeams(x,n,l,y,w,h) 
Dim rs,Sql,sRet,sIco 

Sql="Select top " & n & " teamid,t_name,t_ico,icount0,(icount1+icount2) From oblog_team Where istate=3 and isdel=0 " 
Select Case x 
Case 1 
Sql= Sql & " Order By teamid Desc" 
Case 2 
Sql= Sql & " Order By (icount1+icount2) Desc" 
Case 3 
Sql= Sql & " Order By icount0 Desc" 
Case 4 
Sql= Sql & " and isbest=1" 
End Select 
Set rs=oblog.Execute(Sql) 
sRet="<div>" 
sRet=sRet & "<table boarder=0><tr>" 
Do While Not rs.Eof 

If y=1 Then 
If w="" Then w=50:h=50 
sIco=LCase(Ob_IIF(rs(2),"images/ico_default.gif")) 
If Left(sico,7)<>"http://" Then sico=blogdir & sico 
sRet=sRet & "<td>" 
sRet=sRet & "<a href=""group.asp?gid=" & rs(0) & """ target=""_blank"">" 
sRet=sRet & "<img src=""" & sico & """ border="""& 0 &""" width=""" & w &""" height=""" & h &""" alt="""& "博客圈子:"& Left(oblog.filt_html((rs(1))),l) & """/>" 
sRet=sRet & "</a><br>" 
sRet=sRet & "<a href=""group.asp?gid=" & rs(0) & """ target=""_blank"">" & Left(oblog.filt_html((rs(1))),l) & "</a>" 
sRet=sRet & "</td>" 
sRet=sRet & "<td width=8>" 
sRet=sRet & "</td>" 
else 
sRet=sRet & "<a href=""group.asp?gid=" & rs(0) & """ target=""_blank"">" & Left(oblog.filt_html((rs(1))),l) & "</a>" 
End if 
sRet=sRet & Vbcrlf 
rs.movenext 
Loop 
Set rs=Nothing 
sRet=sRet &"</tr>"&"</table>"& "</div>" 
GetTeams=sRet 
End Function