91bd1aee41
* utils/hbmk2/hbmk2.prg
- Deleted hb_DirBase() DJGPP hack after Przemek's fix.
- Deleted gcc compiler command line hack after Przemek's fix.
* contrib/hbxbp/xbp.ch
+ Added extra protection for Windows-only debug line.
* contrib/hbxbp/apig.ch
* Minor in comment.
* contrib/rddado/adordd.prg
* Minor formatting.
* Changed it to use non-legacy OLE interface.
PLEASE REVIEW & TEST.
* contrib/hbwin/legacy.prg
+ Added support for TOleAuto():cClassName var.
+ Added RTE generation in case the OLE object cannot be created.
PLEASE REVIEW & TEST.
+ contrib/rddado/tests/test.mdb
+ Added. It's generated by access2.prg to avoid any problems.
* contrib/rddado/tests/access1.prg
* Minor formatting.
; TOFIX: Does't work:
---
Error BASE/3012 Argument error: OPEN
Called from WIN_OLEAUTO:OPEN(0)
Called from ADO_OPEN(0)
Called from DBUSEAREA(0)
Called from MAIN(11)
---
- examples/uhttpd
+ examples/httpsrv
- examples/httpsrv/uhttpd.ini
+ examples/httpsrv/httpsrv.ini
- examples/httpsrv/uhttpdgd.hbp
+ examples/httpsrv/httpsrvg.hbp
- examples/httpsrv/uhttpdc.c
+ examples/httpsrv/httpsrvc.c
- examples/httpsrv/uhttpd.prg
+ examples/httpsrv/httpsrv.prg
* examples/httpsrv/cookie.prg
* examples/httpsrv/cgifunc.prg
* examples/httpsrv/session.prg
* examples/httpsrv/readme.txt
* Renamed uhttpd to httpsrv.
NOTE: If there are better names proposed I can rename
it to anything else. Mindaugas's new uhttpd will
be name uhttpd2 to avoid any ambiguity.
56 lines
1.4 KiB
HTML
56 lines
1.4 KiB
HTML
<html>
|
|
<head>
|
|
<title>Simple Ajax Example</title>
|
|
<script language="Javascript">
|
|
|
|
function xmlhttpPost(strURL)
|
|
{
|
|
var xmlHttpReq = false;
|
|
var self = this;
|
|
// Mozilla/Safari
|
|
if ( window.XMLHttpRequest )
|
|
{
|
|
self.xmlHttpReq = new XMLHttpRequest();
|
|
}
|
|
// IE
|
|
else if ( window.ActiveXObject )
|
|
{
|
|
self.xmlHttpReq = new ActiveXObject("Microsoft.XMLHTTP");
|
|
}
|
|
self.xmlHttpReq.open('POST', strURL, true);
|
|
self.xmlHttpReq.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded');
|
|
self.xmlHttpReq.onreadystatechange = function()
|
|
{
|
|
if ( self.xmlHttpReq.readyState == 4 )
|
|
{
|
|
updatepage( self.xmlHttpReq.responseText );
|
|
}
|
|
}
|
|
self.xmlHttpReq.send( getquerystring() );
|
|
}
|
|
|
|
function getquerystring()
|
|
{
|
|
var form = document.forms[ 'f1' ];
|
|
var word = form.word.value;
|
|
qstr = 'w=' + escape(word); // NOTE: no '?' before querystring
|
|
return qstr;
|
|
}
|
|
|
|
function updatepage( str )
|
|
{
|
|
document.getElementById( "result" ).innerHTML = str;
|
|
}
|
|
|
|
</script>
|
|
</head>
|
|
<body>
|
|
This is a simple ajax test. Please type a string in input field and press GO button.
|
|
<form name="f1">
|
|
<p>word: <input name="word" type="text">
|
|
<input value="Go" type="button" onclick='JavaScript:xmlhttpPost("/cgi-bin/testajax.hrb")'></p>
|
|
<div id="result"></div>
|
|
</form>
|
|
Return to <a href="/">Main Page</a>
|
|
</body>
|
|
</html> |