<%
'乘风多用户计数器
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/cfcount.htm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，没有放在程序里，请自己上网站上查看
%>

<div class="f-l w-730">
<H2><span class=s-1>网店统计</span> 
<div class=bdr-right></div>
</H2>
<div class=bdr>

<table class="index_tb">
<tr class="tr_1"> 
<td colspan="3">网店类图片列表</td>
</tr>

<%
PageUrl = "?Action="&Action

'列出有效并为共享状态的图片
Sql="Select * From CFCount_Upfile Order By AddTime Desc"

Set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.open Sql,Conn,1,1

linenum=3
tdwidth=int(100/linenum)&"%"
jishu=1

If Not rs.eof then
 rs.pagesize=6
 totalrs=rs.RecordCount
 totalpage=rs.pageCount
 mypagesize=rs.pagesize
 Page=CLng(ChkStr(Request("Page"),2))
 If Page<=0 Then Page=1
 If Page>TotalPage Then Page=TotalPage
 rs.absolutepage=page
End If
While Not Rs.Eof And MyPageSize>0

if jishu mod linenum=1 or linenum=1 then
Response.write "<tr>"
end if%>
<td width="<%=tdwidth%>" valign="top" style="text-align:center">
<%
Response.write "<img src='Upload/"&Rs("FileName")&"'><br>"
 

Response.write "↑编号：" & Rs("ID")&"<br>"
%>

</td>
<%
if jishu mod linenum=0 then
Response.write "</tr>"

end if
jishu=jishu+1
mypagesize=mypagesize-1
Rs.movenext
wend '写tr和td,jishu mod 列数为1时开始tr,为0时结束tr
Rs.Close

jishu=jishu-1
if jishu mod linenum <> 0 then
for i= 1 to linenum-(jishu mod linenum)
	response.write "<td width='"&tdwidth&"'>&nbsp;</td>"
	if  i = linenum-(jishu mod linenum) then response.write "</tr>"
next
end if '判断最后一行tr是否正好闭合,否则增加td,里面填入空格
%>
        </table>
		

<%
Response.write GetPageList(TotalRs,TotalPage,Page,PageUrl,Px)
%>

<div class=clear></div>
</div>
<div class="bdr-bottom-730">
<div class=bdr-right2></div>
</div>
<div class="bk-10"></div>
</div>