Screenshot der Website fotorevier.net

bildsuche

Suchbegriff

<% dim stringsuche2 dim bildschirmausgabe2 dim bildid stringsuche2=Request.Form("datum2") if stringsuche2 ="" then stringsuche2="gefundene bilder" else Response.Write("

gefundene bilder mit suchwort """) Response.Write(stringsuche2) Response.Write("""

"& vbCRLF) end if if stringsuche2 <>"" then stringsuche2=Replace(stringsuche2, "ä", "$ae") stringsuche2=Replace(stringsuche2, "ö", "$oe") stringsuche2=Replace(stringsuche2, "ü", "$ue") stringsuche2=Replace(stringsuche2, "Ä", "$Ae") stringsuche2=Replace(stringsuche2, "Ö", "$Oe") stringsuche2=Replace(stringsuche2, "Ü", "$Ue") stringsuche2=Replace(stringsuche2, "ß", "$ss") stringsuche2=Replace(stringsuche2, " ", "_") stringsuche2=Replace(stringsuche2, "/", "+") Set MyDirectory=Server.CreateObject("Scripting.FileSystemObject") Set MyFiles=MyDirectory.GetFolder(Server.MapPath("bilder")) For each filefound in MyFiles.files if (MyDirectory.GetExtensionName(filefound.Name)) = "jpg" then if (InStr(1, (MyDirectory.GetBaseName(filefound.Name)), stringsuche2, VBTextCompare)) > 0 then Response.Write("
") & vbCrLf) End if End if Next End If %>


Hier geht's zur einfachen Suche.