asp中网页源代码的获取，跨域的实现及js的传值

最近几天一直在研究怎样去掉用google翻译我博客的页面中的框架，最后得出结论没有完美解决方案。详情见次博文-http://www.daokers.cn/article/original/451.htm
我们知道静态程序是我们从服务器上下载网页后在本地执行，而动态网页是在服务器中执行然后返回给我们执行的结果，从而达到服务端和客服端交互的效果，这就是所谓的动态。那么获取网页源代码的方法我们也从这2个方面来着手。下面我就从测试google翻译的usg值为例详细说说网页源代码的获取，跨域的实现及js的传值。
目标：获取http://www.daokerstest.com/test.asp&u=http://www.daokers.cn这个页面的源代码，U值为变量。
第一种方法，在本地执行程序获取指定网页源代码，这通过js代码加上xmlhttp组件来完成。
在test.js文件中。

function translate() {
var currentUrl=window.location.href;//获取当前页面地址或者别的网站地址
var translateUrl=”http://www.daokerstest.com/test.asp&u=”+currentUrl
var xmlhttp = new ActiveXObject(“Microsoft.XMLHTTP”);
xmlhttp.open(“GET”,translateUrl,false);
xmlhttp.send();
var myString=xmlhttp.responseText;//获取返回的源码值
document.write(myString)//传出此值
}

第二种方法，上面的方法最简单，但是最大的问题是如果想获取别的网站的源代码就存在跨域的问题，代码在xmlhttp.open(“GET”,translateUrl,false);处将无法执行，那么我们可以让这个代码在服务器执行然后再传回来，也就是通过代理来解决跨域的问题。
这里只能通过一个代理页面来获取目标网页的源代码，这里代理页面为http://www.daokerstest.com/daili.asp
在test.js文件中。

function translate() {
var currentUrl=window.location.href;//获取当前页面地址或者别的网站地址
var translateUrl=”http://www.daokerstest.com/daili.asp&u=”+currentUrl
var xmlhttp = new ActiveXObject(“Microsoft.XMLHTTP”);
xmlhttp.open(“GET”,translateUrl,false);
xmlhttp.send();
var myString=xmlhttp.responseText;//获取返回的源码值
document.write(myString)//传出此值
}

daili.asp代码：

这里涉及到了asp和js之间的传值，这个方法相当的实用，是蓝色理想的小秦告诉我的。最开始我是用string=request(“id”)来获取，然后在js中<%=string%>调用，一直失败，最后小秦的提醒才让我如梦初醒。我严重忽视了server中js和asp的执行顺序，在server中是先执行js然后执行asp代码，所以当js中调用string值时，asp代码还没有执行获取id值呢！用Request.Item(“id”).Item就可以直接在js中获取参数值，从而成功的实现了绕过了跨域访问限制。
第三种方法，js可以获取网页源代码，asp也是可以的，并且不存在跨域的问题。js代码不变。
daili.asp代码：

<% function getHTTPPage(url) dim Http set Http=server.createobject("MSXml2.XmlHTTP") Http.open "GET",url,false Http.send() if Http.readystate<>4 then
exit function
else
If Http.status=200 Then
response.write replace(BytesToBstr(http.responseBody,”gb2312″),chr(10),””)
End If
end if
getHTTPPage=bytesToBSTR(Http.responseBody,”GB2312″)
set http=nothing
if err.number<>0 then err.Clear
end function
Function BytesToBstr(body,Cset)’转换代码，不然全是乱码
dim objstream
set objstream = Server.CreateObject(“adodb.stream”)
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Dim Url,Html,Usg,id
id=Request(“id”)
Url=”http://www.daokerstest.com/test.asp&u=”+id
Html = getHTTPPage(Url)
Response.write Html
‘此代码修改自http://www.stubc.com/thread-465-1-3.html
%>

这个就是直接在asp中用request获取参数，然后获取指定网页源代码。
从上面实例可见，都是利用XmlHTTP来获取别站的网页源代码，只要代码是在server执行就不存在跨域的问题。
参考文献：
http://www.stubc.com/thread-465-1-3.html
http://www.stubc.com/thread-1366-1-3.html
http://blog.linkhelper.cn/asp/aspxmlhttp.asp