test.asp

1.40种记数器图片样式自由选择

          <%Rs.MoveNext
Wend%>
        </table>
  <%end if%>
  <%If Request("Action")="searchtjview" Then%>
<%
Action=Request("Action")
SiteFlag=Request("SiteFlag")
Px=request("Px")
If Px="" Then Px="AddDate"

Call PxFilter(Px,"AddDate,Counter")

Sql="Select * From WWW_QQCF_COM_CfCount_Search_Count Where User_Name='"&User_Name&"' And SiteFlag='"&SiteFlag&"' Order By "&Px&" Desc"

Set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.Open Sql,Conn,1,1
If Not Rs.Eof Then
If not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
 page=1
Else
 Page=Int(Abs(Request("page")))
End if
rs.pagesize=10
totalrs=rs.RecordCount
totalpage=rs.pageCount
mypagesize=rs.pagesize
rs.absolutepage=page
End If
%>
<table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
          <tr> 
            <td colspan="3"><div align="center"><strong><%=GetFieldValues("WWW_QQCF_COM_Cfcount_Search","SiteFlag",Request("SiteFlag"),2,"SiteDesc")%> 日访问统计</strong> <br>
              </div></td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&SiteFlag=<%=SiteFlag%>&Px=AddDate"><strong>时间</strong></a></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&SiteFlag=<%=SiteFlag%>&px=Counter"><strong>数量</strong></a></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&SiteFlag=<%=SiteFlag%>&Px=Counter"><strong>在十天内的比率</strong></a></div></td>
          </tr>
          <%While Not Rs.Eof And MyPageSize>0%>
          <%
AllTotal=0
Sql="Select Sum(Counter) From WWW_QQCF_COM_CfCount_Search_Count Where User_Name='"&User_Name&"' And SiteFlag='"&SiteFlag&"' And DateDiff('d',AddDate,'"&Rs("AddDate")&"')<10"
Set Rs1=Conn.ExeCute(Sql)
AllTotal=Rs1(0)
If AllTotal=0 Then AllTotal=1%>
          <tr> 
            <td bgcolor="#FFFFFF"><div align="center"><%=Rs("AddDate")%></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><%=Rs("Counter")%></div></td>
            <td bgcolor="#FFFFFF"><img src=qqcf_pic/qqcf_redbar.gif width=<%=Rs("Counter")/AllTotal*300%> height=10><%=MyRate(Rs("Counter"),AllTotal)%>%</td>
          </tr>
          <%Rs.MoveNext
MyPageSize=MyPageSize-1
Wend%>
          <tr> 
            <td colspan="3" bgcolor="#FFFFFF"><div align="right">
<%
Sql="Select Sum(Counter) From WWW_QQCF_COM_CfCount_Search_Count Where User_Name='"&User_Name&"' And SiteFlag='"&SiteFlag&"'"
Set Rs1=Conn.ExeCute(Sql)
%>
共有<%=TotalRs%>天记录，共<%=Rs1(0)%>访问量，平均每天<%=Int(Rs1(0)/TotalRs)%>次访问</div></td>
          </tr>
        </table>
  <table border="0" align="center" cellpadding="0" cellspacing="2">
    <tr> 
      <td valign="top"><div align="right"><a href="?Action=<%=Action%>&SiteFlag=<%=SiteFlag%>&Px=<%=Px%>&Page=1">第一页</a> 
          <%
if page>1 then%>
          <a href='?Action=<%=Action%>&SiteFlag=<%=SiteFlag%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a> 
          <%
end if
%>
          <%
if page<rs.pagecount   then%>
          <a href='?Action=<%=Action%>&SiteFlag=<%=SiteFlag%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a> 
          <%
end if
%>
          <a href="?Action=<%=Action%>&SiteFlag=<%=SiteFlag%>&Px=<%=Px%>&Page=<%=TotalPage%>">最后一页</a> 
          页次：<font color="#ff0000"><%=Page%></font>/<%=TotalPage%>页</div></td>
      <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td><form name="form1" method="post" action="jczx.asp">
                <div align="left"> 
                  <Select  name="page" size="1" class=smallselsect id="select2" style='BACKGROUND-COLOR:#ffffff;font-family: 宋体; font-size: 9pt;' onChange="window.location=form.page.options[form.page.selectedIndex].value">
                    <%for i=1 to totalpage    
   response.write "<option value="&filename&"?Action="&Action&"&SiteFlag="&SiteFlag&"&Px="&Px&"&Page="&I     
   if page=i then     
     response.write " selected"    
   end if    
   response.write ">转到第"& i &"页</option>"    
