intranet

Se entenderes português talvez te safes.
A ideia é simples

function logs()



dim fs,fname
set fs=Server.CreateObject("Scripting.FileSystemObject")

If
(fs.FileExists(request.serverVariables("APPL_PHYSICAL_PATH")&"logs\logs.txt"
))=true Then

set
fname=fs.OpenTextFile(request.serverVariables("APPL_PHYSICAL_PATH")&"logs\lo
gs.txt",8,false)

Else

set
fname=fs.CreateTextFile(request.serverVariables("APPL_PHYSICAL_PATH")&"logs\
logs.txt",true)
fname.WriteLine("LOGON_USER;REMOTE_USER;REMOTE_ADDR;DATA" )

End If


' tentas LOGON_USER ou REMOTE_USER este é o que o browser envia
fname.WriteLine(request.serverVariables("LOGON_USER")&";"&request.serverVari
ables("REMOTE_USER")&";"&request.serverVariables("REMOTE_ADDR")&";"&
Now()&";"&request.serverVariables("PATH_TRANSLATED") )
fname.Close
set fname=nothing
set fs=nothing


end function

call logs()


'response.write
request.serverVariables("APPL_PHYSICAL_PATH")&"logs\logs.txt"


Espero que ajude

1 abraço

Rafael Duarte Evaristo


"danicastillo" wrote in message
news:#W#

Hola, supongo q los usuarios se identifican para entrar en tu intranet , y
que tendras un formulario de entrada que luego manda a un asp q comprueba
usuario/pass

en ese segundo asp yo lo q suelo hacer es incluir una rutina q me pone en
un fichero de texto la entrada con su hora, es mas rapido q meterlo en una
base de datos y carga menos el sistema (sobretodo si separas los ficheros
por fecha)

se trata mas o menos:

1 elegir el fichero a escribir (normalmente date() & ".txt" por ejemplo,

en

la carpeta que quieras con permisos de escritura)

2 abres el fichero con filesystem para añadir datos

3 escribes en el fichero la hora actual (now() o time() ) y el nombre del
usuario con su contraseña


-o|o|--
-o|o| dani castillo
-o|o| http://www15.brinkster.com/danic/
-o|o| tutorial y trucos asp, vb, diseño
-o|o|--
"Mar" escribió en el mensaje
news:eqaU#
> Recientemente he creado una intranet para la empresa con acceso

exclusivo

> para los trabajadores de la red interna. Ahora me han planteado el sacar
una
> relacion de usuarios con los accesos y fechas (del estilo de los logs

del

Ms
> Proxy). ¿Sabe alguno de ustedes como puedo generarlos?
> Para la creacion de la web utilizo DreamWeaver y el Personal Web Server

de

> MS.
>
> Muchas gracias.
>
>



Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.495 / Virus Database: 294 - Release Date: 30/06/2003