我是一名尝试处理 JavaScript 的 Perl 编码员。试图发出 AJAX 请求但函数总是返回undefined
。这段代码有什么问题?如何让它正常工作?
var url = 'http://local.com/cgi-bin/hello2.pl';
var params = 'a=b&c=d';
// url returns a plain text:
// 1234567890 2013 05 May Friday 13 23 45 01
var enddate = getEndDate(url, params);
var dow = enddate.EDDAYOW; // must be a 'Friday' but returns undefined
alert(dow);
function getEndDate(url, params) {
var myRequest = new ajaxObject(url);
myRequest.callback = function(responseText) {
if (responseText.length > 20) {
var n = responseText.split(" ");
return {
'edseconds': n[0],
'EDYEAR': n[1],
'EDMON': n[2],
'EDMONNAME': n[3],
'EDDAYOW': n[4],
'EDDAY': n[5],
'EDHOUR': n[6],
'EDMIN': n[7],
'EDSEC': n[8]
};
} else {
getEndDate(url, params);
}
}
myRequest.update(params);
}
function ajaxObject(url, callbackFunction) {
var that = this;
this.updating = false;
this.abort = function() {
if (that.updating) {
that.updating = false;
that.AJAX.abort();
that.AJAX = null;
}
}
this.update = function(passData, postMethod) {
if (that.updating) {
return false;
}
that.AJAX = null;
if (window.XMLHttpRequest) {
that.AJAX = new XMLHttpRequest();
} else {
that.AJAX = new ActiveXObject("Microsoft.XMLHTTP");
}
if (that.AJAX == null) {
return false;
} else {
that.AJAX.onreadystatechange = function() {
if (that.AJAX.readyState == 4) {
that.updating = false;
that.callback(that.AJAX.responseText, that.AJAX.status, that.AJAX.responseXML);
that.AJAX = null;
}
}
that.updating = new Date();
if (/post/i.test(postMethod)) {
var uri = urlCall + '?' + that.updating.getTime();
that.AJAX.open("POST", uri, true);
that.AJAX.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
that.AJAX.setRequestHeader("Content-Length", passData.length);
that.AJAX.send(passData);
} else {
var uri = urlCall + '?' + passData + '&timestamp=' + (that.updating.getTime());
that.AJAX.open("GET", uri, true);
that.AJAX.send(null);
}
return true;
}
}
var urlCall = url;
this.callback = callbackFunction ||
function() {};
}