Valid XHTML     Valid CSS2    

Listing du fichier veille_resultats.php

 

00001     <?php
00002     
# # (gH) -_- veille_resultats.php ; TimeStamp (unix) : 18 Octobre 2017 vers 15:28
00003     
error_reporting(E_ALL | E_NOTICE | E_STRICT) ;
00004     include(
"std.php"
) ; # fonctions classiques de gh
00005     
include(
"popular_inc.php") ; # fonctions urlGoog et nbHits
00006     
debutPage
("veille technologique","strict") ;
00007     
debutSection() ;
00008     
h1
("Nombre de hits renvoyés par Google pour des termes choisis en veille technologique") ;
00009     
blockquote() ;
00010     
00011     
#############################################################################################
00012     
00013     ## 1. vérification de la présence de la variable "termes"
00014     
00015     
if (!isset(
$_POST["termes"])) {
00016     
p
("grouge") ;
00017      echo
"Variable \"termes\" non renseignée. Stop." ;
00018     
finp() ;
00019     
finblockquote() ;
00020     
finSection() ;
00021     
finPage() ;
00022      exit(-
1) ;
00023     } ;
# fin si
00024     
00025     ## 2. vérification que cette variable "termes" est non vide
00026     
00027     
$termes
= trim($_POST["termes"]) ;
00028     
00029     if (
strlen
($termes)==0) {
00030     
p
("grouge") ;
00031      echo
"Vous n'avez pas rempli le formulaire de la page "
.href("veille_formulair.php").". Stop." ;
00032     
finp() ;
00033     
finblockquote() ;
00034     
finSection() ;
00035     
finPage() ;
00036      exit(-
1) ;
00037     } ;
# fin si
00038     
00039     
$tabTermes
= preg_split("/\\n/",$termes) ;
00040     
00041     
## 3. recherche des résultats via Google et remplissage du tableau de sortie
00042     
00043     
table
(0,'20',"",'courant') ;
00044     
tr() ;
00045     
td() ;
00046     
00047     
$nbm
= count($tabTermes) ;
00048     
$data
= "" ;
00049     
$xlab
= "" ;
00050     
$idm
= 0 ;
00051     
00052     
table
(1,5,"collapse") ;
00053     
tr() ;
00054     
00055     
## 4. les chiffres
00056     
00057     
td
() ; nbsp(3) ;
00058     echo
s_span
("Terme","bleuf") ;
00059     
nbsp
(3) ; fintd() ;
00060     
td
() ; nbsp(3) ;
00061     echo
s_span
("Pages (millions)","bleuf") ;
00062     
nbsp
(3) ; fintd() ;
00063     
fintr() ;
00064     foreach (
$tabTermes
as $mot) {
00065     
$idm++ ;
00066     
$lastc
= substr($mot,strlen($mot)-1) ;
00067      if (
ord
($lastc)==13) { $mot = substr($mot,0,-1) ; } ;
00068     
$nbp
= nbhits($mot) ;
00069     
$mdp
= ($nbp/1000.0)/1000.0 ;
00070     
$xlab
.= urlencode($mot) ;
00071     
$data
.= round($mdp) ;
00072      if (
$idm
<$nbm) {
00073     
$xlab
.= "_" ;
00074     
$data
.= "_" ;
00075      } ;
# fin si
00076     
tr() ;
00077     
td
() ; nbsp(7) ; echo urldecode($mot) ; nbsp(3) ; fintd() ;
00078     
td
("r") ; nbsp(3) ; echo sprintf("%8.1f",$mdp) ; nbsp(3) ; fintd() ;
00079     
fintr() ;
00080     } ;
# fin pour chaque
00081     
fintable() ;
00082     
fintd() ;
00083     
00084     
td() ;
00085     
pvide() ;
00086     
fintd() ;
00087     
00088     
## 5. affichage de l'histogramme correspondant
00089     
00090     
td() ;
00091     
$an
= date("Y") ;
00092     
$deburl
= "http://forge.info.univ-angers.fr/~gh/jphistopct.php" ;
00093     
$finurl
= "vdata=$data&amp;titr=".urlencode("Hits pour $an")."&amp;xmrks=$xlab" ;
00094     
## echo " pour histogramme : <pre>$finurl</pre>\n" ;
00095     
echo
img("$deburl?taily=280&amp;$finurl",'histogramme') ;
00096     
00097     
fintd() ;
00098     
00099     
fintr() ;
00100     
fintable() ;
00101     
00102     
###########################################################
00103     
00104     
p() ;
00105     echo
href
("montresource.php?nomfic=veille_resultats.php","Code-source php de cette page","orange_stim nou").". " ;
00106     
finp() ;
00107     
00108     
#############################################################################################
00109     
00110     
finblockquote() ;
00111     
finSection() ;
00112     
finpage() ;
00113     
?>

Pour ne pas voir les numéros de ligne, ajoutez &nl=non à la suite du nom du fichier.

 

 

retour gH    Retour à la page principale de   (gH)