fydetal.asp

一个用户访问记录程序 基本功能 就是记录客户访问情况

<!--#include file="top.asp" -->
<%
'******************************
'
'      飞越访客多用户统计系统
'    飞越   [e-mail] 
'        www.pwsite.net
'
'     版权所有: 动力在线
'
'******************************
%>
<%if request("view")<>"" then
view=request("view")
url1="?view="&view&"&"
else
url1="?"
end if
if errornum<>1 then%>
<div align="center">
<table  border=1 borderColor=<%=tdc2%> cellPadding=4 cellSpacing=1 width=<%=tdc3%> style="border-collapse: collapse" align=center >
  <tr>
    <td colspan="5" align="center" <%=hColor1%> class=tdc1 height="23">详细记录(只显示最新 <%=scount%> 条记录)</td>
  </tr>
  <tr class=tdc1 >
    <td height="22" width="22%" <%=hColor2%>>
    <p align="center" >时间 </td>
    <td height="22" width="12%" <%=hColor2%>>
    <p align="center">操作系统</td>
    <td <%=hColor2%> height="20" width="10%">
    <p align="center">浏览器</td>
    <td height="22" width="15%" <%=hColor2%>>
    <p align="center">来访ip</td>
    <td <%=hColor2%> height="22">
    <p align="center">来源地址</td>
  </tr>
<%  page=request.querystring("page")
  if page="" then
  page=1
  end if
  pages = ""&t_page&""
  
  sqlt = "select count(*) as tt from fcount where fuser='"&view&"'"		  	 
    set rst=conn.execute(sqlt)
		  	  tt=rst("tt")
		  	  set rst=nothing
		  	  
		  	  if tt>scount then
		  	 for i=1 to (tt-scount)
		  	 strsql = "delete from fcount where fid  =(select min(fid) from fcount where fuser='"&view&"')"
        conn.Execute (strsql)
        next
         end if
         
Set rs = Server.CreateObject("ADODB.Recordset")
    sql="select fwindows,ftime,furl,fip,fsystem from fcount where fuser='"&view&"' order by ftime desc"
    rs.Open sql,conn,1,1
    rs.pagesize = pages 
    if not(rs.eof or rs.bof) then
maxpagecount=rs.pagecount
rs.absolutepage = page 
    rcount1=0
pagestart=page-5
pageend=page+5
if pagestart<1 then
pagestart=1
end if
if pageend>maxpagecount then
pageend=maxpagecount
end if
rcount=rs.RecordCount
    do while not rs.eof and rcount1 <rs.pagesize

%>
  <tr>
    <td class=tdc bgcolor=<%=tcolor2%> height="22" width="22%"><%=rs("ftime")%></td>
    
    <td class=tdc bgcolor=<%=tcolor2%> height="22" width="12%"><%=rs("fwindows")%></td>
    
    <td class=tdc bgcolor=<%=tcolor2%> height="22" width="10%"><%=rs("fsystem")%></td>
    
    <td class=tdc bgcolor=<%=tcolor2%> height="22" width="15%"><%=rs("fip")%></td>
    <td class=tdc bgcolor=<%=tcolor2%> height="22"><a href='<%=rs("furl")%>' target=_blank><%=rs("furl")%></a></td>
  </tr>

   <%   rs.movenext
   rcount1=rcount1+1
   loop
   set rs=nothing%>
   <tr  align="left"> 
            <td colspan="5" bgcolor=<%=tColor1%> class=tdc > <a href=<%=url1%>page=1><<</a>
            <% for i=pagestart to pageend
            if i=0 then 
            i=1
            end if
            strurl="<a href="&url1&"page="&i&">["&i&"]</a>"
response.write strurl
response.write " "
 next
            %><a href=<%=url1%>page=<%=maxpagecount%>>>></a> ..页次:<%=page%>/<%=maxpagecount%>页   每页:<%=pages%>  总访问人数:<%=rcount%></td></tr>
<%end if%>
</table>
</div>
<%else%>
 <!--#include file="error.asp" -->
<%end if%><!--#include file="bq.asp" -->