<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%>
<%
Dim RecToday
Dim RecToday_cmd
Dim RecToday_numRows
Set RecToday_cmd = Server.CreateObject ("ADODB.Command")
RecToday_cmd.ActiveConnection = MM_connCountSystem_STRING
RecToday_cmd.CommandText = "SELECT COUNT(count_id) as countNum FROM webCount WHERE Year(count_time) = Year(Now()) AND Month(count_time) = Month(Now()) AND Day(count_time) = Day(Now())"
RecToday_cmd.Prepared = true
Set RecToday = RecToday_cmd.Execute
RecToday_numRows = 0
%>
<%
Dim RecThisMonth
Dim RecThisMonth_cmd
Dim RecThisMonth_numRows
Set RecThisMonth_cmd = Server.CreateObject ("ADODB.Command")
RecThisMonth_cmd.ActiveConnection = MM_connCountSystem_STRING
RecThisMonth_cmd.CommandText = "SELECT COUNT(count_id) as countNum FROM webCount WHERE Year(count_time) = Year(Now()) AND Month(count_time) = Month(Now())"
RecThisMonth_cmd.Prepared = true
Set RecThisMonth = RecThisMonth_cmd.Execute
RecThisMonth_numRows = 0
%>
<%
Dim RecThisYear
Dim RecThisYear_cmd
Dim RecThisYear_numRows
Set RecThisYear_cmd = Server.CreateObject ("ADODB.Command")
RecThisYear_cmd.ActiveConnection = MM_connCountSystem_STRING
RecThisYear_cmd.CommandText = "SELECT COUNT(count_id) as countNum FROM webCount WHERE Year(count_time) = Year(Now())"
RecThisYear_cmd.Prepared = true
Set RecThisYear = RecThisYear_cmd.Execute
RecThisYear_numRows = 0
%>
<%
Dim RecTotal
Dim RecTotal_cmd
Dim RecTotal_numRows
Set RecTotal_cmd = Server.CreateObject ("ADODB.Command")
RecTotal_cmd.ActiveConnection = MM_connCountSystem_STRING
RecTotal_cmd.CommandText = "SELECT COUNT(count_id) as countNum FROM webCount"
RecTotal_cmd.Prepared = true
Set RecTotal = RecTotal_cmd.Execute
RecTotal_numRows = 0
%>
<%
if Session("countOK") <> 1 then
Set Command1 = Server.CreateObject ("ADODB.Command")
Command1.ActiveConnection = MM_connCountSystem_STRING
Command1.CommandText = "INSERT INTO webCount (count_ip) VALUES ('"&Request.ServerVariables("REMOTE_ADDR")&"') "
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
Session("countOK") = 1
end if
%>
<%
RefreshTime = 30
Application.Lock
If Session("UserID") = "" Then
If Application("TotalUsers") = "" Then Application("TotalUsers") = 0
Application("TotalUsers") = Application("TotalUsers") + 1
Session("UserID") = Application("TotalUsers")
End If
Application(Session("UserID") & "LastAccess") = Timer
If RefreshTime < 10 Then RefreshTime = 10
IdleTime = RefreshTime * 3
UserOnLine = 0
For I = 1 To Application("TotalUsers")
If Application(I & "LastAccess") <> "" Then
If Abs(Application(I & "LastAccess") - Timer) < IdleTime Then
UserOnLine = UserOnLine + 1
Else
Application(I & "LastAccess") = ""
End If
End If
Next
Application.UnLock
%>
<%Response.Write("")%>921集集大震檔案徵集資料線上展覽
