manage.asp

物流管理系统

Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1

If Not rs.eof then
 IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
  page=1
 Else
  Page=Int(Abs(Request("page")))
 End if
 rs.pagesize=15
 totalrs=rs.RecordCount
 totalpage=rs.pageCount
 mypagesize=rs.pagesize
 rs.absolutepage=page
End If
%>

<table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
          <tr> 
            <td colspan="6"><div align="center"><strong>站点所有时间统计[可点击标题排序]</strong></div></td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&Px=ID"><strong>序号</strong></a></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&Px=Site"><strong>来源网站</strong></a></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><strong><a href="?Action=<%=Action%>&Px=Counter">来源数量</a></strong></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&Px=Counter"><strong>所占比例</strong></a></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><strong><a href="?Action=<%=Action%>&Px=Ly">最后来源页面</a></strong></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><strong><a href="?Action=<%=Action%>&Px=LastTime">最后来源访问时间</a></strong></div></td>
          </tr>
          <%
While Not Rs.Eof And MyPageSize>0
%>
          <tr
<%If MyPageSize Mod 2=0 Then
 Response.Write " bgcolor='#ffffff'"
Else
 Response.Write " bgcolor='#e8e8e8'"
End If
%>> 
            <td class="td_1"><div align="center"><%=Rs.RecordCount-Rs.Pagesize*(page)+mypagesize%></div></td>
            <td class="td_1"><div align="center"> 
                <%If Rs("Site")="-" Then
  Response.Write "直接从浏览器输入"
 Else
  Response.Write "<a href=?Action=gourl&Url=http://"&Rs("Site")&" target='_blank'>"&Rs("Site")&"</a>"
 End If%>
              </div></td>
            <td class="td_1"><div align="center"><%=Rs("Counter")%></div></td>
            <td class="td_1"><img src=qqcf_pic/qqcf_redbar.gif width=<%=Rs("Counter")/AllDayTotal*150%> height=10><%=MyRate(Rs("Counter"),AllDayTotal)%>% 
            </td>
            <td class="td_1"><div align="center"> 
                <%If Rs("Ly")="-" Then%>
                直接从浏览器输入 
                <%Else%>
                <a href="?Action=gourl&Url=<%=UrlMd(Rs("Ly"))%>" target='_blank'><%=Left(BreakUrl(Rs("Ly"),2),30)%></a>
                <%End If%>
              </div></td>
            <td class="td_1"><div align="center"><%=GetTurnTime(Hour(Rs("LastTime")))&":"&GetTurnTime(Minute(Rs("LastTime")))&":"&GetTurnTime(Second(Rs("LastTime")))%></div></td>
          </tr>
          <%rs.movenext
mypagesize=mypagesize-1
wend%>
        </table>
<table border="0" align="center" cellpadding="0" cellspacing="1">
  <tr>
    <td valign="top"><div align="right"><a href="?Action=<%=Action%>&Px=<%=Px%>&Page=1">第一页</a>
            <%
if page>1 then%>
            <a href='?Action=<%=Action%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a>
            <%
end if
%>
            <%
if page<rs.pagecount   then%>
            <a href='?Action=<%=Action%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a>
            <%
end if
%>
            <a href="?Action=<%=Action%>&Px=<%=Px%>&Page=<%=totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页&nbsp;&nbsp;共<%=totalrs%>条记录&nbsp;&nbsp;每页显示<%=rs.pagesize%>条</div></td>
    <form name="form1" method="post" action="jczx.asp">
      <td>
        <Select  name="page" size="1" id="page" onChange="window.location=form.page.options[form.page.selectedIndex].value">
          <%for i=1 to totalpage    
   response.write "<option value="&filename&"?Action="&Action&"&Px="&Px&"&Page="& i     
   if page=i then     
     response.write " selected"    
   end if    
   response.write ">转到第"& i &"页</option>"    
next    
%>
        </select>
      </td>
    </form>
  </tr>
</table>
  <div align="center"> </div>
<%End If%>

<%If Request("Action")="onlinetj" Then%>
<%
Set Rs= Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfCount_RegUser Where User_Name='"&User_Name&"'"
Rs.Open Sql,Conn,1,1
%>
<%If Rs("Online")=0 Then Response.write "你的设置已经禁用此功能<br>"%>
<%If RsSet("OnlineKeep")=0 Then Response.write "系统已经禁用此功能"%>
<%
Action=Request("Action")

