📄 infolist.asp

📁 生成html的ASP企业站点,可以进行二次开发的
💻 ASP
字号:
<!-- #include file="ConnStatData.asp" -->
<%
'判断是否登录或登录超时===============================================================
dim AdminAction
AdminAction=request.QueryString("AdminAction")
select case AdminAction
  case "Out"
    call OutLogin()
  case else
    call Login()
end select
'========
sub Login()
  if session("AdminName")="" or session("UserName")="" or session("AdminPurview")="" or session("LoginSystem")<>"Succeed" then
     response.write "您还没有登录或登录已超时，请<a href='../admin/Admin_Login.asp' target='_parent'><font color='red'>返回登录</font></a>!"
     response.end
  end if
end sub
'========
sub OutLogin()
  session.contents.remove "AdminName"
  session.contents.remove "UserName"
  session.contents.remove "AdminPurview"
  session.contents.remove "LoginSystem"
  session.contents.remove "VerifyCode"
  response.write "<script language=javascript>top.location.replace('../admin/admin_login.asp');</script>"
end sub
%>
<%
Response.Expires=0
Sql="Select * From InfoList"
Rs.Open Sql,Conn,1,1
On Error Resume Next
Name=Rs("Name")
Url=Rs("Url")
DayNum=Rs("DayNum")
TotalNum=Rs("TotalNum")
MonthMaxNum=rs("MonthMaxNum")
MonthMaxDate=Rs("MonthMaxDate")
DayMaxNum=Rs("DayMaxNum")
DayMaxDate=Rs("DayMaxDate")
HourMaxNum=Rs("HourMaxNum")
HourMaxTime=Rs("HourMaxTime")
LiaoningNum=Rs("LiaoningNum")
ChinaNum=Rs("ChinaNum")
OtherNum=Rs("OtherNum")
StartDate=Rs("StartDate")
StatDayNum=DateDiff("D",StartDate,Date)+1
If StatDayNum<=0 Then
   AveDayNum=StatDayNum
Else
   AveDayNum=Cint(TotalNum/StatDayNum)
End If
Rs.Close
Sql="Select Top 1 * From FBrowser Order By TBrwNum DESC"
Rs.Open Sql,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
MaxBrw=Rs("TBrowser")
MaxBrwNum=Rs("TBrwNum")
End If
Rs.Close
Sql="Select Top 1 * From FSystem Order By TSysNum DESC"
Rs.Open Sql,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
MaxSys=Rs("TSystem")
MaxSysNum=Rs("TSysNum")
End If
Rs.Close
Sql="Select Top 1 * From FScreen Order By TScrNum DESC"
Rs.Open Sql,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
MaxScr=Rs("TScreen")
MaxScrNum=Rs("TScrNum")
End If
Rs.Close
Sql="Select Top 1 * From FArea Order By TAreNum DESC"
Rs.Open Sql,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
MaxAre=Rs("TArea")
MaxAreNum=Rs("TAreNum")
End If
Rs.Close
Sql="Select Top 1 * From FWeburl Order By TWebNum DESC"
Rs.Open Sql,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
MaxWeb=Rs("TWeburl")
MaxWebNum=Rs("TWebNum")
End If
Rs.Close
Conn.Close
Set Rs=Nothing
Set Conn=Nothing
%>
<HTML>
<HEAD>
<TITLE>网站统计分析系统</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link rel="stylesheet" href="../admin/images/admin.css">
</HEAD>
<%
Dim SERVER_NAME
SERVER_NAME=trim(Request.ServerVariables("SERVER_NAME"))

if Instr(session("AdminPurview"),"|40,")=0 then 
    response.write ("<br><br><div align=""center""><font style=""color:red; font-size:9pt; "")>您没有管理该模块的权限！</font></div>")
  response.end
