Accueil > > > LOG DES ROBOTS QUI PASSENT SUR LE SITE
 LOG DES ROBOTS QUI PASSENT SUR LE SITE
 Information sur la source
 Description
Idée reprise d'un script PHP posté par etiennexxx9 (http://www.phpcs.com/code.aspx?ID=43368) Ce petit script permet de prendre en note les robots qui passent sur le site. Le principe est assez simple: on simule un fichier robots.txt. Pour ce faire, il suffit de créer un dossier de ce nom et d'y placer un index.php contenant le script de log. Lorsque les robots iront chercher le fichier robots.txt, le serveur exécutera le fichier robots.txt/index.asp et renverra le contenu d'un fichier robots.txt normal (configurable dans le code).
 Source
- <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
- <%
- Option Explicit
- Session.LCID = 4108 ' pour le format européen
-
- Sub Ecrire_fic(name, root, quoi)
- Dim Fichier, Ecrirefichier, pathfile
- Set Fichier = Server.CreateObject("Scripting.FileSystemObject")
- pathfile = Server.mapPath(root & "\" & name)
- Application.Lock
- Set Ecrirefichier = Fichier.OpenTextFile(pathfile, 8, TRUE)
- Ecrirefichier.Write(quoi)
- Application.Unlock
- set Ecrirefichier = nothing
- set Fichier = nothing
- End sub
-
- dim HW, IP, UA, ligne
-
- HW = Request.ServerVariables("HTTP_HOST") ' dans le cas ou vous avez plusieurs alias de sites pointant sur le même espace serveur
- IP = Request.ServerVariables("REMOTE_ADDR")
- UA = Request.ServerVariables("HTTP_USER_AGENT")
-
- ligne = HW & ": " & IP & " - " & now() & " - " & UA & VbCrLf
-
- Call Ecrire_fic("robots.log", ".", ligne)
- Response.Write("User-agent: *" & VbCrLf)
- Response.Write("Disallow: " & VbCrLf)
- %>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Option Explicit
Session.LCID = 4108 ' pour le format européen
Sub Ecrire_fic(name, root, quoi)
Dim Fichier, Ecrirefichier, pathfile
Set Fichier = Server.CreateObject("Scripting.FileSystemObject")
pathfile = Server.mapPath(root & "\" & name)
Application.Lock
Set Ecrirefichier = Fichier.OpenTextFile(pathfile, 8, TRUE)
Ecrirefichier.Write(quoi)
Application.Unlock
set Ecrirefichier = nothing
set Fichier = nothing
End sub
dim HW, IP, UA, ligne
HW = Request.ServerVariables("HTTP_HOST") ' dans le cas ou vous avez plusieurs alias de sites pointant sur le même espace serveur
IP = Request.ServerVariables("REMOTE_ADDR")
UA = Request.ServerVariables("HTTP_USER_AGENT")
ligne = HW & ": " & IP & " - " & now() & " - " & UA & VbCrLf
Call Ecrire_fic("robots.log", ".", ligne)
Response.Write("User-agent: *" & VbCrLf)
Response.Write("Disallow: " & VbCrLf)
%>
 Sources du même auteur
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
telechargement [ par guizmows ]
Je voudrais mettre des log en telechargement sur mon site. Mais je n'ai qu'une connection par modem et j'aimerai savoir s'il est possible de copier un
log et pwd [ par glopglop ]
J'ai le code suivant :<% Set ConnLog=Server.CreateObject("ADODB.Connection")ConnLog.Open DSN_BASESet RsLog=Server.CreateObject("ADODB.Recordset")Rs
bouton precedent et session [ par glopglop ]
Salut!!Je viens de securisé mes pages par la vérification d'un log et d'un mdp! Sur toute les pages sécurisés je vérifie si le session("log")="" dans
Log IIS : maj de cs-username [ par hook ]
Bonjour,Qq'un connaîtrait-il la recette magique pour setter un "cs-username" dans une session ASP ?Le but étant de loguer des lignes propres au site A
Session ASP [ par Ealendil ]
Bonsoir, je voudrais pouvoir contrôler l'accès à certaines page du site que je suis entrain d'effectuer à l'aide de variables de s
recuperer les infos dans un fichier log pour les stockers dans une base de données [ par jngwolf44 ]
salut,je suis en stage et je cherche a declencher un enregistrement automatique(par jour, ou par semaine) des infos qui sont contenu dans un fichier d
Erreur de configuration dans mon application ASP.NET [ par megadave ]
Bonjour,Des fois lors de generation de mon projet , j'ai cette erreur : Erreur de configuration Description : Une erreur s'est produite lors du
Probleme avec Dreamveaver et asp.net [ par hotlines ]
bonjour , je voudrais que quelqu'un m'aide , j'ai installé le framework pour pouvoir travailler avec asp.net , mais quand je crée une connec
inaccessible en raison de son niveau de protection?! [ par Coolpix08 ]
Bon ben voila...Je pense que le sujet est assez expliciteje suis en WebForm et jai besoin decrire dans un fichier txtdonc voila ma fonction :using sys
Transformation de la date système en nom de fichier "datecourante.log" [ par Dady75 ]
Bonjour tout le monde,Quelqu'un peut il m'aider Je cherche à faire un programme en vbs qui me permet de récupérer la date système et la transformer en
|
Derniers Blogs
 CSS CONTENT STATE SELECTORS (PERSONNAL DRAFT)CSS CONTENT STATE SELECTORS (PERSONNAL DRAFT) par FREMYCOMPANY
Bonjour à tous, Je viens de publier une proposition comprenant 5 pseudo-classes pour le CSS Working Group ayant trait à l'état de chargement d'un élément (ex: IMG,VIDEO,AUDIO,OBJECT pour l'HTML.). Si le c½ur vous en dit, vous pouvez retrouver cette p...
Cliquez pour lire la suite de l'article par FREMYCOMPANY MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ?MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ? par ROMELARD Fabrice
Formation initiale Durant la formation, le découpage classique est le suivant (je donnerai les équivalences Suisse lorsque je les connaîtrais) : Ecole primaire jusqu'au Collège : Formation générale permettant d'obtenir les méthodes...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice Y'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENTY'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENT par Aleks
Quand on a ce genre d'erreur sans log :
Et bas on a juste envie de choper le gas de Microsoft qu'a développé ça et lui foutre des baffes de Coboye ! ...
Cliquez pour lire la suite de l'article par Aleks [HYPER-V 3] PRéSENTATION DES COMMANDLETS POWERSHELL[HYPER-V 3] PRéSENTATION DES COMMANDLETS POWERSHELL par Pierrick CATRO-BROUILLET
Avec la sortie prochaine de la Beta Consumer Preview de Windows 8, j'avais envie de revenir sur une des fonctionnalités que j'attends le plus et que, en bon geek que je suis, j'utilise déjà : Hyper-V 3 ainsi son module PowerShell.
Il y a déjà pléthor...
Cliquez pour lire la suite de l'article par Pierrick CATRO-BROUILLET IIS7 - COMPRESSION GZIPIIS7 - COMPRESSION GZIP par cyril
La compression GZIP permet d'améliorer les performances de navigation en compressant ce qu'envoie le serveur à un client. Pour comprendre comment cela fonctionne, regardons ce qu'il se passe au niveau HTTP lorsqu'un client tente d'accéder à une ress...
Cliquez pour lire la suite de l'article par cyril
Forum
 SCRIPTSCRIPT par nadialadypower
Cliquez pour lire la suite par nadialadypower
Logiciels
 Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning Academy System (17.1.3.0)ACADEMY SYSTEM (17.1.3.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|