<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<perl>
#------------------------------------------------- PERL-START /Variablen definieren
$showhtx="$_link";
$showhtx =~ s#htx=#show=#g;
#-----------------------------------

$Attribut_rev="Rückwärtsverknüpfung...mal sehen, was man do noch mit machen kann..";
$Attribut_rel="Vorwärtsverknüpfung";

#-------------------------------------------------- HTML-Attribute auslesen und in Ajax einbinden
$onClick_RUN=qq( onClick="RUN('name='+getAttribute('name')+'&class='+this.className+'&id='+this.id+'&cite='+encodeURI(getAttribute('cite'))+'&for='+getAttribute('for')+'&rel='+encodeURI(getAttribute('rel'))+'&rev='+encodeURI(getAttribute('rev'))+'&action='+encodeURIComponent(getAttribute('action'))+'&'+encodeURI(getAttribute('action'))    ) ");
#------------------------------------------------------------------------------------------------

sub RUN
{###### Ajax-Subroutine
#-------------------------------------------------------------------- AnzeigeDaten
$out0=qq( action:[$action]\n var1:  [$var1]\n var2:  [$var2]\n id:    [$id]\n name:  [$name]\n class: [$class]\n for:   [$for]\n cite:  [$cite]\n rev:   [$rev]\n rel:   [$rel]\n);
#-------------------------------------------------------------------- Ausgabe für Div
$out1=qq(<pre>).convert_br($out0).qq(</pre>);
out(qq|document.getElementById("$for").innerHTML="$out1";|);
#-------------------------------------------------------------------- Ausgabe für Textarea
$out2=$out0;
$out2 =~ s#\n#\\n#g;
out(qq|document.getElementById("TEXTAREA").value="$out2";|);
#--------------------------------------------------------------------
}######
#----------------- PERL-ENDE
</perl>

<html>
<head>
<title>tag-Attribute für Ajax nutzen - DEMO</title>

<SCRIPT LANGUAGE="JavaScript">function _RUN(t){eval(t);}</SCRIPT>
<STYLE type="text/css">
ins {
text-decoration:none;
}
.class_RUN {
border:1px solid red;
cursor:pointer;
padding:3px;
}
.class_RELOAD {
border:1px solid blue;
cursor:pointer;
padding:3px;
}
.class_SHOW {
border:1px solid green;
cursor:pointer;
padding:3px;
font-weight:bold;
}
</STYLE>

</head>
<body>

<!------------------------- Attribute für Ajax_RUN  im Tag INS id="id_RUN"  vergeben --------------------> 
<INS $onClick_RUN action="var1=Demo_Var&var2=Eine weitere Variable mit <b>Sonderzeichen</b> äöüÄÖÜ ß " id="id_RUN" rel="$Attribut_rel" rev="$Attribut_rev" cite="URI/Zitat: $_link" for="OUT" name="onClick_RUN" class="class_RUN" style="font-size:18px" >Start DEMO</INS>
__
<ins class="class_RELOAD"><a href="$_link" style="font-size:18px">RELOAD</a></ins>
__
<ins class="class_SHOW"><a href="$showhtx" style="font-size:18px">CODE</a></ins>
<p><b>Ihr Browser</b>: $_HTTP_USER_AGENT</p>

<p>Div-Anzeige für AJAX-Daten</p>
<!----------------------------------------------------------- DIV für AJAX-Datenausgabe --------------->
<DIV id="OUT" style="border:1px solid orange;padding:2px;color:#191970;font-familiy:arial" >
Das ist vielleicht ne nette Idee, 
<p><b><i>HTML-Attribute</i></b> wie <b>'rev' 'rel' 'cite'</b> oder auch <b>'action'</b></p>
<p>über AJAX auszulesen und weiter zu verarbeiten, aber brint das nicht Probleme ?</p>
Hat jemand ne Ahnung, ob da baseportal nicht stolpert ? - 
<p>In dieser Demo funzt das o.g. einfache Beispiel mit den mir zur Verfügung stehenden Browsern;</p>
<p>Was sagen Euere Tests ??</p>
</DIV>

<p>Textarea-Anzeige für AJAX-Daten</p>
<textarea id="TEXTAREA" style="width:100%;height:200px" readonly >
Bitte DEMO Starten...

bzw. mit RELOAD Seite neu laden...

oder mit CODE den SeitenCode anzeigen !

Gruß H.Fehde 
</textarea>
<DIV><banner type=banner></DIV>
</body>
</html>
<!----------------------------------------------------------- perl-AJAX-RUN --------------------------->
<perl script=RUN>&RUN();</perl>