<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<HEAD>
<title>XMLHttpRequest Demo</title>
<meta http-equiv="content-type" content="text/html;charset=UTF-8">
<meta http-equiv="Content-Script-Type" content="text/javascript">
<meta http-equiv="Content-Style-Type" content="text/css">
<link id="send2me" title="">
<script type="text/javascript">
function send4me(send4URL,send4MSG,send4DIV){
var xmlHttp = null;
// Mozilla, Opera, Safari sowie Internet Explorer 7
if (typeof XMLHttpRequest != 'undefined') {
xmlHttp = new XMLHttpRequest();
}
if (!xmlHttp) {
// Internet Explorer's
try {xmlHttp = new ActiveXObject("Msxml3.XMLHTTP");} catch(e) {
try {xmlHttp = new ActiveXObject("Msxml2.XMLHTTP");} catch(e) {
try {xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");} catch(e) {
xmlHttp = null;
}
}
}
}
// Wenn das Objekt erfolgreich erzeugt wurde
if (xmlHttp) {
var url = send4URL;
var msg = send4MSG;
var params = "&"+msg;
var myDiv = send4DIV;
xmlHttp.open("POST", url, true);
//Headerinformationen für den POST Request
xmlHttp.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
xmlHttp.setRequestHeader("X-BASEPORTAL", "convert-utf8");
xmlHttp.setRequestHeader("Content-length", params.length);
xmlHttp.setRequestHeader("Connection", "close");
xmlHttp.onreadystatechange = function () {
if (xmlHttp.readyState == 4) {
// Zurückgeliefertes Ergebnis wird in den DIV "myDiv" geschrieben
document.getElementById(myDiv).innerHTML = xmlHttp.responseText;
}
};
xmlHttp.send(params);
}
}
</script>
</HEAD>
<BODY>
<perl>
if($out)
{ # XMLHttpRequest
$AUSGABE=qq(Das ist der Inhalt vom TEXTFELD mit "XMLHttpRequest" ::\n).$out;
out convert_br(convert_links($AUSGABE));
die;
}
$db1="/bei123/Demo/Demo1";
</perl>
siehe <b><a href="http://baseportal.de/cgi-bin/baseportal.pl?show=/bei123/XMLHttpRequest_2">Code</a></b>
<do action=all db=$db1 listfields=-Aktion,Text,Hinweisfeld keyfield=Titel localparams=+>
<perl>
out qq(Anmelden, einen Titel wählen );
if($_get{db} eq "$db1")
{
get "Id==$_get{Id}","$db1";
########################################## so muss Text mit Umbrüchen übergeben werden
$Text=convert_html($Text);
$Text =~ s#\n#\\n#g;
###########################################
out qq( und dann <button onClick="send4me('$_link','out='+encodeURIComponent('$Text')+'','ERGEBNIS')">TEXT im grünen Div zeigen</button>)if($_get{Id}>0);
}
</perl>
<div id="ERGEBNIS" style="border:1px solid green;min-height:30px"></div>
</BODY>
</html>