call.asp,代码如下。。。
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>GB展示POST篇</title>
<script type="text/javascript">
var Try = {
//关于AJAX的兼容,我就直接用prototypejs里的Try方法来解决好了:D
these : function () {
var returnValue, length = arguments.length, i = 0;
for (; i < length; i ++) {
try {
returnValue = arguments[i]();
break;
} catch (exp) {}
}
return returnValue;
}
};
var Ajax = function () {
//这个函数只是为了返回对象,这里返回的都是对象,所以可以用new Ajax的形式来获取返回
return Try.these(
function () { return new XMLHttpRequest(); }
, function () { return new ActiveXObject('Msxml2.XMLHTTP'); }
, function () { return new ActiveXObject('Microsoft.XMLHTTP'); }
) || new Boolean(false);
};
var wc = new Ajax, url = "server.asp?val1=" + escape("问世间清纯为何物,");
/*
这里就不多说了,POST的时候url本来就可以传递参数,这样可以用querystring方式来获取。。。
*/
//open 发送请求
wc.open("POST", url + "&send_time=" + (new Date).getTime(), true);
//post的时候只需要设置content-type为application/x-www-form-urlencoded即可
wc.setRequestHeader("Content-Type", "application/x-www-form-urlencoded;");
//onreadystatechange 监视状态
wc.onreadystatechange = function () {
if (wc.readyState == 4 && wc.status == 200) alert(wc.responseText);
/*
这里多说两句。。。
考虑释放资源的话最好把wc.onreadystatechange = new Function了。。
注:如果停止请求的话,把wc.onreadystatechange = null;的话,会产生错误。。。
因为请求过程中onreadystatechange的引用必须给向函数。。。
停止发送请求可以用wc.abort方法
使用如下两者缺一不可。。。
wc.abort();
wc.onreadystatechange = new Function;
这样就可以把请求停止了。。
并且。。。根据测试得出。。。
如果用异步发送请求的话。。
假如第一个请求没有完全结束的话。。。立即发送第二个请求。。。这样,第一个请求会被放弃。。。
然后执行最后的请求。。。
而不是,都执行。。。:D
所以,一般的有重复请求的话,可以用上面的方法停止当前请求。
然后在重新发送一次请求,并且重新给予onreadystatechange引用值。
因为是使用演示,所以细节的东西就没有处理^O^
*/
};
//提交信息 POST的时候把参数放这里,就可以用Request.Form来获取了。。。
wc.send("val2=" + escape("直叫我当仁不让。"));
</script>
</head>
<body></body>
</html>
server.asp,代码如下。。。
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
With Response
.Charset = "GB2312" '注意这个必须要设置,因为不设置它的话,返回中文后,就会变成乱码。要保持编码统一。。。
.Write unescape(Request.QueryString("val1") & Request.Form("val2"))
End With
%>