|
:: Si su plan posee PHP, debe introducir el siguiente codigo al final de su pagina web
<?
$counter = "visitas.dat";
$fp = fopen($counter, "a");
$data = $REMOTE_ADDR . "\n";
fputs($fp, $data);
fclose($fp);
$counted = file($counter);
$hits = sizeof($counted);
echo "<strong>".$hits." Visitas</strong>" ;
?>
:: Si su plan posee ASP, debe introducir el siguiente codigo al final de su pagina web
<%
Dim objFSO , objFile
set objFSO = createobject("scripting.filesystemobject")
if objFSO.FileExists(server.MapPath("visitas.inc")) then
set objFile = objFSO.opentextfile(server.mappath("visitas.inc"))
else
Set objFile = objFSO.CreateTextFile(server.mappath("visitas.inc"), true)
objFile.writeline "0"
objFile.close
set objFile = nothing
set objFile = objFSO.opentextfile(server.mappath("visitas.inc"))
end if
counter = clng(objFile.readline)
counter = counter + 1
objFile.close
Set objFile = objFSO.CreateTextFile(server.mappath("visitas.inc"), true)
objFile.writeline(counter)
objFile.close
Response.Write counter & " Visitas"
%>
|
