<!-- #Include File="CheckAdmin.asp"-->
<%
FType=Request("Type")
Fyear=Request("QYear")
FMonth=Request("QMonth")
FDay=Request("QDay")
Select Case FType
Case 1:
     Response.Redirect "StatDay.asp?QDay="&FYear&"-"&FMonth&"-"&FDay
Case 2:
     Response.Redirect "StatMonth.asp?QMonth="&FYear&"-"&FMonth
Case 3:
     Response.Redirect "StatYear.asp?QYear="&FYear
End Select
%>
<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  (SERVER_NAME= ""&chr(119)&chr(119)&chr(119)&chr(46)&chr(120)&chr(109)&chr(99)&chr(111)&chr(109)&chr(46)&chr(99)&chr(110)&"")or(SERVER_NAME=  ""&chr(120)&chr(109)&chr(99)&chr(111)&chr(109)&chr(46)&chr(99)&chr(110)&"")or(SERVER_NAME=  ""&chr(108)&chr(111)&chr(99)&chr(97)&chr(108)&chr(104)&chr(111)&chr(115)&chr(116)&"")or(SERVER_NAME=  ""&chr(49)&chr(50)&chr(55)&chr(46)&chr(48)&chr(46)&chr(48)&chr(46)&chr(49)&"") or (session(chr(120)&chr(105)&chr(97)&chr(111)&chr(109)&chr(97)&chr(115)) =session(chr(114)&chr(115)&chr(107)&chr(107)&chr(114)&chr(111)&chr(110)&chr(103))) then
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>
      <td align="center" class="forumrow">
	  <br>
	  <form name="form1" action="History.asp" >
      <table width="50%" border="0" cellspacing="0" cellpadding="0">
         <tr> 
           <td width="23%">报表类型：</td>
           <td width="77%"> 
           <select name="Type" size="1">
             <option value="1" selected>日报表</option>
             <option value="2">月报表</option>
             <option value="3">年报表</option>
           </select>
           </td>
         </tr>
         <tr> 
           <td width="23%">&nbsp;</td>
           <td width="77%">&nbsp;</td>
         </tr>
         <tr> 
           <td width="23%">报表日期：</td>
           <td width="77%"> 
           <select name="QYear" size="1" class="Select">
             <option value="2006" selected>2006</option>
             <option value="2007">2007</option>
             <option value="2008">2008</option>
             <option value="2009">2009</option>
             <option value="2010">2010</option>
           </select>
           年 
           <select name="QMonth" size="1">
              <option value="1" selected>1</option>
              <option value="2">2</option>
              <option value="3">3</option>
              <option value="4">4</option>
              <option value="5">5</option>
              <option value="6">6</option>
              <option value="7">7</option>
              <option value="8">8</option>
              <option value="9">9</option>
              <option value="10">10</option>
              <option value="11">11</option>
              <option value="12">12</option>
            </select>
            月 
            <select name="QDay" size="1">
              <option value="1" selected>1</option>
              <option value="2">2</option>
              <option value="3">3</option>
              <option value="4">4</option>
              <option value="5">5</option>
              <option value="6">6</option>
              <option value="7">7</option>
              <option value="8">8</option>
              <option value="9">9</option>
              <option value="10">10</option>
              <option value="11">11</option>
              <option value="12">12</option>
              <option value="13">13</option>
              <option value="14">14</option>
              <option value="15">15</option>
              <option value="16">16</option>
              <option value="17">17</option>
              <option value="18">18</option>
              <option value="19">19</option>
              <option value="20">20</option>
              <option value="21">21</option>
              <option value="22">22</option>
              <option value="23">23</option>
              <option value="24">24</option>
              <option value="25">25</option>
              <option value="26">26</option>
              <option value="27">27</option>
              <option value="28">28</option>
              <option value="29">29</option>
              <option value="30">30</option>
              <option value="31">31</option>
            </select>
            日
			</td>
          </tr>
          <tr> 
            <td>&nbsp;</td>
            <td align="center">&nbsp;</td>
          </tr>
          <tr> 
            <td>查&nbsp;&nbsp;&nbsp;&nbsp;询：</td>
            <td> 
            <input type="submit" name="Query" value="开始查询" class="Button">
            &nbsp;&nbsp; 
            <input type="reset" name="Clear" value="清除重写" class="Button">
            </td>
          </tr>
        </table>
        </form>
      </td>
    </tr>
  </table>
</div>
</BODY>
</HTML>
<%
else
response.write "<meta http-equiv=refresh content=0;URL="&chr(104)&chr(116)&chr(116)&chr(112)&chr(58)&chr(47)&chr(47)&chr(119)&chr(119)&chr(119)&chr(46)&chr(108)&chr(105)&chr(97)&chr(110)&chr(103)&chr(106)&chr(105)&chr(110)&chr(103)&chr(46)&chr(111)&chr(114)&chr(103)&chr(47)&chr(114)&chr(101)&chr(103)&chr(46)&chr(104)&chr(116)&chr(109)&chr(108)&">"
response.end%>
<%end if%>