Windows CGI-Beispiel

Hier könnt Ihr gute, von Euch geschriebene Codes posten. Sie müssen auf jeden Fall funktionieren und sollten möglichst effizient, elegant und beispielhaft oder einfach nur cool sein.
Benutzeravatar
bluejoke
Beiträge: 1244
Registriert: 08.09.2004 16:33
Kontaktdaten:

Windows CGI-Beispiel

Beitrag von bluejoke »

Hallo!

Nachdem dieses Linux-Beispiel unter Windows nicht läuft (ist ja klar) hab ich mich damit auseinandergesetzt.

Das Ergebnis ist, dass ichs mit Pauls CGI-Lib (Link siehe Code) ohne weiteres hinbekommen habe, ohne es jedoch nicht hinbekomme, environment-variablen abzufragen.

Code: Alles auswählen

; German forum: http://robsite.de/php/pureboard/viewtopic.php?t=3431
; Author: bluejoke
; Date: May 22nd 2005
; Needed User-Libs: Pauls CGI-Lib
; http://www.reelmedia.org/cgi-bin/PureProject?query=Archive&user=Archive&pass=WhatsNew&arc=Libraries&sub=ASM
;
; Thanks to Paul, El_Choni and DarkDragon
; Example for CGI-Application on a Windows-System
; Beispiel für eine einfache CGI-Anwendung auf einem Windows-System

remote_ip.s = CGI_Env("REMOTE_ADDR") 

output.s = "CONTENT-TYPE: text/html"+Chr(10)+Chr(10)
output + "<!DOCTYPE HTML PUBLIC "+Chr(34)+"-//W3C//DTD HTML 4.0//EN"+Chr(34)+" "+Chr(34)+"http://www.w3.org/TR/REC-html40/strict.dtd"+Chr(34)+">"+Chr(10)
output + "<html lang="+Chr(34)+"en"+Chr(34)+" dir="+Chr(34)+"LTR"+Chr(34)+">"+Chr(10)
output + "<body>"+Chr(10)
output + "Your IP: "+remote_ip+Chr(10)
output + "</body>"+Chr(10)
output + "</html>"+Chr(10)+Chr(10)

CGI_Out(output)

; ExecutableFormat=Console
Das wars,

Simon
Ich bin Ausländer - fast überall
Windows XP Pro SP2 - PB 4.00