<% Const MaxPerPage=20
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
set rs1=Server.CreateObject("Adodb.Recordset")
sql = "select * from xxwj order by fwrq desc"
rs1.open sql, conn, 1,1
'if rs1.bof and rs1.eof then
'response.write "没有文件"
'else
totalPut=rs1.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"xxwjlist.asp"
else
if (currentPage-1)*MaxPerPage
关闭本窗口
管理类文件归档整理规程
