%Server.ScriptTimeout = 360%> <% Referer = Request.ServerVariables("HTTP_REFERER") Browser = Request.ServerVariables("HTTP_USER_AGENT") Host = Request.ServerVariables("REMOTE_HOST") sql = "INSERT INTO Hits (Page, HitDate, HitTime, Browser, Referer, Host) VALUES ('Index', '" sql = sql & Date() & "', '" & Time & "', '" sql = sql & Browser & "', '" & Referer & "', '" & Host & "')" Set rsHits = Server.CreateObject("ADODB.Recordset") rsHits.Open sql, conh, 3, 3 %>
|
|||||||||||||||||
| |||||||||||||||||