28,391
社区成员
发帖
与我相关
我的任务
分享Response.Flush无法实现，求解
借用了别人的一段代码
<% Response.Buffer = true %>
<html>
<body>
<%
Call TestFlush ''Flush测试
%>
</body>
</html>
<%
''=================================================
Sub DoSomeThing ''模拟一个后台操作
For i=1 To 10000000
None = i
Next
End Sub
''=================================================
Function LongSpaceStr() ''制造一个长空字符串
LongSpaceStr = ""
For i=1 To 256
LongSpaceStr = LongSpaceStr& " "
Next
End Function
''=================================================
Sub TestFlush ''Flush测试
'用LongSpaceStr加长输出内容，以使Flush生效
Response.Write(LongSpaceStr&"正在执行操作，请等待..."&Now())
Response.Flush()
Call DoSomeThing
Response.Write("<br>操作成功完成！"&Now())
Response.Flush()
End Sub
''=================================================
%>
发现了问题的根源，通过服务器的内部地址访问(http://localhost/)可以实现，但通过该服务器的外网IP地址访问，就不行了，请问怎么解决啊。。。。。。。。
<% Response.Buffer = true %>
<html>
<body>
<%
Call TestFlush ''Flush测试
%>
</body>
</html>
<%
''=================================================
Sub DoSomeThing ''模拟一个后台操作
For i=1 To 10000000
None = i
Next
End Sub
''=================================================
Function LongSpaceStr() ''制造一个长空字符串
LongSpaceStr = ""
For i=1 To 256
LongSpaceStr = LongSpaceStr& " "
Next
End Function
''=================================================
Sub TestFlush ''Flush测试
'用LongSpaceStr加长输出内容，以使Flush生效
Response.Write(LongSpaceStr&"正在执行操作，请等待..."&Now())
Response.Flush()
Call DoSomeThing
Response.Write("<br>操作成功完成！"&Now())
Response.Flush()
End Sub
''=================================================
%>
发现了问题的根源，通过服务器的内部地址访问(http://localhost/)可以实现，但通过该服务器的外网IP地址访问，就不行了，请问怎么解决啊。。。。。。。。
...全文
请发表友善的回复…
发表回复
