home *** CD-ROM | disk | FTP | other *** search
/ PC User 2001 August / APC_Aug2001_CD1.iso / workshop / insite / files / code.txt next >
Encoding:
Text File  |  2001-05-31  |  2.6 KB  |  86 lines
  1. --------------------------------------------------------------------------------------------
  2. Listing 1 - the global.asa page
  3. --------------------------------------------------------------------------------------------
  4.  
  5. <script language="vbscript" runat=server>
  6. Sub Session_OnStart 
  7.     strReferrer = Trim(Request.ServerVariables("HTTP_REFERER"))
  8.     if strReferrer = "" then
  9.         strReferrer = "None"
  10.     end if
  11.     Set gConn = Server.CreateObject("ADODB.Connection")
  12.     gConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
  13.                 & Server.MapPath("data\stats.mdb")
  14.     strSQL = "insert into userdata (UserIP,EntryPage,Referrer,Browser)" _
  15.             & " VALUES ('" _
  16.             & Trim(Request.ServerVariables("REMOTE_HOST")) & "','" _
  17.             & Trim(Request.ServerVariables("Script_Name")) & "','" _
  18.             & strReferrer & "','" _
  19.             & Trim(Request.ServerVariables("HTTP_USER_AGENT")) & "')"
  20.     gConn.execute(strSQL)
  21.     gConn.close
  22.      set gConn = nothing
  23. End Sub
  24. </script>
  25.  
  26. --------------------------------------------------------------------------------------------
  27. Listing 2 - Data summary for stats.asp
  28. --------------------------------------------------------------------------------------------
  29. <%
  30. showCount = 5
  31. loopCount = 0
  32. '--------------------------------------------------------------
  33.     Set Conn = Server.CreateObject("ADODB.Connection")
  34.     Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
  35.               & Server.MapPath("data/stats.mdb")
  36.     strSQL = "SELECT count(id) as cid, referrer FROM userData" _
  37.               & " group by referrer order by count(id) desc"
  38.     set rsTemp = Conn.execute(strSQL)
  39. '--------------------------------------------------------------
  40.     if not rsTemp.eof then
  41.     Do While not rsTemp.EOF and loopCount < showCount
  42.         IF rsTemp("referrer") = "None" Then
  43.             strRef = "<li> Bookmarked URL" _
  44.                    & " : " &  rsTemp("cid")
  45.         Else
  46.             strRef = "<li> " & rsTemp("referrer") _
  47.                    & " : " &  rsTemp("cid")
  48.         End If
  49.         response.write strRef
  50.     rsTemp.MoveNext
  51.     loopCount = loopCount + 1
  52.     loop
  53.     end if
  54.     rsTemp.Close
  55.     Set rsTemp = Nothing
  56.     loopCount = 0
  57. %>
  58. --------------------------------------------------------------------------------------------
  59. Listing 3 - Displaying all server variables
  60. --------------------------------------------------------------------------------------------
  61.  
  62. <TABLE>
  63. <TR>
  64.  <TD>
  65.      <font size="2"><B>Server Variable</B>
  66.  </TD>
  67.  <TD>
  68.      <font size="2"><B>Value</B>
  69.  </TD>
  70. </TR>
  71. <% For Each var In Request.ServerVariables %>
  72. <TR valign=top>
  73.  <TD><font size="2">
  74.      <%= var %>
  75.  </TD>
  76.  <TD><font size="2">
  77.      <%= Request.ServerVariables(var) %>
  78.  </TD>
  79. </TR>
  80. <% Next %>
  81. </TABLE>
  82.  
  83.  
  84.  
  85.  
  86.