<% rs.PageSize =""&TD_downclass&"" iCount=rs.RecordCount iPageSize=rs.PageSize maxpage=rs.PageCount page=b if Not IsNumeric(page) or page="" then page=1 else page=cint(page) end if if page<1 then page=1 elseif page>maxpage then page=maxpage end if rs.AbsolutePage=Page if page=maxpage then x=iCount-(maxpage-1)*iPageSize else x=iPageSize end if end if %> <% dim i i=1 do while not rs.eof %> <% if i mod 1 =0 then response.Write "" end if i=i+1 rs.movenext loop %>

-1.html" title="<%=rs("title")%>"><%=InterceptString(rs("title"),20)%> 大小：<%=rs("daxiao")%> <%if rs("danwei")=1 then response.write("KB") else response.write("MB") end if %> <%=rs("data")%>     <%=i5808(rs("body"),200)%> 运行平台：<%=rs("yxpt")%> 推荐等级： <%if rs("tjdj")=1 then response.write("★☆☆☆☆") elseif rs("tjdj")=2 then response.write("★★☆☆☆") elseif rs("tjdj")=3 then response.write("★★★☆☆") elseif rs("tjdj")=4 then response.write("★★★★☆") else response.write("★★★★★") end if %> " target="_blank">

<%'以下显示分页 call PageControl(iCount,maxpage,page,"border=0 align=center","

") rs.close set rs=nothing %>