![]() |
|||||
DESARROLLOS DE ALTA TECNOLOGÍA PARA TODOS LOS SECTORES PRODUCTIVOS |
|||||
Correo: contacto@tecnologicosindustriales.com - Móvil: 317 3065830 - Colombia |
|||||
|
|||||
|
|||||
|
|||||
Copyright: © Equipamientos Tecnológicos Industriales @ 2011 |
|||||
<% on error resume next
' Creamos el objeto set fso = createobject("scripting.filesystemobject") ' Seteamos el archivo txt set act = fso.opentextfile(server.mappath("asp_count.txt")) ' Leemos el valor del archivo counter = clng(act.readline) ' Sumamos uno a ese valor counter = counter + 1 ' Cerramos el objeto act.close ' Creamos un nuevo archivo de texto Set act = fso.CreateTextFile(server.mappath("asp_count.txt"), true) ' Escribimos el nuevo valor del contador act.WriteLine(counter) ' Cerramos el objeto act.Close- ' Y decimos la cantidad de visitas
Response.Write "Eres el visitante Nº: " & counter %>