NASA-WEDDING婚禮紀錄工作室

<%@LANGUAGE="VBSCRIPT"%> <% Dim RecToday Dim RecToday_cmd Dim RecToday_numRows Set RecToday_cmd = Server.CreateObject ("ADODB.Command") RecToday_cmd.ActiveConnection = MM_conn_Count_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 RecTotal Dim RecTotal_cmd Dim RecTotal_numRows Set RecTotal_cmd = Server.CreateObject ("ADODB.Command") RecTotal_cmd.ActiveConnection = MM_conn_Count_STRING RecTotal_cmd.CommandText = "SELECT COUNT(count_id) as countNum FROM webCount" RecTotal_cmd.Prepared = true Set RecTotal = RecTotal_cmd.Execute RecTotal_numRows = 0 %> <% Dim RecThisMonth Dim RecThisMonth_cmd Dim RecThisMonth_numRows Set RecThisMonth_cmd = Server.CreateObject ("ADODB.Command") RecThisMonth_cmd.ActiveConnection = MM_conn_Count_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_conn_Count_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 %> <% if Session("countOK") <> 1 then Set Command1 = Server.CreateObject ("ADODB.Command") Command1.ActiveConnection = MM_conn_Count_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("")%> NASA-WEDDING婚禮紀錄工作室

[ 2010.02.22 ]

TEST TEST TESEST TESTTES 近期開放.

[ 2010.02.22 ]

TEST TEST TESEST TESTTES 近期開放.

[ 2010.02.22 ]

TEST TEST T TESEST TESTTES 近期開放.

[ 2010.02.22 ]

TEST TEST TEST TST TESTTES 近期開放.

[ 2009.06.28 ]

TEST TEST TESEST TESTTES 近期開放...

[ 06.28 ]

[ 06.19 ]

[ 05.23 ]

[ 03.21 ]

[ 11.29 ]

| 總參觀人數：<%=(RecTotal.Fields.Item("countNum").Value)%> 人，今年：<%=(RecThisYear.Fields.Item("countNum").Value)%>人，本月：<%=(RecThisMonth.Fields.Item("countNum").Value)%> 人，今日：<%=(RecToday.Fields.Item("countNum").Value)%> 人，目前線上人數：<%=UserOnLine%> 人 |NASA-SOHO電腦多媒體工作室製作維護

<% RecToday.Close() Set RecToday = Nothing %> <% RecTotal.Close() Set RecTotal = Nothing %> <% RecThisMonth.Close() Set RecThisMonth = Nothing %> <% RecThisYear.Close() Set RecThisYear = Nothing %>