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

Set Rs= Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFCount_User Where UserName='"&UserName&"'"
Rs.Open Sql,Conn,1,1
 If Rs("CounterShow")=-1 Then
  show=show&"ashow_1();"
 ElseIf Rs("CounterShow")=0 Then
  show=show&"ashow_2();"
 End If
 
 If Rs("ImgCounterShow")=-1 Then
  show=show&"bshow_1();"
 ElseIf Rs("ImgCounterShow")=0 Then
  show=show&"bshow_2();"
 End If

 If Rs("online")=-1 Then
  show=show&"cshow_1();"
 ElseIf Rs("online")=0 Then
  show=show&"cshow_2();"
 End If
 
 If Rs("TjOpen")=-1 Then
  show=show&"dshow_1();"
 ElseIf Rs("TjOpen")=0 Then
  show=show&"dshow_2();"
 End If

%>
<SCRIPT>
function ashow_1(){
a_1.style.display = "";
a_2.style.display = "";
a_3.style.display = "none";
}
function ashow_2(){
a_1.style.display = "none";
a_2.style.display = "none";
a_3.style.display = "";
}
function bshow_1(){
b_1.style.display = "";
}
function bshow_2(){
b_1.style.display = "none";
}
function cshow_1(){
c_1.style.display = "";
}
function cshow_2(){
c_1.style.display = "none";
}
function dshow_1(){
d_1.style.display = "";
}
function dshow_2(){
d_1.style.display = "none";
}
</SCRIPT>


<form name="form3" method="post" action="User.aspx?Action=jsqsetsave">
<table class="tb_1">
<tr class="tr_1">
    <td colspan="2">你设置的效果如下 
    </td>
  </tr>
  <tr> 
    <td colspan="2" class="td_1"><script src="<%=Tmp%>cf.aspx?username=<%=Rs("UserName")%>"></script></td>
  </tr>
  
