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

<%

IF not IsNumeric(Request("Page")) Or IsEmpty(Request("Page")) Then
 Page=1
Else
 Page=Int(Abs(Request("Page")))
End If

MyPageSize=10
MyPageSize2=10

If RsSet("StyleTotal") Mod MyPageSize=0 Then
 TotalPage=RsSet("StyleTotal")/MyPageSize
Else
 TotalPage=Int(RsSet("StyleTotal")/MyPageSize)+1
 If Page=TotalPage Then
 MyPageSize2=RsSet("StyleTotal") Mod MyPageSize
 End If
End If
I=1
%>


        <table class="index_tb">
          <tr class="tr_1">
<td>样式代码</td>
            <td >网站统计数字样式</td>
          </tr>

            <%While I<=MyPageSize2
			%>
            <tr> 
              <td style="padding:10px;text-align:center;"> 
                  <%K=(Page-1)*MyPageSize+I%>
                  编号:<%=K%>
              </td>
              <td>
<%For J=0 to 9%><img src="CounterPic/<%=K%>/<%=J%>.gif"><%Next%></td>
            </tr>
            <%
I=I+1
Wend%>
</table>

<table class="tb_3">
                <tr> 
                  <td><a href="?Page=1">第一页</a> 
                      <%
if page>1 then%>
                      <a href='?Page=<%=page-1%>'>上一页</a> 
                      <%
end if
%>
                      <%
if page<totalpage   then%>
                      <a href='?Page=<%=page+1%>'>下一页</a> 
                      <%
end if
%>
                      <a href="?Page=<%=totalpage%>">最后一页</a> 
                      页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页
                            
<%
Response.write "&nbsp;&nbsp;转到第<select id='page' onChange=""window.location=document.getElementById('page').options[document.getElementById('page').selectedIndex].value"">"
For I=1 To TotalPage
    Response.Write "<option value=?Page="&i     
 If Page=I Then Response.Write " selected"
 Response.Write ">"& I &"</option>"
Next
Response.write "</select>页"
%></td>
              </tr>
                    </table>