end if
'========判断是否具有管理权限
%>
<BODY>
<div align="center">
  <table width="95%" border="0" align="center" cellpadding="3" cellspacing="1"  class="tableborder">
      <tr>
        <th colspan="8">网站流量统计：包括年，月，日，IP，浏览器类型等非常详细的分析报表</th>
      </tr>
      <tr>
        <td align="center" class="forumrow"><a href="Infolist.asp">统计概况</a></td>
        <td align="center" class="forumrow"><a href="FVisitor.asp">最近访问</a></td>
        <td align="center" class="forumrow"><a href="StatYear.asp">年 报 表</a></td>
        <td align="center" class="forumrow"><a href="StatMonth.asp">月 报 表</a></td>
        <td align="center" class="forumrow"><a href="StatWeek.asp">周 报 表</a></td>
        <td align="center" class="forumrow"><a href="StatDay.asp">日 报 表</a></td>
        <td align="center" class="forumrow"><a href="History.asp">历史报表</a></td>
        <td align="center" class="forumrow"><a href="Rereg.asp">修改信息</a></td>
      </tr>
      <tr>
        <td align="center" class="forumrow"><a href="FArea.asp">地区分析</a></td>
        <td align="center" class="forumrow"><a href="FAddress.asp">地址分析</a></td>
        <td align="center" class="forumrow"><a href="FIptwo.asp">IP 地 址</a></td>
        <td align="center" class="forumrow"><a href="Fweburl.asp">链接页面</a></td>
        <td align="center" class="forumrow"><a href="FCounter.asp">访问次数</a></td>
        <td align="center" class="forumrow"><a href="FSystem.asp">操作系统</a></td>
        <td align="center" class="forumrow"><a href="FBrowser.asp">浏 览 器</a></td>
        <td align="center" class="forumrow"><a href="FScreen.asp">屏幕大小</a></td>
      </tr>
  </table>
  <br>
  <table width="95%" border="0" align="center" cellpadding="3" cellspacing="1"  class="tableborder">
        <tr>
          <th>网站流量统计概况</th>
        </tr>
        <tr onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
          <td width="50%" class="forumrow">网站名称</td>
          <td width="50%" class="forumrowhighlight"><%=Name%></td>
        </tr>
        <tr onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
          <td class="forumrow">网站网址</td>
          <td class="forumrowhighlight"><a href="<%=Url%>"><%=Url%></a></td>
        </tr>
        <tr onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
          <td class="forumrow">总统计天数</td>
          <td class="forumrowhighlight"><%=StatDayNum%></td>
        </tr>
        <tr onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
          <td class="forumrow">开始统计日期</td>
          <td class="forumrowhighlight"><%=StartDate%></td>
        </tr>
        <tr onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
          <td class="forumrow">总访问量</td>
          <td class="forumrowhighlight"><%=AveDayNum%></td>
        </tr>
        <tr onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
          <td class="forumrow">平均日访量</td>
          <td class="forumrowhighlight"><%=AveDayNum%></td>
        </tr>
        <tr>
          <td class="forumrow"></td>
          <td class="forumrowhighlight"></td>
        </tr>
        <tr onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
          <td class="forumrow">今日访问量</td>
          <td class="forumrowhighlight"><%=DayNum%></td>
        </tr>
        <tr onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
          <td class="forumrow">最高月访量</td>
          <td class="forumrowhighlight"><%=MonthMaxNum%></td>
        </tr>
        <tr onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
          <td class="forumrow">最高月访量月份</td>
          <td class="forumrowhighlight"><%=MonthMaxDate%></td>
        </tr>
        <tr onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
          <td class="forumrow">最高日访量</td>
          <td class="forumrowhighlight"><%=DayMaxNum%></td>
        </tr>
        <tr onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
          <td class="forumrow">最高日访量日期</td>
          <td class="forumrowhighlight"><%=DayMaxDate%></td>
        </tr>
        <tr onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
          <td class="forumrow">最高时访量</td>
          <td class="forumrowhighlight"><%=HourMaxNum%></td>
        </tr>
        <tr onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
          <td class="forumrow">最高时访量时间</td>
          <td class="forumrowhighlight"><%=HourMaxTime%></td>
        </tr>
        <tr onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
          <td class="forumrow">省内访问人数</td>
          <td class="forumrowhighlight"><%=LiaoningNum%></td>
        </tr>
        <tr onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
          <td class="forumrow">国内访问人数</td>
          <td class="forumrowhighlight"><%=ChinaNum%></td>
        </tr>
        <tr onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
          <td class="forumrow">国外访问人数</td>
          <td class="forumrowhighlight"><%=OtherNum%></td>
        </tr>
        <tr>
          <td class="forumrow"></td>
          <td class="forumrowhighlight"></td>
        </tr>
        <tr onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
          <td class="forumrow">最常用浏览器</td>
          <td class="forumrowhighlight"><%=MaxBrw%> (<%=MaxBrwNum%>)</td>
        </tr>
		
        <tr onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
          <td class="forumrow">最常用操作系统</td>
          <td class="forumrowhighlight"><%=MaxSys%> (<%=MaxSysNum%>)</td>
        </tr>
        <tr onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
          <td class="forumrow">常用屏幕分辨率</td>
          <td class="forumrowhighlight"><%=MaxScr%> (<%=MaxScrNum%>)</td>
        </tr>
        <tr onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
          <td class="forumrow">访问最多的地区</td>
          <td class="forumrowhighlight"><%=MaxAre%> (<%=MaxAreNum%>)</td>
        </tr>
        <tr onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
          <td class="forumrow">访问最多的页面</td>
          <td class="forumrowhighlight"><% If MaxWeb="直接输入或书签导入" Then%>
            <%=Left(MaxWeb,40)%> (<%=MaxWebNum%>)
            <%Else%>
            <a href="<%=MaxWeb%>"><%=Left(MaxWeb,40)%></a> (<%=MaxWebNum%>)
          <%End If%></td>
        </tr>
  </table>
<br>
<!--<Script language="javascript" src="Stat.asp"></Script>-->
</div>
</BODY>
</HTML>
💿 文件大小 2765 K
👤 上传用户 yeling023
📂 所属分类企业管理
🏷️ 相关标签

#html #ASP #站点 #二次开发
⌨️ 快捷键说明

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