'====================================================================== '(c) 2007 By.: /_\ DeltaLab's - Deutschland 'Autor: Martin Wiemann '====================================================================== Declare Function HTML_HTTPCode_CreatePage(ByRef V_HTTPCode as Long, ByVal V_HTTPDesc as String) as String Declare Function HTML_HTTP_CreateDirList(ByRef V_WWWRootDir as String, ByRef V_Path As String, ByRef V_Request as String) as String Function HTML_HTTPCode_CreatePage(ByRef V_HTTPCode as Long, ByVal V_HTTPDesc as String) as String Dim T as String Dim FBCRLF as String FBCRLF = Chr(13) & Chr(10) T = T & "" & FBCRLF T = T & "" & FBCRLF T = T & "
" & FBCRLF T = T & "" & FBCRLF Select Case V_HTTPCode Case 300': Return "Multiple Choise" Case 301 T = T & " [DE] Diese Datei wurde dauerhaft verschoben." & FBCRLF & FBCRLF T = T & " [EN] This file was moved permanently." & FBCRLF Case 302 T = T & " [DE] Die Datei wurde gefunden." & FBCRLF & FBCRLF T = T & " [EN] The file was found." & FBCRLF Case 303': Return "See Other" Case 304 T = T & " [DE] Diese Datei wurde nicht geändert." & FBCRLF & FBCRLF T = T & " [EN] This file was not modified." & FBCRLF Case 305': Return "Use Proxy" Case 307 T = T & " [DE] Diese Datei wurde kurzfristig umgelenkt." & FBCRLF & FBCRLF T = T & " [EN] This file was redirect temporary" & FBCRLF Case 400 T = T & " [DE] Das Anfrage-Format von Ihrer Anwendung wurde nicht verstanden." & FBCRLF & FBCRLF T = T & " [EN] The Request format from your application was not understood." & FBCRLF Case 401 T = T & " [DE] Sie sind nicht Berechtigt diese Datei / dieses Verzeichniss zu betrachten." & FBCRLF & FBCRLF T = T & " [EN] You are not allowed to view this file / directory." & FBCRLF Case 402 T = T & " [DE] Sie müssen bezahlen, um diese Datei herunterladen zu dürfen." & FBCRLF & FBCRLF T = T & " [EN] You need to pay to download this file." & FBCRLF Case 403 T = T & " [DE] Der zugriff auf diese Datei ist ihnen nicht gestattet." & FBCRLF & FBCRLF T = T & " [EN] The Acces to this file is not permitted." & FBCRLF Case 404 T = T & " [DE] Diese Datei wurde nicht gefunden. Wurde die Anfrage richtig geschrieben?" & FBCRLF T = T & " Sollte ein verzeichniss geoeffnet werden, muss ein '/' am ende der URL sein!" & FBCRLF & FBCRLF T = T & " [EN] The file was not found. Did you type the request correctly?" & FBCRLF T = T & " If you want to access a directory you must take a '/' at the end of the URL!" & FBCRLF Case 405 T = T & " [DE] Die Methode, wie sie diese Seite aufrufen, ist nicht gestattet." & FBCRLF & FBCRLF T = T & " [EN] The methode you do to access this side is not allowed." & FBCRLF Case 406': Return "Not Acceptable" Case 407': Return "Proxy Authentcation Required" Case 408 T = T & " [DE] Die anfrage hat ein zeitlimit ueberschritten." & FBCRLF & FBCRLF T = T & " [EN] The request has exceeded a timelimit." & FBCRLF Case 409 T = T & " [DE] Ein Konflikt ist aufgetreten." & FBCRLF & FBCRLF T = T & " [EN] A conflict was raised." & FBCRLF Case 410': Return "Gone" Case 411 T = T & " [DE] Um die Anfrage bearbeiten zu koennen, muss die Laenge der angehaengten Daten mitgesand werden." & FBCRLF & FBCRLF T = T & " [EN] To process your request it's need to send the datalen in the request." & FBCRLF Case 412': Return "Precondition Faild" Case 413': Return "Request Entry Too Large" Case 414 T = T & " [DE] Die übertragene URL ist zu lang." & FBCRLF & FBCRLF T = T & " [EN] The send URL was to long." & FBCRLF Case 415 T = T & " [DE] Den von ihnen gewuenschten Media Typ kann dieser Server nicht unterstuezen." & FBCRLF & FBCRLF T = T & " [EN] The media type you wish cant support this server." & FBCRLF Case 416': Return "Requested range not satisfiable" Case 417': Return "Exeption Faild" Case 490 T = T & " [DE] Sie haben einen boesswilligen Angriff auf dieses System durchgeführt. Ihre IP-Adresse wurde gespert!" & FBCRLF & FBCRLF T = T & " [EN] You got a evil attack on this Server. Your IP-Address was banned!" & FBCRLF Case 491 T = T & " [DE] Das System hat Sie als potenziellen Hacker identifiziert." & FBCRLF T = T & " Ihre IP-Adresse wurde gespeichert und fuer die Zukunft blockiert." & FBCRLF T = T & " Sollten Sie erneut versuchen sich auf diesem System Illegal zu betaetien" & FBCRLF T = T & " werden automatisch Passive und Aktive Verteidigungsmassnahmen ergriffen!" & FBCRLF & FBCRLF T = T & " [EN] The system classified you as a possible hacker!" & FBCRLF T = T & " Your IP-Address has been saves and blocked for future." & FBCRLF T = T & " In case you try apain to harm the system the system will defend itself" & FBCRLF T = T & " with passive and active strategies of defence!" & FBCRLF Case 500 T = T & " [DE] Ein Interner Server Fehler ist aufgetreten." & FBCRLF & FBCRLF T = T & " [EN] A internal servererror has ocurred." & FBCRLF Case 501 T = T & " [DE] Diese Aktion ist im Server nicht vorhanden." & FBCRLF & FBCRLF T = T & " [EN] This action is not implemented in this server." & FBCRLF Case 502 T = T & " [DE] Der Server konnte keine Verbingug mit einer Daten-Quelle herstellen." & FBCRLF & FBCRLF T = T & " [EN] The server cant connect to a data-source." & FBCRLF Case 503 T = T & " [DE] Dieser Server ist zur zeit nicht verfuegbar." & FBCRLF & FBCRLF T = T & " [EN] This server is temporary not available." & FBCRLF Case 504 T = T & " [DE] Bei der Kommunikation mit der Daten-Quelle wurde ein Zeitlimit ueberschritten." & FBCRLF & FBCRLF T = T & " [EN] By the communication whis the data-source has a timeout exceeded." & FBCRLF Case 505 T = T & " [DE] Die von Ihrer Anwendung benutzte Version des Kommunikations-Formats wird von diesem Server nicht unterstuezt." & FBCRLF & FBCRLF T = T & " [EN] The communication-format version of your application was not supportet by this server." & FBCRLF Case Else T = T & " [DE] Es ist ein interner Server-Fehler aufgetreten, dessen Ursprung nicht bekannt ist." & FBCRLF & FBCRLF T = T & " [EN] A internal server error has occured. The source of this error is not know." & FBCRLF End Select T = T & "" & FBCRLF T = T & "
" Dim N as String Dim XATR as Integer If len(V_Path) > len(V_WWWRootDir ) then Dim XPos as Long For XPos = Len(V_Request) -1 to 1 step -1 If mid(V_Request,XPos,1) = "/" then T = T & " [Go one directory back]" & FBCRLF T = T & "
" & FBCRLF Exit for endif Next End If N = dir(V_Path & "*", fbdirectory, @XATR) Do If N = "" then exit do If (N <> ".") and (N <> "..") then T = T & " " & N & "/" & FBCRLF End If N = Dir("",fbdirectory) Loop if Right(T,6) = "
" & FBCRLF then T = Left(t, len(t) - 6) & FBCRLF T = T & "
" & FBCRLF N = dir(V_Path & "*", XAttrFiles, @XATR) Do If N = "" then exit do If (N <> ".") and (N <> "..") then if (XATR and fbdirectory) <> fbdirectory then T = T & " " & N & "" & FBCRLF End If N = Dir("",XAttrFiles) Loop if Right(T,6) = "
" & FBCRLF then T = Left(t, len(t) - 6) & FBCRLF T = T & "