学习AJAX其实有个很重要的应用，就是为了执行另外几个站点的ASP，返回结果。
真正用起来，发现2个问题，一向做DELPHI，接触ASP不多的我，的确问题大堆。
第一个问题：
VBS的变量传递给JS。。。通过学习发现很简单的。。。
先看下我大体实现方法：
<% dim sSrv1Link sSrv1Link = "http://www.XXX.org/test1.asp?U=TESTUSER&M=111&E=222" %> <script type="text/javascript"> function synSvrData(str) { var xmlhttp; if (str.length==0) { document.getElementById("txtHint").innerHTML=""; return; } //创建对象 if (window.XMLHttpRequest) {// code for IE7+, Firefox, Chrome, Opera, Safari xmlhttp=new XMLHttpRequest(); } else {// code for IE6, IE5 xmlhttp=new ActiveXObject("Microsoft.XMLHTTP"); } //处理ONREADYSTATECHANGE事件，我们这里只相应服务器反馈成功的 xmlhttp.onreadystatechange=function() { if (xmlhttp.readyState==4 && xmlhttp.status==200) { document.getElementById("txtHint").innerHTML=xmlhttp.responseText; } } xmlhttp.open("GET",str,true); xmlhttp.send(); } </script>
上面这段代码的意思就是用AJAX实现访问一个ASP，并返回结果。
<script type="text/javascript"> var jsSvr='<%=sSrv1Link%>'; synSvrData(jsSvr) </script>
看到没？这个才是关键：
var jsSvr='<%=sSrv1Link%>';
js使用VBS变量，为什么要这样？因为加密串那些都是VBS生成的。
本地测试OK，现在把访问文件换成其他服务器上的。。。
sSrv1Link = "http://www.XXX2.org/test1.asp?U=TESTUSER&M=111&E=222"
意思就是跨域！！！
这时候问题来了。。。代码执行后无返回，后来发现不是不返回，是XXX2服务器不响应！
发现问题出现在 test1.asp 这个文件上！！！对！你没看错！
跨域请求，顾名思义，就是一个站点中的资源去访问另外一个不同域名站点上的资源。
以下两端摘抄：
随着 Web2.0 和 SNS 的兴起，Web 应用对跨域访问的需求也越来越多，但是，在脚本中进行跨域请求是受安全性限制的，Web 开发人员迫切需要提供一种更安全、方便的跨域请求方式来融合（Mashup）自己的 Web 应用。这样做的一个好处就是可以将请求分摊到不同的服务器，减轻单个服务器压力以提高响应速度；另外一个好处是可以将不同的业务逻辑分布到不同的服务器上以降低负载。
值得庆幸的是，跨域请求的标准已经出台，主流浏览器也已经实现了这一标准。W3C 工作组中的 Web Applications Working Group（Web 应用工作组）发布了一个 Cross-Origin Resource Sharing（跨域资源共享，该规范地址：和） 推荐规范来解决跨域请求的问题。该规范提供了一种更安全的跨域数据交换方法。具体规范的介绍可以访问上面提供的网站地址。值得注意的是：该规范只能应用在类似 XMLHttprequest 这样的 API 容器内。IE8、Firefox 3.5 及其以后的版本、Chrome浏览器、Safari 4 等已经实现了 Cross-Origin Resource Sharing 规范，已经可以进行跨域请求了。Cross-Origin Resource Sharing 的工作方式是通过添加 HTTP 头的方法来判断哪些资源允许 Web 浏览器访问该域名下的信息。然而，对于那些 HTTP 请求导致用户数据产生副作用的请求方法（特别是对于除了GET、某些 MIME 类型的 POST 之外的 HTTP方法），该规范要求浏览器对请求进行“预先验”，通过发送 HTTP 的 OPTIONS 请求头询问服务器有哪些支持的方法，在征得服务器的同意后，再使用实际的 HTTP 请求方法发送实际的请求。服务器也可以通知客户端是否需要将验证信息（如 Cookie 和 HTTP Authentication 数据）随同请求一起发送。
看了这么多，其实实现一句话：就是添加HTTP头！
先看看我们做测试用的原来的 test1.asp
<% sUser=request.QueryString("U") response.write("XXX.org: " & sUser) %>
下面添加跨域访问：
<% response.AddHeader "Access-Control-Allow-Origin", "http://www.XXX2.org" sUser=request.QueryString("U") response.write("XXX2.org: " & sUser) %>
response.AddHeader "Access-Control-Allow-Origin", "http://www.XXX2.org"对了，就这么一句话，跨域完成了，你再测试下，是不是OK了？
您可能感兴趣的文章: