崑山科技大學電子工程系

<%@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 conuntNum 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("")%> 崑山科技大學電子工程系




中文版 English 崑山科技大學
崑山科技大學電子工程系地址︰(710) 台南縣永康市大灣路949號電話︰(06) 2050521 傳真︰(06) 2050250 E-mail: ksitele@mail.ksu.edu.tw copyright©2008 department of electronic engineering® Taiwan

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