<tr class="tr_1">
      <td colspan="2"> 修改资料(带*为必填项）</td>
  </tr>

  
<tr> 
      <td>自定义显示数：</td>
      <td> <input name="ShowTotal" type="text" id="ShowTotal" value="<%=rs("ShowTotal")%>" size="15" > 
        <font color="#0000FF">*</font>(自定义)</td>
    </tr>
    <tr> 
      <td>实际显示数：</td>
      <td><%=rs("RealShowTotal")%>&nbsp;&nbsp;(页面的浏览次数)</td>
    </tr>
    <tr> 
      <td>实际数值：</td>
      <td><%=rs("RealIpTotal")%>&nbsp;&nbsp;(IP数)</td>
    </tr>
    <tr> 
      <td>统计器显示位数：</td>
      <td><input name="PicNum" type="text" id="total2" value="<%=rs("PicNum")%>" size="15" > 
        <font color="#0000FF">*</font></td>
    </tr>
    <tr> 
      <td>统计开始日期：</td>
      <td>
        <input name="adddate" type="text" id="adddate" value="<%=rs("adddate")%>" size="15" >
        <font color="#0000FF">*</font></td>
    </tr>
    <tr> 
      <td>网站统计显示数字：</td>
      <td> <input type="radio" name="CounterShow" value="-1"<%if rs("CounterShow")=-1 then response.write " checked"%> onclick="ashow_1()">
        是 
        <input type="radio" name="CounterShow" value="0"<%if rs("CounterShow")=0 then response.write " checked"%> onclick="ashow_2()">
        否</td>
    </tr>
    <tr id="a_1"> 
      <td>网站统计显示数字类型：</td>
      <td> <input name="ShowType" type="radio" id="ShowType" value="1" <%if rs("ShowType")=1 then response.write "checked"%>>
        自定义显示数 
        <input name="ShowType" type="radio" id="ShowType" value="2" <%if rs("ShowType")=2 then response.write "checked"%>>
        实际显示数值 
        <input name="ShowType" type="radio" id="ShowType" value="3" <%if rs("ShowType")=3 then response.write "checked"%>>
        实际Ip数值 </td>
    </tr>
    <tr id="a_2"> 
      <td>你设置的统计样式：</td>
      <td><%=GetPicStyle(UserName)%>&nbsp;[<a href="?Action=stylelist">更换图片样式</a>] </td>
    </tr>
    <tr id="a_3"> 
      <td>网站统计隐藏时默认图片：</td>
      <td>
	    <input name="CounterHiddenPic" type="radio" id="radio" value="1"<%if rs("CounterHiddenPic")=1 then response.write " checked"%>> 
        <img src="images/counter_1.gif" border="0">
		<input name="CounterHiddenPic" type="radio" id="radio" value="2"<%if rs("CounterHiddenPic")=2 then response.write " checked"%>> 
        <img src="images/counter_2.gif" border="0">
		<input name="CounterHiddenPic" type="radio" id="radio" value="3"<%if rs("CounterHiddenPic")=3 then response.write " checked"%>> 
        <img src="images/counter_3.gif" border="0">
		<input name="CounterHiddenPic" type="radio" id="radio" value="4"<%if rs("CounterHiddenPic")=4 then response.write " checked"%>> 
        <img src="images/counter_4.gif" border="0">
		<input name="CounterHiddenPic" type="radio" id="radio" value="5"<%if rs("CounterHiddenPic")=5 then response.write " checked"%>> 
        <img src="images/counter_5.gif" border="0">
		<input name="CounterHiddenPic" type="radio" id="radio" value="100"<%if rs("CounterHiddenPic")=100 then response.write " checked"%>> 
        留言样式
		<input name="CounterHiddenPic" type="radio" id="radio" value="101"<%if rs("CounterHiddenPic")=101 then response.write " checked"%>> 
        <%=RsSet("TjTextName")%>
		<input name="CounterHiddenPic" type="radio" id="radio" value="102"<%if rs("CounterHiddenPic")=102 then response.write " checked"%>> 
        贵宾统计
		<input name="CounterHiddenPic" type="radio" id="radio" value="103"<%if rs("CounterHiddenPic")=103 then response.write " checked"%>> 
        Vip统计
	  </td>
    </tr>
    <tr> 
      <td>网站统计显示位置：</td>
      <td><input name="CounterSite" type="radio" id="radio" value="1" <%if rs("CounterSite")=1 then response.write "checked"%>>
        在在线人数上面 
        <input name="CounterSite" type="radio" id="radio" value="2" <%if rs("CounterSite")=2 then response.write "checked"%>>
        在在线人数下面 
        <input name="CounterSite" type="radio" id="radio" value="3" <%if rs("CounterSite")=3 then response.write "checked"%>>
        在在线人数左面 
        <input name="CounterSite" type="radio" id="radio2" value="4" <%if rs("CounterSite")=4 then response.write "checked"%>>
        在在线人数右面 </td>
    </tr>
    <tr> 
      <td>网店统计显示数字：</td>
      <td> <input type="radio" name="ImgCounterShow" value="-1"<%if rs("ImgCounterShow")=-1 then response.write " checked"%> onclick="bshow_1()">
        是 
        <input type="radio" name="ImgCounterShow" value="0"<%if rs("ImgCounterShow")=0 then response.write " checked"%> onclick="bshow_2()">
        否</td>
    </tr>
    <tr id="b_1"> 
      <td>网店统计显示数字：</td>
      <td><input name="ImgShowType" type="radio" id="radio4" value="1" <%if rs("ImgShowType")=1 then response.write "checked"%>>
        自定义显示数 
        <input name="ImgShowType" type="radio" id="radio4" value="2" <%if rs("ImgShowType")=2 then response.write "checked"%>>
        实际显示数值 
        <input name="ImgShowType" type="radio" id="radio4" value="3" <%if rs("ImgShowType")=3 then response.write "checked"%>>
        实际Ip数值</td>
    </tr>
    <tr> 
      <td>记录在线人数：</td>
      <td> <input type="radio" name="online" value="-1"<%if rs("online")=-1 then response.write " checked"%> onclick="cshow_1()">
        是 
        <input type="radio" name="online" value="0"<%if rs("online")=0 then response.write " checked"%> onclick="cshow_2()">
        否</td>
    </tr>
    <tr id="c_1"> 
      <td>记录在线人数的间隔：</td>
      <td><input name="onlinetime" type="text" id="onlinetime" value="<%=rs("onlinetime")%>" size="5">
        分钟(请设置60分钟以内,一般是30分钟)</td>
    </tr>
    <tr> 
      <td>统计上显示在线人数：</td>
      <td> <input name="onlineshow" type="checkbox" id="onlineshow" value="-1" <%if rs("onlineshow")=-1 then response.write "checked"%>>
        是</td>
    </tr>
    <tr> 
      <td>统计上显示今日浏览:</td>
      <td><input name="TodayShow" type="checkbox" id="TodayShow" value="-1" <%if rs("TodayShow")=-1 then response.write "checked"%>>
        是</td>
    </tr>
    <tr> 
      <td>统计上显示今日IP:</td>
      <td><input name="TodayIpShow" type="checkbox" id="TodayIpShow" value="-1" <%if rs("TodayIpShow")=-1 then response.write "checked"%>>
        是</td>
    </tr>
    <tr> 
      <td>统计上显示访问者IP：</td>
      <td><input name="IpShow" type="checkbox" id="IpShow" value="-1" <%if rs("IpShow")=-1 then response.write "checked"%>>
        是</td>
    </tr>
    <tr> 
      <td>统计上显示来访次数：</td>
      <td><input name="VisitShow" type="checkbox" id="VisitShow" value="-1" <%if rs("VisitShow")=-1 then response.write "checked"%>>
        是</td>
    </tr>
<tr class="tr_1">
      <td colspan="2">以下是信息是否公开设置(公开后所有人可查看)</td>
    </tr>
    <tr> 
      <td>统计信息公开：</td>
      <td><input name="TjOpen" type="radio" id="TjOpen" value="-1" <%if rs("TjOpen")=-1 then response.write "checked"%> onclick="dshow_1()">
        是
        <input name="TjOpen" type="radio" id="radio3" value="0" <%if rs("TjOpen")=0 then response.write "checked"%> onclick="dshow_2()">
        否</td>
    </tr>
    <tr id="d_1"> 
      <td>公开选中的计数器信息：</td>
      <td><input name="SurveyOpen" type="checkbox" id="SurveyOpen" value="-1" <%if rs("SurveyOpen")=-1 then response.write "checked"%>> 
        统计概况 <input name="TodayLyOpen" type="checkbox" id="TodayLyOpen" value="-1" <%if rs("TodayLyOpen")=-1 then response.write "checked"%>> 
        今天的来源明细 
        <input name="OnlineOpen" type="checkbox" id="OnlineOpen" value="-1" <%if rs("OnlineOpen")=-1 then response.write "checked"%>>
        在线统计 
        <input name="TodayHourOpen" type="checkbox" id="TodayHourOpen" value="-1" <%if rs("TodayHourOpen")=-1 then response.write "checked"%>>
        今天的小时统计
        <input name="EveryDayOpen" type="checkbox" id="EveryDayOpen" value="-1" <%if rs("EveryDayOpen")=-1 then response.write "checked"%>>
        每天的统计</td>
    </tr>
 <tr class="tr_1">
      <td colspan="2" >留言板</td>
    </tr>
	<tr > 
      <td >中转页上显示留言板：</td>
      <td ><input name="GbookState" type="radio" id="GbookState" value="-1" <%if rs("GbookState")=-1 then response.write "checked"%>>
        是　 
        <input name="GbookState" type="radio" id="GbookState" value="0" <%if rs("GbookState")=0 then response.write "checked"%>>
        否</td>
    </tr>
	<tr> 
      <td>&nbsp;</td>
      <td>
        <input type="submit" name="Submit2" value="修　改" >
        　 
        <input type="reset" name="Submit22" value="取　消" >
      </td>
    </tr>
</table></form>

<%
Response.write "<script>"               &Chr(13)&Chr(10)
Response.write "function myshow()"      &Chr(13)&Chr(10)
Response.write "{"					    &Chr(13)&Chr(10)
Response.write  Show                    &Chr(13)&Chr(10)
Response.write "clearInterval(myst);"   &Chr(13)&Chr(10)
Response.write "}"                      &Chr(13)&Chr(10)
Response.write "myst=setInterval('myshow()',1);"  &Chr(13)&Chr(10)
Response.write "</script>"              &Chr(13)&Chr(10)
%>