<% dim n,m,h,s dim y,z,show stats="论坛头像列表" h=10 '每行显示个数 s=50 '每页显示个数 M=Forum_userfaceNum '头象个数 call nav() call head_var(2,0,"","") call main() call footer() %> <%sub main()%>

<% if m>s then %>

<% for Y=1 to (m+s-1)\s %> [> 头像列表<%=Y%> ] <% next end if%>

<% dim p i=0 p= trim(request("show")) if p="" or not isInteger(p) then p=1 end if z=s*p if z/m>1 then z=m else z=s*p end if for n=s*p+1-s to z i=i+1 %> <% if i=h then response.write "" i=0 end if next %>

>
<%=Forum_userface(n-1)%>

<%end sub%>