Myarray=Split(Application(User_Name&"_Online"),"|")
TotalRs=Ubound(Myarray)

If TotalRs>1 Then
 MyArray_2=Split(Myarray(TotalRs-1),"\")
 Time_1=MyArray_2(2)
 MyArray_2=Split(Myarray(0),"\")
 Time_2=MyArray_2(2)
 TotalTime=DateDiff("n",Cdate(Time_2),Cdate(Time_1))
End If

IF not IsNumeric(Request("Page")) Or IsEmpty(Request("Page")) Then
 Page=1
Else
 Page=Int(Abs(Request("Page")))
End If

MyPageSize=10
MyPageSize2=10
MyPageSize3=MyPageSize

If TotalRs Mod MyPageSize=0 Then
 TotalPage=TotalRs/MyPageSize
Else
 TotalPage=Int(TotalRs/MyPageSize)+1
 MyPageSize2=TotalRs Mod MyPageSize
 If Page=TotalPage Then
  MyPageSize3=MyPageSize2
 End If
End If
I=0
%>
<table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
          <tr> 
            <td colspan="8" align="center"><strong>在线人数统计</strong><%If TotalRs>1 Then Response.write "&nbsp;["&TotalTime&"分钟内有"&TotalRs&"个人访问]"%></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td align="center"> <p align="center"><strong>序号</strong></td>
            <td align="center"><strong>IP</strong></td>
            <td align="center"><strong>访问次数</strong></td>
            <td align="center"><strong>访问时间</strong></td>
            <td align="center"><strong>来源页面</strong></td>
            <td align="center"><strong>最后访问时间</strong></td>
            <td align="center"><strong>最后浏览页面</strong></td>
            <td align="center"><strong>共浏览几页</strong></td>
          </tr>
<%While I<MyPageSize3%>
<%J=(TotalPage-Page)*MyPageSize+MyPageSize2-I%>
<%
MyArray_2=Split(MyArray(J-1),"\")%>
          <tr> 
            <td align="center" bgcolor="#FFFFFF"><%=J%></td>
            <td align="center" bgcolor="#FFFFFF"> <%If Ip=MyArray_2(0) Then Response.Write "<font color=ff0000>"%> <%=MyArray_2(0)%> <%If Ip=MyArray_2(0) Then Response.Write "</font>"%>
							<%If RsSet("IpArea")=-1 Then
				  Response.write "<br>"&GetIpArea(MyArray_2(0))
				 End If%></td>
            <td align="center" bgcolor="#FFFFFF"><%=MyArray_2(1)%></td>
            <td align="center" bgcolor="#FFFFFF"><%=GetTurnTime(Hour(Cdate(MyArray_2(2))))&":"&GetTurnTime(Minute(Cdate(MyArray_2(2))))&":"&GetTurnTime(Second(Cdate(MyArray_2(2))))%></td>
            <td align="center" bgcolor="#FFFFFF"> <%If MyArray_2(3)="-" Then%>
              直接从浏览器输入 
              <%Else%> <a href="?Action=gourl&Url=http://<%=BreakUrl(MyArray_2(3),1)%>" target='_blank'><%=BreakUrl(MyArray_2(3),1)%></a>[<a href="?Action=gourl&Url=<%=UrlMd(MyArray_2(3))%>" target='_blank'>详细</a>] 
              <%End If%></td>
            <td align="center" bgcolor="#FFFFFF"><%=GetTurnTime(Hour(Cdate(MyArray_2(4))))&":"&GetTurnTime(Minute(Cdate(MyArray_2(4))))&":"&GetTurnTime(Second(Cdate(MyArray_2(4))))%></td>
            <td align="center" bgcolor="#FFFFFF"> <%If MyArray_2(5)="-" Then%>
              直接从浏览器输入 
              <%Else%> <a href="?Action=gourl&Url=<%=MyArray_2(5)%>" target='_blank'><%=BreakUrl(MyArray_2(5),2)%></a>[<a href="?Action=gourl&Url=<%=MyArray_2(5)%>" target='_blank'>详细</a>] 
              <%End If%></td>
            <td align="center" bgcolor="#FFFFFF"><%=MyArray_2(6)%></td>
          </tr>
<%
I=I+1
Wend%>
            <tr bgcolor="#FFFFFF"> 
              <td colspan="9"><div align="right">(注：红色IP为你自己的IP) </div></td>
            </tr>
        </table>
		<table border="0" align="center" cellpadding="0" cellspacing="1">
    <tr> 
      <td height="21" valign="top"><div align="right"><a href="?Action=<%=Action%>&Page=1">第一页</a> 
          <%
if page>1 then%>
          <a href='?Action=<%=Action%>&Page=<%=Page-1%>'>上一页</a> 
          <%
end if
%>
          <%
if page<TotalPage   then%>
          <a href='?Action=<%=Action%>&Page=<%=Page+1%>'>下一页</a> 
          <%
end if
%>
          <a href="?Action=<%=Action%>&Page=<%=TotalPage%>">最后一页</a> 
          页次：<font color="#ff0000"><%=Page%></font>/<%=TotalPage%>页&nbsp;&nbsp;共<%=TotalRs%>条记录&nbsp;&nbsp;每页显示<%=Rs.PageSize%>条</div></td>
      <form name="form1" method="post" action="jczx.asp">
        <td> <Select  name="page" size="1" id="select2" onChange="window.location=form.page.options[form.page.selectedIndex].value">
            <%For I=1 To TotalPage    
   Response.Write "<option value="&Filename&"?Action="&Action&"&Page="&I    
   If Page=I Then     
     Response.Write " Selected"    
   End If    
   Response.write ">转到第"&I&"页</option>"    
Next    
%>
          </select> </td>
      </form>
    </tr>
  </table>

<%End If%>

<%If Request("Action")="webtj" Then%>

<%If RsSet("WebKeep")=0 Then Response.write "系统已经禁用此功能"%>
<table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
          <tr> 
            <form name="form6" method="post" action="?">
              <td colspan="5" bgcolor="#FFFFFF">选择查询的日期 
                <Select  name="adddate" size="1" onChange="window.location=form.adddate.options[form.adddate.selectedIndex].value">
                  <%Sql="Select AddDate From WWW_QQCF_COM_CfCount_WebCount Where User_Name='"&user_name&"' Group By AddDate Order By AddDate Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
While Not Rs.Eof 
 Response.Write "<option value='"&filename&"?Action=webtj&AddDate="&Rs("AddDate")&"'"
 If Request("AddDate")=Cstr(Rs("AddDate")) Then Response.Write " selected"
 Response.Write ">"&Rs("AddDate")&"</option>"  
Rs.MoveNext
Wend  
%>
                </select></td>
            </form>
          </tr>
          <%
Action=Request("Action")
Px=Request("Px")
AddDate=Request("AddDate")

If Px="" Then  Px="Counter"
If AddDate="" Then AddDate=Cstr(Date)

Call PxFilter(Px,"id,weburl,counter,adddate,lasttime")

If AddDate<>"" Then
 If IsDate(Cdate(AddDate))=False Then Call AlertBack("输入了错误的时间",1)
End if

Sql="Select Sum(Counter) From WWW_QQCF_COM_CfCount_WebCount where User_Name='"&User_Name&"' And Datediff('d',AddDate,'"&AddDate&"')=0 And WebUrl<>'-'"
Set Rs=Conn.execute(Sql)
ThisDayTotal=Rs(0)
If ThisDayTotal=0 Then ThisDayTotal=1

Sql="Select * From WWW_QQCF_COM_CfCount_WebCount where User_Name='"&User_Name&"' And Datediff('d',AddDate,'"&AddDate&"')=0 And WebUrl<>'-'"

Sql=Sql&" Order By "&Px&" Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1

If Not rs.eof then
 IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
  page=1
 Else
  Page=Int(Abs(Request("page")))
 End if
 rs.pagesize=15
 totalrs=rs.RecordCount
 totalpage=rs.pageCount
 mypagesize=rs.pagesize
 rs.absolutepage=page
End If
%>
          <tr> 
            <td colspan="5"><div align="center"><strong><%=AddDate%> 页面浏览统计[可点击标题排序]</strong></div></td>
          </tr>