20CN网络安全小组论坛 - 网站建设

论坛: 网站建设标题: ASP做的处理进度条

作者: NetFog [q70213526]

版主

这里主要使用Response.Flush实现这个功能
其中的ComplicatedPro过程是没用的,只是为了使效果更加明显,10W次循环一闪过去了．所以在里面调用一个过程，使用缓慢进行．．可以很清楚的看到进度．．

演示地址： http://www.xitour.com/lab/Rate_Of_Progress/demo.asp

代码:


<%
Server.ScriptTimeOut=99999
%>
进度条演示<br>
<img src=ProBanner.gif width=0 height=16 id=img1 name=img1><span id=txt1 name=txt1 style="font-size:9pt">0</span>
<%
Dim MaxNum
MaxNum = 100000
Response.Flush
For i=1 to MaxNum
	Call ComplicatedPro
	If (i mod 100) = 0 Then
		Response.Write "<script>img1.width=" & Fix((i/MaxNum) * 400) & ";" & VbCrLf
		Response.Write "txt1.innerHTML=""" & Fix(FormatNumber(i/MaxNum*100,4,-1)) & "%" & """;" & VbCrLf
		Response.Write "img1.title=""(" & i & ")"";</script>" & VbCrLf
		Response.Flush
	End If
Next

Sub ComplicatedPro()
	Dim z,n
	n=0
	For z = 1 to 1000
		n=n+1
	next
End Sub
%>

[此贴被 NetFog(q70213526) 在 07月24日00时39分编辑过]

地主发表时间: 06-07-24 00:38

论坛: 网站建设