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

<script>
$(function(){	
	$("#submit1").click(function(){
		if($("input[name='style']:checked").length==0){
		  alert('请选择一种样式', '', function () {$("input[name='style']").focus();});
		  return false;
		}
	});	
});
</script>

<%
 If Session("CFCountUser_View")<>"" Then'为独立查看者时
  Call AlertBack("独立查看者无法对此操作",1)
 End If
%>
<%
PageUrl = "?Action="&Action

Page=CLng(ChkStr(Request("Page"),2)):If Page<=0 Then Page=1


TotalRs=RsSet("StyleTotal")

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

If Page>TotalPage Then Page=TotalPage

I=1
%>
<%
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFCount_User Where UserName='"&UserName&"'"
Rs.Open Sql,Conn,1,1%>


<table class="tb_1">
<tr class="tr_1">
<td> 样式代码</td>
<td>选择你喜欢的计数器样式</td>
</tr>
<form name="form4" method="post" action="?Action=stylemodifysave">
<%While I<=MyPageSize2%>
<tr> 
<td class="td_2"> 
<%K=(Page-1)*MyPageSize+I%>
<input name="style" type="radio" value="<%=k%>"<%If Rs("Style")=K Then Response.Write " Checked"%>>
</td>
<td style="padding:5px;">
<%For J=0 to 9%><img src="CounterPic/<%=K%>/<%=J%>.gif"><%Next%></td>
</tr>
<%
I=I+1
Wend%>
<tr>
<td width="12%" class="td_r">确认使用：</td>
<td><div >
<input type="checkbox" name="CounterShow" value="-1"<%If Rs("CounterShow")=-1 Then Response.Write " checked"%>>是
</td>
</tr>
<tr> 
<td>&nbsp; </td>
<td> <div > 
<input type="submit" name="Submit3" value="确定">
</td>
</tr>
</form>
<tr> 
<td colspan="2" ><table class="tb_3">
<tr> 
<td>

</td>
</tr>
</table>
</td>
</tr>
</table>

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

<table class="tb_1">
<tr> 
<td colspan="2" class="td_1">你的计数器效果 
</td>
</tr>
<tr> 
<td>
<%
asyncid=DateDiff("s",Year(now) & "-" & Month(now) & "-1",Now)
%>
<script async defer src="<%=Tmp%>cf.asp?username=<%=username%>&asyncid=<%=asyncid%>" id="<%=asyncid%>"></script>
</td>
</tr>
</table>
