<% @Language="VBScript" %>
<%
Option Explicit
Dim strBoundary
' change the following string to whatever boundary you wish to use
strBoundary = "MSBOB"
' turn off buffering
Response.Buffer = False
' set the content type as a multipart document
Response.ContentType = "multipart/x-mixed-replace;boundary=" & strBoundary
' create a function to output the boundary
Sub WriteBoundary()
Response.Write "--" & strBoundary & vbCrLf
Response.Write "Content-Type: text/html" & vbCrLf & vbCrLf
End Sub
' this is a very unelegant sleep function just to create a short delay
Sub Sleep(tmpSeconds)
Dim dtmOne,dtmTwo
dtmOne = Now()
While DateDiff("s",dtmOne,dtmTwo) < tmpSeconds
dtmTwo = Now()
Wend
End Sub
%>
<% WriteBoundary %>
<html>
<body>
<p>First Page</p>
</body>
</html>
<%
Sleep 10
WriteBoundary
%>
<html>
<body>
<p>Second Page</p>
</body>
</html>
<%
Sleep 10
WriteBoundary
%>
<html>
<body>
<p>Third Page</p>
</body>
</html>
可惜不支持ie
频道技术也被称为推技术(Push Technology),使用此项技术可以将内容直接发送给浏览者,而不是等待浏览者的到来。这就象是大家在收看电视节目,只要你打开电视就可以看到各个频道的节目,而当你关闭电视的时候,节目的信号仍在传送,在浏览者上网时自动接收自己在一个站点中订阅的指定内容,或下线浏览或将其做为桌面布景的一部分。Internet Explorer 4.0的用户是此技术的首先受益者,他们可以在屏幕上的多个小区域中浏览从网络上订阅的股市的行情、最新的电脑报价、体育比赛的结果……