next    
%>
                  </select>
                </div>
              </form></td>
          </tr>
        </table></td>
    </tr>
  </table>
  
  
  
        <%end if%>
		
		<%If Request("Action")="keywordtj" Then%>
  <table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
          <tr> 
            <td colspan="3" bgcolor="#FFFFFF"> <%
Action=Request("Action")
Sql="Select * From WWW_QQCF_COM_Cfcount_SearchKeywrod_Count Where User_Name='"&User_Name&"' Order By Counter Desc"
Set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.Open Sql,Conn,1,1

Sql="Select Count(*) From WWW_QQCF_COM_Cfcount_SearchKeywrod_Count Where User_Name='"&User_Name&"'"
Set Rs1=Conn.ExeCute(Sql)
KeywordTotal=Rs1(0)
If KeywordTotal=0 Then KeywordTotal=1

Sql="Select Sum(Counter) From WWW_QQCF_COM_Cfcount_SearchKeywrod_Count Where User_Name='"&User_Name&"'"
Set Rs1=Conn.ExeCute(Sql)
NumTotal=Rs1(0)
If NumTotal=0 Then NumTotal=1
Response.Write "共有<font color=ff0000>"&KeywordTotal&"</font>个关键字，<font color=ff0000>"&NumTotal&"</font>个来源"
%> </td>
          </tr>
          <tr> 
            <td colspan="3"><div align="center"><strong>关键字统计</strong> <br>
              </div></td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF"><div align="center"><strong>关键字</strong></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><strong>数量</strong></div></td>
            <td width="300" bgcolor="#FFFFFF"><div align="center"><strong>所占比例</strong></div></td>
          </tr>
          <%While Not Rs.Eof%>
          <tr> 
            <td bgcolor="#FFFFFF"><div align="center"><%=Rs("KeyWord")%></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><%=Rs("Counter")%></div></td>
            <td bgcolor="#FFFFFF"><img src=qqcf_pic/qqcf_redbar.gif width=<%=Rs("Counter")/NumTotal*300%> height=10><%=MyRate(Rs("Counter"),NumTotal)%>% [<%=Rs("Counter")%>次] </td>
          </tr>
          <%Rs.MoveNext
Wend%>
        </table>
  <%end if%>
  
        <%If Request("Action")="jsqset" Then%>
