%@ Language=VBScript %> <% Option Explicit %> <% Response.Buffer = TRUE %> <% function ereg_replace(tx,rg,ch) set regEx = New RegExp regEx.IgnoreCase = False regEx.Global = True regEx.Pattern = rg ereg_replace = regEx.replace(tx,ch) end function function htmlspecialchars(ch) ch = replace(ch,"&","&") ch = replace(ch,"""",""") ch = replace(ch,"'","'") ch = replace(ch,"<","<") ch = replace(ch,">",">") htmlspecialchars = ch end function function notag(txt) set regEx = New RegExp regEx.Global = True regEx.Pattern = "<[^>]+>" notag = regEx.replace(txt,"") end function %> <% dim action, blork, start, choix, caractere_special_code, caractere_special, body, body2, body3, result dim vientde, gaston, form_recherche, subFolderObj, x, y, fold, fold2, finbarre, folder_name dim maxmots, longueur_blork, blork2, blork3, regEx, url, guillemet, apostrophe dim pourvoir, finstart, prevbarre, nextbarre, nb_barre, compte_affichage, rs, barre dim driveObj, folderObj, chemin, F, SF, file, Files, la, la2, lecture, pos_body dim recherche, change_recherche, trouve, gauche, droite, le, le2, lu, count, lo, ly blork = "" form_recherche="
" %> <% vientde = Request.ServerVariables( "HTTP_REFERER" ) gaston = instr(vientde, "recherche.asp") if gaston = 0 then response.write(form_recherche) %> <% else %> <% caractere_special_code=array("à","á","â","ã","ä","å","æ","ç","è","é","ê","ë","î","ï","ô","ö","ù","ú","û","ü","&"," ") %> <% caractere_special=array("à","á","â","ã","ä","å","æ","ç","è","é","ê","ë","î","ï","ô","ö","ù","ú","û","ü","&", " ") %> <% action = Request.QueryString("action") blork = Request.QueryString("blork") start = Request.QueryString("start") choix = Request.QueryString("choix") if(maxmots="") then maxmots="20" end if if(maxipage="") then maxipage=10 end if if(start="" or start="0" ) then start="1" end if longueur_blork=len(blork) blork=trim(blork) blork = ereg_replace(blork," +"," ") blork3 = blork blork = LCASE(blork) blork2 = htmlspecialchars(blork) if(longueur_blork<3) then response.write(form_recherche) response.write("Votre recherche doit comporter au moins trois caractères.
")
if (Cint(start)<>1) then %>
<< Début
< Page précédente (
<% else
response.write("<< Début < Page précédente (")
end if
for barre=1 to count Step maxipage
finbarre=(count-barre) %>
<%= nb_barre %>
<% nb_barre = nb_barre + 1
next
if (Cint(start) < finstart) then %>
) Page suivante > Fin >>
<% else
response.write(") Page suivante > Fin >>")
end if
response.write("