📄 fyurl.asp
字号:
<!--#include file="top.asp" -->
<%
'******************************
'
' 『头发乱了』访客单用户统计系统
' 张金义 2001_jinge@sohu.com
' http://www.99321.com
'
' 版权所有: 哈哈大侠
'
'*******************************
%>
<BODY aLink=#90d5e5 bgColor=#ffffff link=#90d5e5 text=#666666 topMargin=0
vLink=#90d5e5>
<DIV align=center><BR>
<TABLE border=0 cellPadding=0 cellSpacing=0
style="COLOR: #272727; FONT-SIZE: 10pt">
<TBODY>
<TR>
<TD height=18 width=18><IMG height=18 src="img/t-ani2-a1.gif" width=18></TD>
<TD background=img/t-ani2-a2.gif></TD>
<TD height=18 width=26><IMG height=18 src="img/t-ani2-a3.gif" width=26></TD></TR>
<TR>
<TD background=img/t-ani2-a4.gif></TD>
<TD bgColor=#ffffff height=30 width=600><div align="center">
<center>
<table border=1 borderColor=<%=tdc2%> cellPadding=4 cellSpacing=1 width=<%=tdc3%> style="border-collapse: collapse" align=center >
<tr>
<td colspan="3" align="center" <%=hColor1%> class=tdc1 height="23"><%=fyear%>被访问页面统计</td>
</tr>
<tr class=tdc1 >
<td <%=hColor2%> height="22">
<p align="center">被统计页面</td>
<td <%=hColor2%> height="22">
<p align="center">访问人数</td>
<td <%=hColor2%> height="22">
<p align="center">比例图-报表</td>
</tr>
<%
page=request.querystring("page")
if page="" then page=1
pages = ""&t_page&""
sql="select count(fid) as alldayweek from fcount"
set rs=conn.execute(sql)
maxalldayweek=rs("alldayweek")
rcount2=rs("alldayweek")
if maxalldayweek=0 then maxalldayweek=1
set rs=nothing
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select furl from fcount group by furl"
rs.Open sql,conn,1,1
rs.pagesize = pages
if not(rs.eof or rs.bof) then
maxpagecount=rs.pagecount
rs.absolutepage = page
rcount1=0
pagestart=page-5
pageend=page+5
if pagestart<1 then pagestart=1
if pageend>maxpagecount then pageend=maxpagecount
do while not rs.eof and rcount1 <rs.pagesize
sql1="select count(*) as fweek1 from fcount where furl='"&rs("furl")&"'"
set rs1=conn.execute(sql1)
fweek1=rs1("fweek1")
%>
<tr>
<td class=tdc bgcolor=<%=tcolor2%> height="20" width=30%><a href='<%=rs("furl")%>' target=_blank><%=rs("furl")%></a></td>
<td class=tdc bgcolor=<%=tcolor2%> height="20" width=15%><%=fweek1%></td>
<td class=tdc bgcolor=<%=tcolor2%> height="20"><img src="image/b3.gif" width="<%=(fweek1/maxalldayweek)*100%>" height="10"%><%=round(((fweek1/maxalldayweek)*100),2)%>%
</td> </tr>
<% set rs1=nothing
rs.movenext
rcount1=rcount1+1
loop
set rs=nothing%>
<tr align="left">
<td colspan="3" bgcolor=<%=tColor1%> class=tdc > <a href=?page=1><<</a>
<% for i=pagestart to pageend
if i=0 then
i=1
end if
strurl="<a href=?page="&i&">["&i&"]</a>"
response.write strurl
response.write " "
next
%><a href=?page=<%=maxpagecount%>>>></a> ..页次:<%=page%>/<%=maxpagecount%>页 每页:<%=pages%> 总访问人数:<%=rcount2%></td></tr>
<%end if%>
</table>
</center>
</div>
<!--#include file="bq.asp" --></TD>
<TD background=img/t-ani2-a5.gif></TD></TR>
<TR>
<TD height=26 width=18><IMG height=26 src="img/t-ani2-a6.gif" width=18></TD>
<TD background=img/t-ani2-a7.gif></TD>
<TD height=26 width=26><IMG height=26 src="img/t-ani2-a8.gif" width=26></TD></TR></TBODY></TABLE></DIV>
</BODY>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -