Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Loko da Web

Statcountex 3.1

Por , em ASP Clássico

Recommended Posts

Loko da Web    1

Loko da Web
Postado

Bom dia!

 

Pessoal, estou montando um painel administrativo, e vou incluir um sistema de estatisticas pra verificar a audiencia no site. Como não tenho muito experiencia sobre esse tipo de rotina, baixei da net, recomendado por muito programadores, apesar de ser antigo.

 

É o StatCounteX 3.1, um sistema que detalha bastante todos os acessos no site, vi alguns exemplos funcionando. Resolvi baixar, e coloquei direto no datacenter, pra verificar a eficacia, funciona 100%, nenhum erro.

 

O porem, é que eu não sei como configurar pra o sistema comece a "cadastrar" as visitas. Coloquei todos os arquivos no diretorio aonde esta o default.asp, e navego na pagina principal, e não aparece nada.

 

Alguem ja utilizou esse sistema, se puderem me ajudar agradeço muito. Abaixo segue o link do site do desenvolvedor.

 

http://2enetworx.com/dev/projects/statcountex.asp

Compartilhar este post

Link para o post
Compartilhar em outros sites

Loko da Web    1

Loko da Web
Postado

E ai pessoal... consegui fazer com que o sistema cadastrasse todos os acessos. Para aqueles que utilizarem, basta fazer um include do arquivo count.asp em todas as paginas que terao os acesso cadastrados.

 

Mas, preciso de outra ajuda agora... o sistema não esta conseguindo identificar a resolucao de tela e a qualidade de cor, ele coloca como unknown(desconhecido) e cadastrada as quantidades de acessos. Eu quero que ele identifique a res. e a cor.

 

Se puderem me ajudar, agradeço muito... só falta isso.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Loko da Web    1

Loko da Web
Postado

Bom dia!

 

Putz... meu topico nao recebeu nenhuma ajuda !!!! :huh:

 

Se puderem me ajudar nessa, agradeço de verdade. Desculpe postar tantos topicos assim, mas preciso de ajuda mesmo. Pra facilitar a verificação do problema, segue abaixo o cod que resgata todos os acesso.

 

Ele resgata todas as paginas e sua referencias, os navegadores, resolucao de tela, cor e sistema operacional. Os que nao estao sendo identificados são a resolucao de tela e cor, o resto esta ok.

 