<SCRIPT>
function show_1(){
t_1_1.style.display = "";
}
function show_2(){
t_1_1.style.display = "none";
}
</SCRIPT>
<%Set Rs= Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfCount_RegUser Where User_Name='"&User_Name&"'"
Rs.Open Sql,Conn,1,1%>


  <table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
          <form name="form3" method="post" action="?Action=jsqsetsave">
            <tr> 
              <td height="19" colspan="2"> <div align="center"><strong>修改资料(带*为必填项）</strong></div></td>
            </tr>
            <tr align="center"> 
              <td width="156" align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">自定义显示数：</div></td>
              <td width="563" align="left" bgcolor="#FFFFFF"> <input name="ShowTotal" type="text" id="ShowTotal" value="<%=rs("ShowTotal")%>" size="15" > 
                <font color="#0000FF">*</font>(自定义)</td>
            </tr>
            <tr align="center"> 
              <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">实际显示数：</div></td>
              <td align="left" bgcolor="#FFFFFF"><%=rs("RealShowTotal")%>&nbsp;&nbsp;(页面的浏览次数)</td>
            </tr>
            <tr align="center"> 
              <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">实际数值：</div></td>
              <td align="left" bgcolor="#FFFFFF"><%=rs("RealIpTotal")%>&nbsp;&nbsp;(IP数)</td>
            </tr>
            <tr align="center"> 
              <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">计数器显示位数：</div></td>
              <td align="left" bgcolor="#FFFFFF"><input name="PicNum" type="text" id="total2" value="<%=rs("PicNum")%>" size="15" > 
                <font size="2"> <font color="#0000FF">*</font></font></td>
            </tr>
            <tr align="center"> 
              <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">计数开始日期：</div></td>
              <td align="left" bgcolor="#FFFFFF"><font size="2"> 
                <input name="adddate" type="text" id="adddate" value="<%=rs("adddate")%>" size="20" >
                <font color="#0000FF">*</font></font></td>
            </tr>
            <tr align="center"> 
              <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">计数器上显示的数字：</div></td>
              <td align="left" bgcolor="#FFFFFF"> <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 align="center"> 
              <td height="19" align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">Script计数器显示：</div></td>
              <td align="left" bgcolor="#FFFFFF"> <input name="CounterShow" type="checkbox" id="hidden" value="-1" <%if rs("CounterShow")=-1 then response.write "checked"%>>
                是</td>
            </tr>
            <tr align="center"> 
              <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">Script计数器显示位置：</div></td>
              <td align="left" bgcolor="#FFFFFF"><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 align="center"> 
              <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">Img计数器显示：</div></td>
              <td align="left" bgcolor="#FFFFFF"><input name="ImgCounterShow" type="checkbox" id="ImgCounterShow" value="-1" <%if rs("ImgCounterShow")=-1 then response.write "checked"%>>
                是</td>
            </tr>
            <tr align="center"> 
              <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">记录在线人数：</div></td>
              <td align="left" bgcolor="#FFFFFF"> <input name="online" type="checkbox" id="hidden2" value="-1" <%if rs("online")=-1 then response.write "checked"%>>
                是</td>
            </tr>
            <tr align="center"> 
              <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">记录在线人数的间隔：</div></td>
              <td align="left" bgcolor="#FFFFFF"><input name="onlinetime" type="text" id="onlinetime" value="<%=rs("onlinetime")%>" size="5">
                分钟(请设置180分钟以内)</td>
            </tr>
            <tr align="center"> 
              <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right"><font size="2">计数器上显示在线人数</font>：</div></td>
              <td align="left" bgcolor="#FFFFFF"> <input name="onlineshow" type="checkbox" id="onlineshow" value="-1" <%if rs("onlineshow")=-1 then response.write "checked"%>>
                是</td>
            </tr>
            <tr align="center"> 
              <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right"><font size="2">计数器上显示今日浏览:</font></div></td>
              <td align="left" bgcolor="#FFFFFF"><input name="TodayShow" type="checkbox" id="TodayShow" value="-1" <%if rs("TodayShow")=-1 then response.write "checked"%>>
                是</td>
            </tr>
            <tr align="center"> 
              <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right"><font size="2">计数器上显示今日IP:</font></div></td>
              <td align="left" bgcolor="#FFFFFF"><input name="TodayIpShow" type="checkbox" id="TodayIpShow" value="-1" <%if rs("TodayIpShow")=-1 then response.write "checked"%>>
                是</td>
            </tr>
            <tr align="center"> 
              <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right"><font size="2">计数器上显示IP：</font></div></td>
              <td align="left" bgcolor="#FFFFFF"><input name="IpShow" type="checkbox" id="IpShow" value="-1" <%if rs("IpShow")=-1 then response.write "checked"%>>
                是</td>
            </tr>
            <tr align="center"> 
              <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right"><font size="2">计数器上显示来访次数：</font></div></td>
              <td align="left" bgcolor="#FFFFFF"><input name="VisitShow" type="checkbox" id="VisitShow" value="-1" <%if rs("VisitShow")=-1 then response.write "checked"%>>
                是</td>
            </tr>
            <tr align="center" bgcolor="D6DFF5"> 
              <td colspan="2" align="left" bordercolor="#33CCCC"><div align="center"><strong><font size="2">以下是信息是否公开设置(公开后所有人可查看)：</font></strong></div></td>
            </tr>
            <tr align="center"> 
              <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right"><font size="2">计数器信息公开：</font></div></td>
              <td align="left" bgcolor="#FFFFFF"><input name="TjOpen" type="radio" id="TjOpen" value="-1" <%if rs("TjOpen")=-1 then response.write "checked"%> onclick="show_1()">
                是<font size="2">　
                <input name="TjOpen" type="radio" id="radio3" value="0" <%if rs("TjOpen")=0 then response.write "checked"%> onclick="show_2()">
                否</font></td>
            </tr>
            <tr align="center" id="t_1_1"> 
              <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right"><font size="2">公开选中的计数器信息