| <html> <div style="position:absolute; top:100px; left:100px; clip:rect(10px, 70px, 90px, 20px);"> <img src="bild.gif" width="300" height="200" title="Bild"> </div> </html> |
| <html> <head> </head> <body> <form action="Koordinaten-ausgeben.htm"> <input type="image" src="Koordinaten-Karte.gif" alt="Absenden"> </form> </body> </html> |
| <html> <head> <title>Koordinaten ausgeben</title> <!-- File: Koordinaten-ausgeben.htm --> </head> <body> <script> var parameterstring; var left; var top; var laenge; var position; var string; if (window.location.search != "") parameterstring = window.location.search; laenge = parameterstring.length; position = parameterstring.indexOf("&");//Stelle des Zeichens "&" left = parameterstring.substring(3,position); top= parameterstring.substring(position+3,laenge); if (left.length < 4) left = "0" + left; if (left.length < 4) left = "0" + left; if (left.length < 4) left = "0" + left; if (top.length < 4) top= "0" + top; if (top.length < 4) top= "0" + top; if (top.length < 4) top= "0" + top; string = '<div style="position:absolute; top:' + top + '; left:' + left + ';"><a title="Icon XXXXX" href="http://www.XXXXX.de"><img border=0 src="icon.gif"></a></div>'; with(document){ write("Koordinaten:<br><br>"); write(string+"<br>"); } </script> </body> </html> |
|
#!c:/Perl/bin/perl.exe
print "Content-type:text/html\n\n"; print "
|
| <html> <head></head> <body> <a HREF=test.pl?parameter1=Wert1¶meter2=Wert2> Parameter senden </a> </body> </html> |
| <html> <head></head> <META HTTP-EQUIV='REFRESH' CONTENT='0; URL=test.pl?parameter1=Wert1¶meter2=Wert2'> <body> </body> </html> |
|
use CGI;
$query=new CGI; $parameter1=$q->param('parameter1'); $parameter2=$q->param('parameter2'); |
| <html> <head></head> <body> <form name=formname1 action='test.pl' method=post onSubmit='return CheckForm(this)'> <input type=hidden name=paramter1 value='Wert1'> <input type=hidden name=paramter2 value='Wert2'> <input type=submit value='Parameter senden'> </FORM> </body> </html> |
|
($paramter1, $paramter2) = @_;
|
|
&parse_form_data(*form_data);
if (defined($form_data{paramter1})) { $paramter1 = $form_data{paramter1}; } else { $paramter1 = "unbekannt"; } if (defined($form_data{paramter2})) { $paramter2 = $form_data{paramter2}; } else { $paramter2 = "unbekannt"; } #------------ sub parse_form_data { local(*FORM_DATA) = @_; local($request_method, $query_string, @key_value_pairs, $key_value, $key, $value); $request_method = $ENV{'REQUEST_METHOD'}; if( $request_method eq "GET" ) { $query_string = $ENV{'QUERY_STRING'}; } elsif ( $request_method eq "POST" ) { read(STDIN, $query_string, $ENV{'CONTENT_LENGTH'}); } else { &return_error(500,"Server Error","Server uses not supported method"); } @key_value_pairs = split(/&/, $query_string); foreach $key_value (@key_value_pairs) { ($key, $value) = split(/=/, $key_value); $key =~ tr/+/ /; $value =~ tr/+/ /; $key =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex($1))/eg; $value =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex($1))/eg; if (defined($FORM_DATA{$key})) { $FORM_DATA{$key} = join("\0", $FORM_DATA{$key}, $value); } else { $FORM_DATA{$key} = $value; } } } #------------ sub ReadParse { local (*in) = @_ if @_; local ($i, $key, $val); # Read in text if (&MethGet) { $in = $ENV{'QUERY_STRING'}; } elsif (&MethPost) { read(STDIN,$in,$ENV{'CONTENT_LENGTH'}); } @in = split(/[&;]/,$in); foreach $i (0 .. $#in) { # Convert plus's to spaces $in[$i] =~ s/\+/ /g; # Split into key and value. ($key, $val) = split(/=/,$in[$i],2); # splits on the first =. # Convert %XX from hex numbers to alphanumeric $key =~ s/%(..)/pack("c",hex($1))/ge; $val =~ s/%(..)/pack("c",hex($1))/ge; # Associate key and value $in{$key} .= "~" if (defined($in{$key})); # '~' is the multiple separator $in{$key} .= $val; } return scalar(@in); } #------------ sub MethGet { local ($it); $it = $ENV{'REQUEST_METHOD'}; if ($it =~ /GET/) { return '1'; } return '0'; } #------------ sub MethPost { local ($it); $it = $ENV{'REQUEST_METHOD'}; if ($it =~ /POST/) { return '1'; } return '0'; } #------------ |
| <html> <head></head> <body> <iframe src='frame.htm#ziel'></iframe> </body> </html> |
| <html> <head></head> <body onLoad='endeform.ziel.focus()'><p>\n"; ... <a name='ziel' id='ziel'></a> </FORM> </body> </html> |
| <html> <head></head> <body> <iframe src='frame.htm'></iframe> </body> </html> |
| <html> <head></head> <body onLoad='endeform.ziel.focus()'><p>\n"; ... <form name=endeform><input type=text name=ziel size=1></form> </body> </html> |