全部直播图片

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% session("Admin") = "" %> 全部直播图片

<% 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 = 5 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) %>


	<%=fdesc%>

<% 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 (" 下一页末页") %>

主页