IT learner website access statistical system Ver 1.6 BUG

xiaoxiao2021-03-05  23

Many customers in our company use "IT learner website access statistics system Ver 1.6" for traffic statistics. But there is often a customer's anti-correct statistical data from our company's website. I have to download "IT learner website access statistics system Ver 1.6" to see where the problem is. I found that there may be a bug in the file "CLS_STAT.ASP".

The following method is to achieve statistics. Public SUB Startcount Checkvpage () init () ip = getip (ip)

If isvisited (ip) Then CountPage "Pageview", Vpage Output Response.end Else CountPage "Visitor", vpage endiff

'Handling Referer Information getReferer () user_agent = hx.checkstr (Request.ServerVariables ("http_user_agent"), 250) operating system, browser, screen width getclient ()' handling source area getWhere () VHOUR = HOUR (now () )

'Add a record to the Visitor table HX.Execute ("Update CC_V SET IP ='" & IP & ", Referer = '" & Rereer & ", Page ='" & VPAGE & "", User_Agent = '"& user_Agent &", DATEANDTIME = "& SQLNOWSTRING &" WHERE ID = (Select Top 1 ID from CC_V Order By DateAndtime ASC, ID ASC) ") 'Handling Client Information HX.execute (" Update CC_C SET CC = CC 1 WHERE ID in "& client_id)' processing day Statistics HX.execute ("Update CC_D SET VITOR = Visitor 1 WHERE CDATE =" & SqldateString) 'Handling Hours Information HX.execute "Update CC_H set CTH = CTH 1, CCH = CCH 1, vTIME =" & Sqlnowstring & "Where Hour = "& vHour Output

End Sub

If IsVisited (IP) is true, it will not be counted.

Let's take a look at the isvisited (ip) method.

Private function isvisited (ip) 'Judging whether it is necessary to re-count DIM RS, SQL if len (session.contents (cachename)) = 0 Then session.contents (cachename) = 1 SQL = "SELECT IP, VTIME, CIP from CC_i Where IP = '"& IP &"' "SET RS = HX.GETRS (SQL, 1, 2) IF RS.EOF THEN RS.ADDNEW RS (0) = IP RS (1) = now () rs.Update isvisited = False Elseif Datediff ("H", RS (1), NOW ()> ExpiRetime Then RS (1) = NOW () RS (2) = rs (2) 1 rs.Update isvisited = false else isvisited = true end IF = not '' However, if you use this statistical user, if you put a number of ads in other websites, the roots can only count the clicks (unless the user turns the IE again, then click the ad). I don't know if this problem is still existing in other versions. Users who wish to use this system for traffic statistics causing attention.

转载请注明原文地址:https://www.9cbs.com/read-35924.html

New Post(0)