$abre = fopen ( "visitas.asf", "r+"); flock ( $abre, 1); $conta = fgets ( $abre, 4096); $conta += 1; fseek ( $abre, 0); fputs ( $abre, $conta); flock ( $abre, 3); fclose ( $abre); ?>