不用 iframe 和 SSI 能否实现包含页（转贴）

原地址：http://www2.flash8.net/teach/4014.htm

主要是asp下面的实现。很多都可以在其他地方应用。

不用 iframe 和 SSI 能否实现包含页

作者：闪吧类型:原创来源:闪吧

style="PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; MARGIN: 0px; WIDTH: 400px; PADDING-TOP: 0px; HEIGHT: 25px" src="teachInfo.aspx?id=4014" frameborder="0" scrolling="no">

不用 iframe 和 SSI 能否实现包含页

解决思路：
可以用 download 行为下载后再用 innerHTML 特性显示出来。

具体步骤：
1．调用页代码。

<span id="demo" src="demo.htm" _fcksavedurl=""demo.htm"" _fcksavedurl=""demo.htm""
style="behavior:url(#default#download)"></span>
<SCRIPT>
function window.onload(){
   demo.startDownload(demo.src,fnDownload)
}
function fnDownload(oSource){
   demo.innerHTML=oSource
}
</SCRIPT>

2.被调用页demo.htm的代码。

<span style="color:red;font:bold 12px Tahoma">
测试演示 TEST test DEMO demo</span>

注意：在本例中id为demo的对象必须设置它的默认行为为download。
技巧：笔者总结的包含调用文件的9种方法：
1.script。需要注意的是include.js里不能再包含<script>和</script>，扩展名随意，所有内容必须经由 write()、wirteln()、innerHTML、innerText、outerHTML或outerText 输出显示。代码示例：

<script src="include.js"></script>

2.iframe。这个不用多解释了，有疑问的话请第一部分第六章。代码示例：

<iframe src="index.asp"></iframe>

3.Object(Scriptlets组件)。代码示例：

有滚动条<br>
<object data="index.asp" type="text/html" width=400 height=300></object>
<br>无滚动条<br>
<object style="border: 0px" type="text/x-scriptlet" data="index.asp" width=400 Height=300></object>

4.SSI(服务器端包含)。代码示例：




5.Server.Transfer,Server.Execute(ASP对象的方法)。代码示例：

server.execute ("index.asp")
server.transfer ("index.asp")

6.FSO(FileSystemObject，文件读写组件)代码示例：

<%
TF=Server.Mappath("index.asp")
set fs=server.createobject("scripting.filesystemobject")
set ts=fs.opentextfile(TF)
Do While(ts.atendofstream<>true)
response.write(ts.readline)
Loop
ts.close
%>
7.download 行为。代码示例：

<span id="demo" src="demo.htm"
style="behavior:url(#default#download)"></span>
<SCRIPT>
function window.onload(){
   demo.startDownload(demo.src,fnDownload)
}
function fnDownload(oSource){
   demo.innerHTML=oSource
}
</SCRIPT>

8.XMLHTTP组件。代码示例：

<script for="window" event="onload">
  with(new ActiveXObject("Microsoft.XMLHTTP")){
  open("get",demo.src,false,"","")
  send()
  demo.innerHTML=ResponseText
  }
</script>
<span id="demo" src="demo.htm"></span>

需要注意，目标文件最好以Unicode或UTF-8编码保存，否则目标文件中的双字节文字会变成乱码。当然，可以用下面的函数把返回的ResponseText处理一下，但是这样效率比较低，文件较大时不推荐使用。XMLHTTP这种方法也可以在后台程序中使用。

<script language=vbscript>
function bytes2bstr(vin)
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
</script>

9.HTC(HTML Component，将在下一章中介绍)。
(1)包含页代码。

<span style="behavior:url(index.htc)"></span>

(2)被包含页index.htc的代码。

<public:attach event="oncontentready" onevent="loadit()" />
<script>
function loadit(){
insertAdjacentHTML("afterBegin", include.innerHTML)
}
</script>
<xmp id="include">
被包含内容
<a href=http://www.flash8.net>flash8</a>
</xmp>

特别提示
本例代码运行效果如图2.4.5所示，页面中所显示的文字为demo.htm页的。

图2.4.5 download行为应用效果

特别说明

download 行为的作用是下载文件并在下载完成后通知一个指定的回调函数，该行为只有一个startDownload方法：
startDownload 下载指定文件，该方法带两个参数，第一个参数为指定下载的文件地址，第二个参数为下载完成后要执行的代码的函数的指针。如果调用的函数是用 VBScript 脚本编写，需要使用 GetRef 函数获取此回调函数的指针。

责任编辑:kissall 时间:2005年8月29日