<%

	
	function GetIdOS(sName)
		'Get OsID
		lIdOs = 1
		select case sName
			case "Win95" :	lIdOs = 2
			case "Win98" :	lIdOs = 3
			case "WinNT" :	lIdOs = 4
			case "Win2K" :	lIdOs = 5
			case "Mac"   : 	lIdOs = 6
			case "Linux" :	lIdOs = 7
			case "WinME" :	lIdOs = 8
			case else	: 	lIdOs = 1
		end select
		sSQL = "SELECT Total FROM OSes WHERE OsID = " & lIdOs
		rs.Open sSQL,,,adCmdTable
		rs("Total") = CLng(rs("Total")) + 1
		rs.update
		rs.close
		GetIdOS = lIdOs
	end function
	
	function GetIdColor(sName)
		'Get ColorID
		lIdColor = 1
		select case sName
			case "8"	: lIdColor = 2
			case "16"	: lIdColor = 3
			case "24"	: lIdColor = 4
			case "32"	: lIdColor = 5
			case else	: lIdColor = 1
		end select
		sSQL = "SELECT Total FROM Colors WHERE ColorID = " & lIdColor
		rs.Open sSQL,,,adCmdTable
		rs("Total") = CLng(rs("Total")) + 1
		rs.update
		rs.close
		GetIdColor = lIdColor
	end function

	function GetIdBrowser(sName)
		'Get BrowserID
		sSQL = "SELECT BrowserID, BrowserName, Total FROM Browsers WHERE BrowserName = '" & sName & "'"
		rs.Open sSQL,,,adCmdTable
		if rs.recordcount = 0 then
			rs.AddNew
			rs("BrowserName") = sName
			rs("Total") = 0
		end if
		rs("Total") = CLng(rs("Total")) + 1
		rs.update
		GetIdBrowser = rs("BrowserID")
		rs.close
	end function
	
	function GetIdPath(sName)
		'Get PathID
		sSQL = "SELECT PathID, PathName, Total FROM Paths WHERE PathName = '" & sName & "'"
		rs.Open sSQL,,,adCmdTable
		if rs.recordcount = 0 then
			rs.AddNew
			rs("PathName") = sName
			rs("Total") = 0
		end if
		rs("Total") = CLng(rs("Total")) + 1
		rs.update
		GetIdPath = rs("PathID")
		rs.close
	end function

	function GetIdRef(sName)
		'Get RefID
		sSQL = "SELECT RefID, RefName, Total FROM Refs WHERE RefName = '" & sName & "'"
		rs.Open sSQL,,,adCmdTable
		if rs.recordcount = 0 then
			rs.AddNew
			rs("RefName") = sName
			rs("Total") = 0
		end if
		rs("Total") = CLng(rs("Total")) + 1
		rs.update
		GetIdRef = rs("RefID")
		rs.close
	end function

	function GetIdRes(sName)
		'Get ResID
		sSQL = "SELECT ResID, ResName, Total FROM Resolutions WHERE ResName = '" & sName & "'"
		rs.Open sSQL,,,adCmdTable
		if rs.recordcount = 0 then
			rs.AddNew
			rs("ResName") = sName
			rs("Total") = 0
		end if
		rs("Total") = CLng(rs("Total")) + 1
		rs.update
		GetIdRes = rs("ResID")
		rs.close
	end function

	function StripParameter(sPath)
		iPlace = instr(sPath, "?")
		if iPlace then sBuffer = left(sPath, iPlace-1) else sBuffer = sPath
		StripParameter = sBuffer
	end function
	
	function StripProtocol(sPath)
		iPlace = instr(sPath, "://")
		if iPlace then sBuffer = right(sPath, len(sPath) - (3 + iPlace - 1)) else sBuffer = sPath
		if left(sBuffer, 4) = "www." then sBuffer = right(sBuffer, len(sBuffer) - 4)
		StripProtocol = sBuffer
	end function

	Sub Log()	
		'Nevermind if error
		'On Error Resume Next
		
		'Get parameters
		sResolution = request("w") & "x" & request("h")	
		sColor = request("c")
		sPath = Request("u")
		sReferer = Request("r")	
		sFontSmoothing = Request("fs")
		
		sIP = Request.ServerVariables("REMOTE_ADDR")
		sU = Request.ServerVariables("HTTP_USER_AGENT")
		
		'Ignore certain IPs
		aIps = Split( sFilterIPs, "," )
		bExit = False
		For Each sFilterIp In aIps
			If sFilterIP = sIP Then
				bExit = True
			End If
		Next 
		  
		If bExit Then
			Exit Sub
		End If
		
		'Process the inputs
		if sResolution = "x" then
			sResolution = "(unknown)"
		end if
		
		if sFontSmoothing = "true" then
			sFontSmoothing = True
		else
			sFontSmoothing = False
		end if
		
		if sReferer = "" then sReferer = request.servervariables("http_referer")
		if sReferer = "" then sReferer = "..."
		
		'This server as a referer?
		if bRefThisServer = "0" then
			if instr(StripParameter(sReferer), request.servervariables("http_host")) then
				sReferer = "..."
			end if
		end if
		
		'Referer path and file
		if bStripRefFile = "1" then
			iPlace = InstrRev(sReferer, "/")
			if iPlace then
				sReferer = left(sReferer, iPlace - 1)
			end if
		end if
		
		'Path Parameters
		if bStripPathParameters = "1" then
			sPath = StripParameter(sPath)
		end if
		
		'Path Protocol
		if bStripPathProtocol = "1" then
			sPath = StripProtocol(sPath)
		end if
		
		'Referer Parameters
		if bStripRefParameters = "1" then
			sReferer = StripParameter(sReferer)
		end if
		
		'Referer Protocol
		if bStripRefProtocol = "1" then
			sReferer = StripProtocol(sReferer)
		end if
		
		if sPath = "" then sPath = "/"
		
		if instr(sU, "98") then sOS = "Win98"
		if instr(sU, "95") then sOS = "Win95"
		if instr(sU, "Win 9x") then sOS = "WinME"
		if instr(sU, "NT") then sOS = "WinNT"
		if instr(sU, "NT 5") then sOS = "Win2K"
		if instr(sU, "Linux") then sOS = "Linux"
		if instr(sU, "Mac") then sOS = "Mac"
		
		sBrowserType = request("b")
		select case sBrowserType
			case "MSIE"
				p1 = instr(sU, ";")
				p2 = instr(p1+1, sU, ";")	
				sBrowser = mid(sU, p1+2, (p2-p1)-2)
			case "NS"
				sBrowser = "NS " & mid(sU, 9, 3)
				if instr(sU, "Netscape") then
					i = instr(20, sU, "/")
					sBrowser = "NS " & right(sU, len(sU)-i)
				end if
			case else
		  If instr( sU, "MSIE" ) > 0 Then
			  p1 = instr( sU, "MSIE" )
			  p2 = instr( p1+1, sU, ";")
			  sBrowser = mid(sU, p1, (p2-p1)-1)
		  Else
				sBrowser = sU
		  End If
		end select
		
		'Open the database
		OpenDB sConnStats
		
		'Get ID's by Names
		lIdOS		= GetIdOS(sOS)
		lIdColor	= GetIdColor(sColor)
		lIdBrowser	= GetIdBrowser(sBrowser)
		lIdPath		= GetIdPath(sPath)
		lIdRef		= GetIdRef(sReferer)
		lIdRes		= GetIdRes(sResolution)
		
		sSQL = "SELECT * FROM Stats"
		rs.Open sSQL,,,adCmdTable
		
		'Save the data
		rs.AddNew
		rs("OsID") = lIdOS
		rs("ColorID") = lIdColor
		rs("BrowserID") = lIdBrowser
		rs("PathID") = lIdPath
		rs("RefID") = lIdRef
		rs("ResID") = lIdRes
		rs("Date") = date
		rs("Time") = time
		rs("IP") = sIP
		rs.Update
		
		'Terminate database connection
		CloseDB
	End Sub
   
	'Log a hit
	Log()
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Vinicius Ianni    189

