Asp - Contador de visitas casero
Códigos Asp
Este ejemplo lee un archivo de texto, registra un nuevo click, y lo lee.
Tutores.org
Mostrando Codigo - Asp
EXPLICACION
es archivo contador.txt debe de ser un archivo con valor introducido 0
CODIGO
<% 'Codigo ofrecido por Tutores.org %>
- <%' Abrimos el archivo
- Set FS=Server.CreateObject("Scripting.FileSystemObject")
- Set RS=FS.OpenTextFile(Server.MapPath("contador.txt"), 1, False)
- fcount=RS.ReadLine
- RS.Close
- fcount=fcount+1
- 'Escribimos 1 visita
- Set RS=FS.OpenTextFile(Server.MapPath("contador.txt"), 2, False)
- RS.Write fcount
- RS.Close
- Set RS=Nothing
- Set FS=Nothing
- %>
- <html>
- <body>
- <p>
- Este codigo ha sido accedido <b><%=fcount%> </b> veces.
- </p>
- </body>
- </html>
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Contador de visitas casero" href="http://www.tutores.org/codigo/306/" target="_blank">Contador de visitas casero</a>
<!-- Final enlace Tutores.org -->
<a title="Tutores.org - Contador de visitas casero" href="http://www.tutores.org/codigo/306/" target="_blank">Contador de visitas casero</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
Juan
23/03/2004 14.09.13
3
5
Por que no funciona????
Son 2 archivos contador.asp con el codigo y un contador.txt con valor 0, pues no se ve nada...
saludos
Son 2 archivos contador.asp con el codigo y un contador.txt con valor 0, pues no se ve nada...
saludos
Comentario usuario
Tutores.org
19/04/2003
4
5
hola juan
debes de poner el archivo en la misma carpeta donde esta el script asp, ademas de que tengas permisos de escritura en dicha carpeta.
saludos
debes de poner el archivo en la misma carpeta donde esta el script asp, ademas de que tengas permisos de escritura en dicha carpeta.
saludos
Comentario usuario
Juan
23/03/2004 14.09.13
1
5
Eso hago, 2 archivos, 1 asp y el otro txt con valor escrito 0, lo subo le doy a 666 en el servidor y nada no suma.
Gracias por contestar pero es lo que hay.
saludos
Gracias por contestar pero es lo que hay.
saludos
Comentario usuario
Juan
23/03/2004 14.09.13
2
5
es mas probando no veo ni la pagina asp... que hago mal... siento ser pesado
saludos
saludos
Comentario usuario
Tutores.org
19/04/2003
1
5
hola
el error quizas no este en el script puesto que no te manda ningun error
como ves enla demo funciona perfectamente
¿ te funcionan otors scripts asp ?
saludos
el error quizas no este en el script puesto que no te manda ningun error
como ves enla demo funciona perfectamente
¿ te funcionan otors scripts asp ?
saludos
Comentario usuario
Juan
23/03/2004 14.09.13
4
5
Si tengo otros script en asp, miralos tu mismo, sale este error...
Error de Microsoft VBScript en tiempo de ejecución error '800a0046'
Permiso denegado
/Santona/contador/contador.asp, line 19
Lo del permiso denengado, no lo entiendo si pongo en el servidor 666 con em CHMOD y lo acepta
Error de Microsoft VBScript en tiempo de ejecución error '800a0046'
Permiso denegado
/Santona/contador/contador.asp, line 19
Lo del permiso denengado, no lo entiendo si pongo en el servidor 666 con em CHMOD y lo acepta
Comentario usuario
Juan
23/03/2004 14.09.13
3
5
Esta es la direccion completa
http://www.tumovil.net/Santona/contador/contador.asp
http://www.tumovil.net/Santona/Aqu i puedes ver includes en asp en su banner inferior con los usuarios activos y el IP
saludos
http://www.tumovil.net/Santona/contador/contador.asp
http://www.tumovil.net/Santona/Aqu i puedes ver includes en asp en su banner inferior con los usuarios activos y el IP
saludos
Comentario usuario
Tutores.org
19/04/2003
4
5
puede ser que tu servidor lo acepte, por mucho que intentes hacer un chmod.
de todas formas prueba de esta manera
en vez de poner (Server.MapPath("contador.txt") , linea 4 y 11
prueba poniendo la ruta exacta
("d:websites uarchivo_de_texto.txt")
saludos
de todas formas prueba de esta manera
en vez de poner (Server.MapPath("contador.txt") , linea 4 y 11
prueba poniendo la ruta exacta
("d:websites uarchivo_de_texto.txt")
saludos
Comentario usuario
Juan
23/03/2004 14.09.13
5
5
Gracias, pero explicame por que????
"d:websites uarchivo_de_texto.txt"
El archivo esta subido al servidor y la direccion en internet es http://www.tumovil.net/Santona/contador/contador.txt
En tu caso d:websites.. seria mi disco duro no????
perdona pero soy muy nuevo, saludos
"d:websites uarchivo_de_texto.txt"
El archivo esta subido al servidor y la direccion en internet es http://www.tumovil.net/Santona/contador/contador.txt
En tu caso d:websites.. seria mi disco duro no????
perdona pero soy muy nuevo, saludos
Comentario usuario
Juan
23/03/2004 14.09.13
5
5
Error de compilación de Microsoft VBScript error '800a0401'
Se esperaba un final de instrucción
/Santona/contador/contador.asp, line 14
Set RS=FS.OpenTextFile("http://www.tumovil.net/Santona/contador/contador.txt"), 1, False)
Se esperaba un final de instrucción
/Santona/contador/contador.asp, line 14
Set RS=FS.OpenTextFile("http://www.tumovil.net/Santona/contador/contador.txt"), 1, False)
Comentario usuario
Juan
23/03/2004 14.09.13
1
5
Ese mensaje salio con la direccion absoluta...
Saludos
Saludos
Comentario usuario
Tutores.org
19/04/2003
5
5
hola faltaba un parentesis
Set RS=FS.OpenTextFile(("d:websites uarchivo_de_texto.txt"), 1, False)
la ruta que debes de poner es la ruta completa de la carpeta donde esta alojada la página en tu servidor.
saludos
Set RS=FS.OpenTextFile(("d:websites uarchivo_de_texto.txt"), 1, False)
la ruta que debes de poner es la ruta completa de la carpeta donde esta alojada la página en tu servidor.
saludos
Comentario usuario
YO
15/09/2004 22.54.59
4
5
ola, nose xq nome funciona...:S
no me sale nada cuando cargo la pagina asp
"nose puede mostar la pagina"
no me sale nada cuando cargo la pagina asp
"nose puede mostar la pagina"
Comentario usuario
Tutores.org
19/04/2003
3
5
Hola
si te sale ese mensaje es porque hay algun error en el codigo.
El codigo esta probado y funciona perfectamente, el error mas comun que te puede pasar es que no encuentre el archivo contador.txt
Compruebalo y cuentas.
saludos
si te sale ese mensaje es porque hay algun error en el codigo.
El codigo esta probado y funciona perfectamente, el error mas comun que te puede pasar es que no encuentre el archivo contador.txt
Compruebalo y cuentas.
saludos
Comentario usuario
borisboris
5
5
Yo tengo un Error Igual,
En WinXp funciona Ok, pero en Win2003Server no se puede crear el Archvo, No tengo Permiso, el problema es de configuracion pero no lo he podido confirar bien....
AYUDENME.... S.O.S... S.O.S... S.O.S.. S.O.S
En WinXp funciona Ok, pero en Win2003Server no se puede crear el Archvo, No tengo Permiso, el problema es de configuracion pero no lo he podido confirar bien....
AYUDENME.... S.O.S... S.O.S... S.O.S.. S.O.S
Comentario usuario
Tutores.org
19/04/2003
5
5
Hola
Si tienes acceso al servidor puedes modificar el IIS(Internet Information Server )
para dar permisos de escritura a la carpeta que quieras.
Solo tienes que acceder al panel de control, seleccionar el stio web, seleccionar la carpeta a la que quieres dar permisos, y con el boton derecho, seleccionas propiedades.
Ahí podrás dar permisos de escritura.
Si no tienes acceso al servidor, debes de buscar la carpeta que tu proveedor de host ha asignado con permisos de escritura, para esto tu servidor es el que tiene que informarte.
Saludos
Si tienes acceso al servidor puedes modificar el IIS(Internet Information Server )
para dar permisos de escritura a la carpeta que quieras.
Solo tienes que acceder al panel de control, seleccionar el stio web, seleccionar la carpeta a la que quieres dar permisos, y con el boton derecho, seleccionas propiedades.
Ahí podrás dar permisos de escritura.
Si no tienes acceso al servidor, debes de buscar la carpeta que tu proveedor de host ha asignado con permisos de escritura, para esto tu servidor es el que tiene que informarte.
Saludos
Comentario usuario
mchristiansenmchristiansen
5
5
hola, tengo un error de
Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A0046)
Permiso denegado
/script/prueba911.asp, línea 7
He elegido la opcion escritura en la carpeta dentro del IIS pero sigue saliendo lo mismo.. como puedo arreglar esto?
Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A0046)
Permiso denegado
/script/prueba911.asp, línea 7
He elegido la opcion escritura en la carpeta dentro del IIS pero sigue saliendo lo mismo.. como puedo arreglar esto?
Comentario usuario
mchristiansenmchristiansen
5
5
cuando quito la opcion RS.Write aparece
Este codigo ha sido accedido 11 veces.
obviamente al contador le puse 10 para probar que lo leia, pero no lo escribe!! q puedo hacer?
Este codigo ha sido accedido 11 veces.
obviamente al contador le puse 10 para probar que lo leia, pero no lo escribe!! q puedo hacer?
Comentario usuario
FrydaFryda
4
5
El problema es como dice tutores.org es de permisos sobre la carpeta , por eso es que no puedes escribir sobre el archivo, el mismo problema tuve pero lo hice sobre otro servidor que tengo acceso total y todo ok
Comentario usuario
djarthur
08-12-2011 13:10:18
2
5
Hola tengo este script que encontré en el menú de inicio de mi PC, no me permite iniciar Outlook, como puedo hacer para eliminarlo usando otro Script, ya que no soy usuario Administrador.... Gracias agradecería alguna ayuda
Const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!" & _
strComputer & "
ootdefault:StdRegProv")
strKeyPath = "SoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerDisallowRun"
GetValueName = "3"
strValue = "outlook.exe"
oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
oReg.SetStringValue _
HKEY_CURRENT_USER,strKeyPath,GetValueName,strValue
Const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!" & _
strComputer & "
ootdefault:StdRegProv")
strKeyPath = "SoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerDisallowRun"
GetValueName = "3"
strValue = "outlook.exe"
oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
oReg.SetStringValue _
HKEY_CURRENT_USER,strKeyPath,GetValueName,strValue
INSERTAR COMENTARIO