📄 see.asp

📁 企事业单位网站管理系统防止数据库数据非法备份
💻 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>本站来访计数统计</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">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</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">————用户访问详细情况：</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">操作系统</td>
              <td width="200" height="1" align="center" bgcolor="#00CCFF">访问者地区</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">　&nbsp; <%If Page <> 1 Then ' 如果不是位于第一页%><a href=<%=source%>?Page=1>首页</a>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -