Publicentral.com - publicentra, promocion, promocionar, buscadores, paginas webs, registroPublicentral.com - promocion de paginas web y negocios online
Mostrando Codigo - Asp
Code

Asp - Contador de visitas casero

Códigos Asp

Este ejemplo lee un archivo de texto, registra un nuevo click, y lo lee.
Visitas: 25,385 - 18/04/2003
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
EXPLICACION
es archivo contador.txt debe de ser un archivo con valor introducido 0
CODIGO
Codigo probado en ChromeCodigo probado en Mozilla FirefoxCodigo probado en Internet Explorer 7+Codigo probado en OperaCodigo probado en Safari


<% 'Codigo ofrecido por Tutores.org %>

  1. <%' Abrimos el archivo
  2.  
  3. Set FS=Server.CreateObject("Scripting.FileSystemObject")
  4. Set RS=FS.OpenTextFile(Server.MapPath("contador.txt"), 1, False)
  5. fcount=RS.ReadLine
  6. RS.Close
  7.  
  8. fcount=fcount+1
  9.  
  10. 'Escribimos 1 visita
  11. Set RS=FS.OpenTextFile(Server.MapPath("contador.txt"), 2, False)
  12. RS.Write fcount
  13. RS.Close
  14.  
  15. Set RS=Nothing
  16. Set FS=Nothing
  17.  
  18. %>
  19. <html>
  20. <body>
  21. <p>
  22. Este codigo ha sido accedido <b><%=fcount%> </b> veces.
  23. </p>
  24. </body>
  25. </html>
  26.  



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 -->
COMENTARIOS
Comentario usuario
23/03/2004 14.09.13
4 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
Comentario usuario
19/04/2003
2 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
Comentario usuario
23/03/2004 14.09.13
2 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
Comentario usuario
23/03/2004 14.09.13
3 5
es mas probando no veo ni la pagina asp... que hago mal... siento ser pesado
saludos
Comentario usuario
19/04/2003
3 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
Comentario usuario
23/03/2004 14.09.13
2 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
Comentario usuario
23/03/2004 14.09.13
2 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
Comentario usuario
19/04/2003
1 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
Comentario usuario
23/03/2004 14.09.13
4 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
Comentario usuario
23/03/2004 14.09.13
3 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)
Comentario usuario
23/03/2004 14.09.13
2 5
Ese mensaje salio con la direccion absoluta...
Saludos
Comentario usuario
19/04/2003
1 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
Comentario usuario
15/09/2004 22.54.59
2 5
ola, nose xq nome funciona...:S
no me sale nada cuando cargo la pagina asp
"nose puede mostar la pagina"
Comentario usuario
19/04/2003
2 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
Comentario usuario
boris
4 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
Comentario usuario
19/04/2003
4 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
Comentario usuario
mchristiansen
3 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?
Comentario usuario
mchristiansen
1 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?
Comentario usuario
Fryda
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
08-12-2011 13:10:18
5 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
INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
Codigo Seguridad


Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado

Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.