📄 cf_manage_2.asp
字号:
<tr
<%if I mod 2=0 then
response.write " bgcolor='#ffffff'"
else
response.write " bgcolor='#e8e8e8'"
end if
%>>
<td><div align="center"><%=Rs("AddHour")%>-<%=Rs("AddHour")+1%></div></td>
<td><div align="center"><%=Rs1(0)%><br>
</div></td>
<td><div align="center"><%=Rs1(1)%></div></td>
<td><img src=images/BlueBar.gif width=<%=Rs1(0)/ShowTotal*350%> height=10><%=MyRate(Rs1(0),ShowTotal)%>%<br><img src=images/GreenBar.gif width=<%=Rs1(1)/IpTotal*350%> height=10><%=MyRate(Rs1(1),IpTotal)%>%</td>
</tr>
<%
rs.movenext
loop%>
<tr>
<td colspan="6" bgcolor="#FFFFFF"><div align="center">图例： <img src=images/BlueBar.gif width=30 height=10>显示数，<img src=images/GreenBar.gif width=30 height=10>IP数</div></td>
</tr>
<tr>
<td colspan="4"><div align="center"><strong><%=AddDate%>此日期</strong>：总计浏览<%=ShowTotal%>次 IP<%=IpTotal%>个</div></td>
</tr>
</table>
<%end if%>
<%if Action="backtj" then%>
<table width="98%" align="center" class="tba">
<tr class="tba_tr_1">
<td colspan="4"><div align="center"><strong>回头率报表</strong></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="100"><div align="center"><strong>次数</strong></div></td>
<td width="134"><div align="center"><strong>人数</strong></div></td>
<td><div align="center"><strong>比率</strong></div></td>
</tr>
<%
Sql="Select * From CFCount_Back where UserName='"&UserName&"'"
Set Rs=Conn.Execute(Sql)
TotalNum=Rs("BackNum_1")+Rs("BackNum_2")+Rs("BackNum_3")+Rs("BackNum_4")+Rs("BackNum_5")+Rs("BackNum_6")+Rs("BackNum_7")+Rs("BackNum_8")+Rs("BackNum_9")+Rs("BackNum_10")+Rs("BackNum_Higher")
For I= 1 To 10
%>
<tr
<%if I mod 2=0 then
response.write " bgcolor='#ffffff'"
else
response.write " bgcolor='#e8e8e8'"
end if
%>>
<td><div align="center">第 <font color="#FF0000"><%=I%></font> 次访问</div></td>
<td><div align="center"><%=Rs("BackNum_"&I)%></div></td>
<td><img src=images/BlueBar.gif width=<%=Rs("BackNum_"&I)/TotalNum*300%> height=10><%=MyRate(Rs("BackNum_"&I),TotalNum)%>% </td>
</tr>
<%
Next%>
<tr bgcolor='#e8e8e8'>
<td><div align="center">10次以上访问</div></td>
<td><div align="center"><%=Rs("BackNum_Higher")%></div></td>
<td><img src=images/BlueBar.gif width=<%=Rs("BackNum_Higher")/TotalNum*300%> height=10><%=MyRate(Rs("BackNum_Higher"),TotalNum)%>% </td>
</tr>
</table>
<%end if%>
<%If Action="searchtj" Then%>
<%
AddDate=ChkStr(Request("AddDate"),3)
If AddDate="" Then AddDate=Date()
%>
<table width="98%" align="center" class="tba">
<tr>
<form name="form1" method="post" action="jczx.asp"><td colspan="3"> <select name="a" size="1" onChange="window.location=form.a.options[form.a.selectedIndex].value">
<%Sql="Select AddDate From CFCount_Search_Day Where UserName='"&UserName&"' Group By AddDate Order By AddDate Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
While Not Rs.Eof
Response.Write "<option value='?Action="&Action&"&AddDate="&Rs("AddDate")&"'"
If Cstr(AddDate)=Cstr(Rs("AddDate")) Then Response.Write " selected"
Response.Write ">"&Rs("AddDate")&"</option>"
Rs.MoveNext
Wend
%>
</select> </td></form>
</tr>
<tr class="tba_tr_1">
<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>PV数量</strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong>IP数量</strong></div></td>
</tr>
<%
Sql="Select * From CFCount_Search_Day Where Datediff('d',AddDate,'"&AddDate&"')=0 Order By IpCounter Desc"
Set Rs=Conn.Execute(Sql)
%>
<%While Not Rs.Eof%>
<tr>
<td><div align="center"><%=Rs("SiteFlag")%></div></td>
<td><div align="center"><%=Rs("MyCounter")%></div></td>
<td><div align="center"><%=Rs("IpCounter")%></div></td>
</tr>
<%Rs.MoveNext
Wend%>
</table>
<%end if%>
<%If Action="alexatj" Then%>
<table width="98%" align="center" class="tba">
<tr class="tba_tr_1">
<td colspan="3"><div align="center"><strong>日Alexa统计[可点击标题排序]</strong>
<%
Sql="Select Sum(MyCounter) From CFCount_Alexa_Day Where UserName='"&UserName&"'"
Set Rs=Conn.Execute(Sql)
AlexaTotal=Rs(0)
If AlexaTotal=0 Then AlexaTotal=1
%>
<%
Px=ChkStr(request("Px"),1)
If Px="" Then Px="ID"
Call PxFilter(Px,"id,MyCounter,adddate")
Sql="Select * From CFCount_Alexa_Day Where UserName='"&UserName&"' 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
%>
<br>
</div></td>
</tr>
<tr>
<td><div align="center"><a href="?Action=<%=Action%>&Px=AddDate"><strong>日期</strong></a></div></td>
<td><div align="center"><strong><a href="?Action=<%=Action%>&Px=MyCounter">安装数量</a></strong></div></td>
<td><div align="center"><a href="?Action=<%=Action%>&Px=MyCounter"><strong>在十天内的比率</strong></a></div></td>
</tr>
<%While Not Rs.Eof And MyPageSize>0%>
<tr>
<td><div align="center"><%=Rs("AddDate")%></div></td>
<td><div align="center"><%=Rs("MyCounter")%><br>
</div></td>
<td><img src=images/BlueBar.gif width=<%=Rs("MyCounter")/AlexaTotal*300%> height=10><%=MyRate(Rs("MyCounter"),AlexaTotal)%>%</td>
</tr>
<%Rs.MoveNext
MyPageSize=MyPageSize-1
Wend%>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="2">
<tr>
<td valign="top"><div align="right"><a href="?Action=<%=Action%>&Px=<%=Px%>&Page=1">第一页</a>
<%
if page>1 then%>
<a href='?Action=<%=Action%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a>
<%
end if
%>
<%
if page<rs.pagecount then%>
<a href='?Action=<%=Action%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a>
<%
end if
%>
<a href="?Action=<%=Action%>&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="select3" 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&"&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 Action="keywordtj" Then%>
<%
SiteFlag=ChkStr(Request("SiteFlag"),1)
AddDate=ChkStr(Request("AddDate"),3)
If AddDate="" Then AddDate=Date()
%>
<table width="98%" align="center" class="tba">
<tr>
<form name="form1" method="post" action="?Action=<%=Action%>">
<td colspan="5"> <select name="siteflag">
<%Sql="Select SiteDesc,SiteFlag From CFCount_Search_Set Order By SiteFlag Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
While Not Rs.Eof
Response.Write "<option value='"&Rs("SiteFlag")&"'"
If Cstr(SiteFlag)=Cstr(Rs("SiteFlag")) Then Response.Write " selected"
Response.Write ">"&Rs("SiteDesc")&"</option>"
If SiteFlag="" Then
If Instr(Rs("SiteFlag"),"baidu.com") Then
SiteFlag = Rs("SiteFlag")
SiteDesc = Rs("SiteDesc")
End If
Else
If Cstr(SiteFlag)=Cstr(Rs("SiteFlag")) Then
SiteDesc = Rs("SiteDesc")
End if
End If
Rs.MoveNext
Wend
%>
</select> <select name="adddate">
<%Sql="Select AddDate From CFCount_SearchKeywrod_Day Where UserName='"&UserName&"' Group By AddDate Order By AddDate Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
While Not Rs.Eof
Response.Write "<option value='"&Rs("AddDate")&"'"
If Cstr(AddDate)=Cstr(Rs("AddDate")) Then Response.Write " selected"
Response.Write ">"&Rs("AddDate")&"</option>"
Rs.MoveNext
Wend
%>
</select> <input type="submit" name="Submit3" value="确定"> </td>
</form>
</tr>
<%
Px=ChkStr(request("Px"),1)
If Px="" Then Px="IpCounter"
Call PxFilter(Px,"KeyWord,IpCounter,MyCounter,AddDate,LastTime,LastLy")
Sql="Select * From CFCount_SearchKeywrod_Day Where UserName='"&UserName&"' And SiteFlag='"&SiteFlag&"' And AddDate=#"&AddDate&"# 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=20
totalrs=rs.RecordCount
totalpage=rs.pageCount
mypagesize=rs.pagesize
rs.absolutepage=page
End If
%>
<tr class="tba_tr_1">
<td colspan="5"><div align="center"><strong><%=SiteDesc%>关键字统计</strong><strong>[可点击标题排序]</strong><br>
</div></td>
</tr>
<tr>
<td><div align="center"><strong><a href="?Action=<%=Action%>&SiteFlag=<%=SiteFlag%>&AddDate=<%=AddDate%>&Px=Keyword">关键字</a></strong></div></td>
<td><div align="center"><strong><a href="?Action=<%=Action%>&SiteFlag=<%=SiteFlag%>&AddDate=<%=AddDate%>&Px=IpCounter">PV数量</a></strong></div></td>
<td><div align="center"><strong><a href="?Action=<%=Action%>&SiteFlag=<%=SiteFlag%>&AddDate=<%=AddDate%>&Px=MyCounter">IP数量</a></strong></div></td>
<td><div align="center"><strong><a href="?Action=<%=Action%>&SiteFlag=<%=SiteFlag%>&AddDate=<%=AddDate%>&Px=AddDate">加入日期</a></strong></div></td>
<td><div align="center"><strong><a href="?Action=<%=Action%>&SiteFlag=<%=SiteFlag%>&AddDate=<%=AddDate%>&Px=LastTime">最后更新时间</a></strong></div></td>
</tr>
<%While Not Rs.Eof And MyPageSize>0%>
<tr>
<td>
<div align="center"><a href="<%=Rs("LastLy")%>" target='_blank'>
<%
If Instr(Rs("LastLy"),"google")>0 Or Instr(Rs("LastLy"),"yahoo")>0 Then
KeyWord=UTF2GB(Rs("KeyWord"))
Else
KeyWord=URLDecode(Rs("KeyWord"))
End If
If Len(Keyword)=0 Then KeyWord=Rs("KeyWord")
Response.write Keyword
%>
</a></div>
</td>
<td><div align="center"><%=Rs("MyCounter")%></div></td>
<td><div align="center"><%=Rs("IpCounter")%></div></td>
<td><div align="center"><%=GetTurnTime(Month(Rs("AddDate")))&"-"&GetTurnTime(Day(Rs("AddDate")))%></div></td>
<td><div align="center"><%=Rs("LastTime")%></div></td>
</tr>
<%Rs.MoveNext
MyPageSize=MyPageSize-1
Wend%>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="2">
<tr>
<td valign="top"><div align="right"><a href="?Action=<%=Action%>&SiteFlag=<%=SiteFlag%>&AddDate=<%=AddDate%>&Px=<%=Px%>&Page=1">第一页</a>
<%
if page>1 then%>
<a href='?Action=<%=Action%>&SiteFlag=<%=SiteFlag%>&AddDate=<%=AddDate%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a>
<%
end if
%>
<%
if page<rs.pagecount then%>
<a href='?Action=<%=Action%>&SiteFlag=<%=SiteFlag%>&AddDate=<%=AddDate%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a>
<%
end if
%>
<a href="?Action=<%=Action%>&SiteFlag=<%=SiteFlag%>&AddDate=<%=AddDate%>&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=?Action="&Action&"&SiteFlag="&SiteFlag&"&AddDate="&AddDate&"&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%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -