js.asp

来自「吻宇考试管理系统源码 吻宇考试管理系统源码」· ASP 代码 · 共 65 行

<!--#include file="conn.asp"-->
<%
dim  rs,sql
dim  down,wz,gg,ks,kemu,zong,today,yes,tm,lm
SET rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From js" ,conn,1,3
if Request.Cookies("IsFirst")=fail then 
LASTIP = RS("LASTIP")
NEWIP = REQUEST.servervariables("REMOTE_ADDR") 

IF CSTR(Month(RS("DATE"))) <> CSTR(Month(DATE())) THEN    

       RS("DATE") = DATE()                      
       RS("YESTERDAY") = RS("TODAY")            
       RS("BMONTH") = RS("MONTH")
       RS("MONTH") = 1                          
       RS("TODAY") = 1                          
       RS.Update                                
ELSE
   IF CSTR(Day(RS("DATE"))) <> CSTR(Day(DATE())) THEN    
       RS("DATE") = DATE()                      
       RS("YESTERDAY") = RS("TODAY")            
       RS("TODAY") = 1                          
       RS.Update                                
   END IF
response.Cookies("IsFirst")=true
END IF

RS("TOTAL")  =  RS("TOTAL") + 1               
RS("TODAY") =  RS("TODAY") + 1               
RS("MONTH")  =  RS("MONTH") + 1               
RS.Update                                    
end if
zong=RS("TOTAL")
today=RS("TODAY")
yes=RS("YESTERDAY")
tm=RS("MONTH")
lm=RS("BMONTH")
rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from down"
rs.open sql,conn,1,1
down=rs.recordcount
rs.close
sql="select * from wz"
rs.open sql,conn,1,1
wz=rs.recordcount
rs.close
sql="select * from gonggao"
rs.open sql,conn,1,1
gg=rs.recordcount
rs.close
sql="select * from user"
rs.open sql,conn,1,1
ks=rs.recordcount
rs.close
sql="select * from kemu"
rs.open sql,conn,1,1
kemu=rs.recordcount
rs.close
set rs=nothing
%>
document.write('○-考试科目总数：<%=kemu%>门<br>○-考试公告总数：<%=gg%>条<br>○-本站考生总数：<%=ks%>位<br>○-相关下载总数：<%=down%>条<br>○-教学文章总数：<%=wz%>条<br>○-本站总访问：<%=zong%>人<br>○-今日访问量：<%=today%>人<br>○-昨日访问量：<%=yes%>人<br>○-本月访问量：<%=tm%>人<br>○-上月访问量：<%=lm%>人<br>');