-
<%
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
%>
| 大小：<%=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 %> | <%if rs("qx")="1" then%><%if session("username")<>"" then%>" target="_blank"><%else%> <%end if%>
<%else%>" target="_blank"><%end if%>  |
<%'以下显示分页
call PageControl(iCount,maxpage,page,"border=0 align=center","
") rs.close set rs=nothing %>