Question

ASP网站调用另一个网站内容的问题

比如说 我想在我的所有网站上加上 百度的隐藏链接
<div style="display:none;">
<a href="http://www.baidu.com/">百度</a>
</div>

我做了一个ASP页面www.aaa.com/lianjie.asp 代码中就上面那三行代码 预览时 是空白的.在代码中有链接

我如果想让上面那三行代码在 www.bbb.com/index.asp 的代码中显示出来， 应该怎样弄啊！

我设置了半天也不会

把<iframe src="http://www.aaa.com/lianjie.asp"></iframe>插入到 www.bbb.com/index.asp 中后
在www.bbb.com/index.asp 代码中还是显示<iframe src="http://www.aaa.com/lianjie.asp"></iframe>

而不是显示我想要的那三行代码

问问高人应该怎样解决啊！
不想直接插入， 因为有多个网站，如果改动的话，太麻烦，用我说的这种方法后，只用改lianxi.asp这个文件都可以了！

大家给个解决的办法啊

Answer 1

你隐藏了当然显示不出来，还是没太明白你的意思，如果你不会的话HI我吧，我教你做

你试试这段代码：
<%
On Error Resume Next
Server.ScriptTimeOut=9999999
response.write(getHTTPPage("http://www.aaa.com/lianjie.asp"))
function getHTTPPage(url)
dim http
set http=createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytes2BSTR(Http.responseBody)
set http=nothing
if err.number<>0 then err.Clear
end function
Function bytes2BSTR(vIn)
dim strReturn
dim i,ThisCharCode,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
%>

Answer 2

呵呵：
在www.aaa.com/lianjie.asp页面中加入
<iframe src="http://www.baidu.com"></iframe>代码，那么就可以显示你的页面，也可以显示百度的页面！

Answer 3

<iframe src="http://www.aaa.com/lianjie.asp" style="display:none"></iframe>

Answer 4

iframe只是包含，不能将代码显示出来
需要直接将上面的三行代码插入到index.asp

Answer 5

回答者： lnwscn 的答案就可以。
他这个代码是获取远程网页的源文件，然后显示到当前页面，用这段代码可以包含任意网页的内容。