Vinicius Ianni
Postado

Bom Dia !

 

tenho um palpite, sobre a resoulução, acho que em asp você nao conseguira pegar a resolução pq é client-site, mas com um javascript que detecte a resolução e envie isso para o asp, você deve conseguir isso, procure por detectar resolução via js e as+javascript, deve achar algum exemplo de como fazer isso rodar a contento.

 

Abraços,

Vinicius Ianni

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

dá uma olhada nestes dois exemplos...

 

Este código resolve o problema de capturar uma resolução de tela e altero o tamanho das letras na página, dependendo da resolução de tela do usuário

'screen.asp

<script language="javascript">
scr = "&res="+screen.width+"x"+screen.height+"&d="+screen.colorDepth
location.href="default.asp?screen=check"+res
</script>

default.asp

'esta página capta a resolução da tela
'Request.QueryString("res") é a resolução da tela

<% screenRes = Request.QueryString("res") %>

  <% Session("scr") = screenRes%>

   <%
if Session("scr") = "800x600" then Session("fontsize") = "1" 
if Session("scr") = "640x480" then Session("fontsize") = "1" 
if Session("scr") = "1024x768" then Session("fontsize") = "2"
if Session("scr") = "1152x864" then Session("fontsize") = "2" 
if Session("scr") = "1280x720" then Session("fontsize") = "2" 
if Session("scr") = "1280x1024" then Session("fontsize") = "2"
   %>

 

e olha este outro exemplo onde dependendo da resolução ele redireciona para a pagina com resolucao correta

 

<%@ Language=VBScript %>
	<script Language=VBScript>
		Sub window_onload
		if screen.height = 480 Then
			window.navigate ("http://seu_site/640480/default.asp")	
		End if
			if screen.height = 600 Then
				window.navigate ("http://seu_site/800600/default.asp")
			End if
				if screen.height = 768 Then
					window.navigate ("http://seu_site/1024768/default.asp")
				End if
		End Sub	
	</SCRIPT>

lembre-se tb do Request.ServerVariables,HTTP_UA_PIXELS ,que contém a resolução da tela do navegador que fez a requisição

Compartilhar este post

Link para o post
Compartilhar em outros sites

Loko da Web    1

Loko da Web
Postado

Consegui resolver o problema... estava faltando o cod em javascript que resgata todos esse valores: IP, Res, Cor, Sistema, Links,....

 

<script type="text/javascript" language="JavaScript">

var file='count.asp';

var d=new Date(); 
var s=d.getSeconds(); 
var m=d.getMinutes();
var x=s*m;
f='' + escape(document.referrer);
if (navigator.appName=='Netscape'){b='NS';} 
if (navigator.appName=='Microsoft Internet Explorer'){b='MSIE';} 
if (navigator.appVersion.indexOf('MSIE 3')>0) {b='MSIE';}
u='' + escape(document.URL); w=screen.width; h=screen.height; 
v=navigator.appName; 
fs = window.screen.fontSmoothingEnabled;
if (v != 'Netscape') {c=screen.colorDepth;}
else {c=screen.pixelDepth;}
j=navigator.javaEnabled();
info='w=' + w + '&h=' + h + '&c=' + c + '&r=' + f + '&u='+ u + '&fs=' + fs + '&b=' + b + '&x=' + x;
document.write('<img src="' + file + '?'+info+ '" width=0 height=0 border=0>');
</script>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito