<%
set frst = Server.CreateObject("adodb.recordset")
sql = "select * from info order by uploadtime desc"
frst.open sql,myconn,1,1
fcount = frst.recordcount
if fcount > 0 then
''显示参数
dim tbbgcolor
''分页参数
dim maxperpage,pages,page
maxperpage = 6
frst.pagesize = maxperpage
pages = frst.pagecount
''页面参数设置
page = Request.QueryString("page")
if not isnumeric(page) then page = 1 else page = cint(page)
if page < 1 then page = 1
if page > pages then page = pages
frst.absolutepage = page
''显示内容
'Set Isize=Server.CreateObject("WinImg.ImgSize")
for i = 1 to maxperpage
if frst.eof then exit for
if i mod 2 = 0 then tbbgcolor = "" else tbbgcolor = "#0066cc"
fid = frst("id").Value
ftitle = frst("fileTitle").Value
fdesc = frst("fileDesc").Value
ftype = frst("fileType").Value
fpath = frst("filePath").Value
fsize = frst("filesize").Value
fhits = frst("hits").Value
fuploadtime = frst("uploadTime").Value
'FileNameStr=Server.Mappath(fpath)
'Isize.GetImgSize Cstr(FileNameStr)
%>
<%
frst.movenext
next
else
%>
<%
end if
frst.close
set frst = nothing
myconn.close
set myconn = nothing
%>
<%
If Page > 1 Then Response.Write (" 首页上一页")
If page < pages Then Response.Write (" 下一页 末页")
%>
|
|