?? see.asp
字號:
<!--#include file="config.asp"--><head>
<link href="images/008.css" rel="stylesheet" type="text/css">
<%
source = Request.ServerVariables("PATH_INFO")
set rs=server.createobject("adodb.recordset")
sql="select * from count order by time desc"
rs.open sql,conn,1,1
if rs.eof then
response.write "<p align=center>還沒有任何來訪記錄"
response.end
end if
set rsfirst=server.createobject("adodb.recordset")
sql="select * from count"
rsfirst.open sql,conn,1,1
firstday=datevalue(rsfirst("time"))
%>
<title>本站來訪計(jì)數(shù)統(tǒng)計(jì)</title>
<SCRIPT language=javascript>
function click() {
if (event.button==2) {
alert('歡迎訪問【海魂高科】http://www.yd163.net^_^')
}
}
document.onmousedown=click
</SCRIPT>
<script language="JavaScript">
<!--
locate = 0;
function scroller() {
if (locate !=500 ) {
locate++;
scroll(0,locate);
clearTimeout(timer);
var timer = setTimeout("scroller()",3);
timer;
}
}
// -->
</script>
<SCRIPT language=JavaScript>
<!--
<!--
var speed = 100
var pause = 1000
var timerID = null
var bannerRunning = false
var ar = new Array()
var currentMessage = 0
var offset = 0
function stopBanner() {
if (bannerRunning)
clearTimeout(timerID)
bannerRunning = false}
function startBanner() {
stopBanner()
showBanner()}
function showBanner() {
var text = ar[currentMessage]
if (offset < text.length) {
if (text.charAt(offset) == " ")
offset++
var partialMessage = text.substring(0, offset + 1)
window.status = partialMessage
offset++
timerID = setTimeout("showBanner()", speed)
bannerRunning = true}
else {
offset = 0
currentMessage++
if (currentMessage == ar.length)
currentMessage = 0
timerID = setTimeout("showBanner()", pause)
bannerRunning = true }}
startBanner();
// -->
//-->
</SCRIPT>
</head>
<div align="center">
<center>
<p> </p>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="760" height="40">
<tr>
<td width="760" height="5" style="border-left: 1 solid #008000; border-right: 1 solid #008000; border-top: 1 solid #008000">
<div align="center"> </div></td>
</tr>
<tr>
<td height="5" style="border-left: 1 solid #008000; border-right: 1 solid #008000; border-top: 1 solid #008000"> </td>
</tr>
<tr>
<td height="10" style="border-left: 1 solid #008000; border-right: 1 solid #008000; border-top: 1 solid #008000" bgcolor="#FFFF33"><div align="center">————用戶訪問詳細(xì)情況：</div></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="650" height="1">
<tr>
<td width="659" height="1">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; text-align: center" bordercolor="#666666" width="760" height="1">
<tr bgcolor="#999999">
<td width="150" height="1" align="center" bgcolor="#00CCFF">訪問者IP</td>
<td width="200" height="1" align="center" bgcolor="#00CCFF">訪問時間</td>
<td width="130" height="1" align="center" bgcolor="#00CCFF">瀏覽器類型</td>
<td width="130" height="1" align="center" bgcolor="#00CCFF">操作系統(tǒng)</td>
<td width="200" height="1" align="center" bgcolor="#00CCFF">訪問者地區(qū)</td>
</tr>
<%if not rs.eof then
rs.PageSize = perpagenumber
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount%>
<%
rs.AbsolutePage = Page
For iPage = 1 To rs.PageSize
%><%if not rs.eof then%>
<tr>
<td width="150" align="center" height="1"><%=rs("ip")%></td>
<td width="200" align="center" height="1"><%=rs("time")%></td>
<td width="100" align="center" height="1"><%=rs("browser")%></td>
<td width="110" align="center" height="1"><%=rs("system")%></td>
<td width="200" align="center" height="1"><%=rs("address")%></td>
</tr>
<%else%><%end if%>
<%
if not rs.eof then
rs.MoveNext
end if
Next
end if
%>
</table>
</td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="760" height="1" style="border-left: 1 solid #008000; border-right: 1 solid #008000; border-bottom: 1 solid #008000">
<%dim visitday1,visitday2,visitday3,visitmonth,visittotal,visitaverage,fromtime
visitday1=0
visitday2=0
visitday3=0
visitmonth=0
set rscount=server.createobject("adodb.recordset")
sql="select * from count"
rscount.open sql,conn,1,1
visittotal=rscount.recordcount
visitaverage=int(visittotal/(datediff("d",datevalue(firstday),datevalue(now)+1)))
do while not rscount.eof
fromtime=rscount("time")
if datevalue(fromtime)=date then
visitday1=visitday1+1
end if
if datevalue(fromtime)=date-1 then
visitday2=visitday2+1
end if
if datevalue(fromtime)=date-2 then
visitday3=visitday3+1
end if
if year(fromtime)=year(now) and month(fromtime)=month(now) then
visitmonth=visitmonth+1
end if
rscount.movenext
loop
rscount.close
set rscount=nothing
%>
<tr>
<td height="1" width="252" align="center">前天訪問：<%=visitday3%></td>
<td height="1" width="253" align="center">昨天訪問：<%=visitday2%></td>
<td height="1" width="253" align="center">今天訪問：<%=visitday1%></td>
</tr>
<tr>
<td height="1" width="252" align="center" style="border-top: 1 solid #008000">本月訪問：<%=visitmonth%></td>
<td height="1" width="253" align="center" style="border-top: 1 solid #008000">平均訪問：<%=visitaverage%></td>
<td height="1" width="253" align="center" style="border-top: 1 solid #008000">總共訪問：<%=visittotal%></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table width="760" border="0" cellspacing="0" height="1">
<tr>
<td height="1" bgcolor="#DDDDE1" style="border-left: 1 solid #008000; border-right: 1 solid #008000; border-bottom: 1 solid #008000">
<div align="center"> <%If Page <> 1 Then ' 如果不是位于第一頁%><a href=<%=source%>?Page=1>首頁</a>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -