<% id=ad if not isnumeric(id) then Response.Write "" Response.End() end if set rs=server.createobject("adodb.recordset") if id="" then exec="select top "&config("downclass")&" * from download order by id desc" else exec="select top "&config("downclass")&" * from download where ssfl="&id&" order by id desc" end if rs.open exec,conn,1,1 if rs.eof then response.Write "" else rs.PageSize =""&config("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 end if i=i+1 rs.movenext loop %>

<%=InterceptString(rs("title"),20)%>

" tppabs="http://www.dmpmob.com/uploadfiles/other/200991662267273.pdf">