xshjsys.asp

新世纪影院源码

<table border="0" cellpadding="0" cellspacing="1" width="142" >
              <tr>
                <td width="142" height="21" align="center">¤<font size="4">&nbsp;</font> 
                  系统信息</td>                                                                    
              </tr>
                <tr>
                <td width="142" height="22" bgcolor="#FFFFFF" valign="middle" align="left"><!--#include file="onLine.asp"-->　</td>   
              </tr>
<%
sql="select * from counters where id=1"
rs.open sql,conn,1,3
if rs.eof or bof then
rs.addnew
rs("lastip")=request.servervariables("REMOTE_ADDR")
rs.update
end if
total=rs("total")
today=rs("today")
yesterday=rs("yesterday")
months=rs("month")
bmonth=rs("bmonth")
lastip=rs("lastip")
datenow=rs("datenow")
inputdate=rs("inputdate")
starttime=rs("starttime")
nowdate=now()
localip=request.servervariables("REMOTE_ADDR")
timejg=datediff("h",nowdate,datenow)
'判断是否变化总数和今天的访问量、本月访问量
if localip<>lastip or timejg>1 then
rs("total")=rs("total")+1
rs("today")=today+1
rs("bmonth")=bmonth+1
rs.update
end if
'判断是否变化昨天的访问量
if day(nowdate)<>day(datenow) then
rs("yesterday")=yesterday+1
rs.update
end if
'判断是否变化月访问量
if month(nowdate)<>month(datenow) then
rs("month")=rs("bmonth")
rs.update
end if
rs("datenow")=now()
rs("inputdate")=now()
rs("lastip")=request.servervariables("REMOTE_ADDR")
rs.update
'重新读取统计数据
total=rs("total")
today=rs("today")
yesterday=rs("yesterday")
months=rs("month")
bmonth=rs("bmonth")
lastip=rs("lastip")
datenow=rs("datenow")
inputdate=rs("inputdate")
starttime=rs("starttime")
rs.close
sjjg=datediff("d",starttime,now())
'数据转换函数
Function GCounter( counter )
   Dim S, i, G
   s=cstr( counter )  
    For i = 1 to Len(S)
      G ="<IMG SRC=image/" & Mid(S, i, 1) & ".gif valign='bottom'>"
      response.write g
   Next
   End Function

%>

               <tr>
                <td width="142" height="22" bgcolor="#FFFFFF" valign="middle" align="left">系统共运行 <%
                response.write GCounter( sjjg )%> 天</td> 
              </tr>
              <tr>
                <td width="142" height="22" bgcolor="#FFFFFF" valign="middle" align="left">总访问量 <%
                response.write GCounter( total+1 )%> 　</td> 
              </tr>
              <tr>
                <td width="142" height="22" bgcolor="#FFFFFF" valign="middle" align="left">昨天访问量 <%
                response.write GCounter( yesterday+1 )%> 　 　 </td> 
                </tr>
                <tr>
                <td width="142" height="22" bgcolor="#FFFFFF" valign="middle" align="left">上月访问量 <%
                response.write GCounter( months+1 )%> 　　</td>   
              </tr>
               <tr>
                <td width="142" height="22" bgcolor="#FFFFFF" valign="middle" align="left">今天访问量 <%
                response.write GCounter( today+1 )%> 　　</td> 
              </tr>
              <tr>
                <td width="142" height="22" bgcolor="#FFFFFF" valign="middle" align="left">本月访问量 <%
                response.write GCounter( bmonth+1 )%> 　　　</td> 
              </tr>
              <tr>
                <td width="142" height="22" bgcolor="#FFFFFF" valign="middle" align="left">平均访问量 <%
                response.write GCounter( cint(total/sjjg)+1 )%> 　　 　 </td> 
                </tr>
                <tr>
                <td width="142" height="22" bgcolor="#FFFFFF" valign="middle" align="left">系统共有 
                <%
                sql="select id from movies"
                rs.open sql,conn,1,1
                if not rs.eof or bof then
                totalmovie=rs.recordcount
                else
                totalmovie=0
                end if
                response.write GCounter( cint(totalmovie) )
                rs.close
                
                %>                  
                部电影　</td> 
              </tr>
              <tr>
                <td width="142" height="22" bgcolor="#FFFFFF" valign="middle" align="left">今天更新 
                <%
                sql="select id from movies where dateandtime=date()"
                rs.open sql,conn,1,1
                if not rs.eof or bof then
                todayaddmovie=rs.recordcount
                else
                todayaddmovie=0
                end if
                response.write GCounter( cint(todayaddmovie) )
                rs.close
                
                %>                  
                部电影　　 </td> 
                </tr>

               </table>