一个ASP.NET的进度条

　　1.创建进度条：
　　
　　<DIV id="Lay1" style="Z-INDEX: 1; LEFT: 1%; VISIBILITY: hidden; WIDTH: 99%; CURSOR: crosshair; POSITION: absolute; TOP: 32px; HEIGHT: 95%; BACKGROUND-COLOR: #ffffff"><FONT face="宋体"></FONT><FONT face="宋体"></FONT><FONT face="宋体"></FONT><FONT face="宋体"></FONT><br>
　　<b><font color="#800080" size="2">      & nbsp;          正在检索数据，请稍候</font></b>
　　<table align="center">
　　<tr>
　　<td>
　　<div style="BORDER-RIGHT: black 1px solid; PADDING-RIGHT: 2px; BORDER-TOP: black 1px solid; PADDING-LEFT: 2px; FONT-SIZE: 8pt; PADDING-BOTTOM: 2px; BORDER-LEFT: black 1px solid; PADDING-TOP: 2px; BORDER-BOTTOM: black 1px solid"><span id="progress1"> </span>
　　<span id="progress2"> </span> <span id="progress3"> </span> <span id="progress4">
　　 </span> <span id="progress5"> </span> <span id="progress6"> </span>
　　<span id="progress7"> </span> <span id="progress8"> </span> <span id="progress9">
　　 </span> <span id="progress10"> </span> <span id="progress11"> </span>
　　<span id="progress12"> </span> <span id="progress13"> </span><span id="progress14"> </span><span id="progress15"> </span>
　　</div>
　　</td>
　　</tr>
　　</table>
　　<script language="javascript">
　　var progressEnd = 15; // set to number of progress <span>''s.
　　var progressColor = ''blue''; // set to progress bar color
　　var progressInterval = 300; // set to time between updates (milli-seconds)
　　
　　var progressAt = progressEnd;
　　var progressTimer;
　　function progress_clear() {
　　for (var i = 1; i <= progressEnd; i++) document.getElementById(''progress''+i).style.backgroundColor = ''transparent'';
　　progressAt = 0;
　　}
　　function progress_update() {
　　progressAt++;
　　if (progressAt > progressEnd) progress_clear();
　　else document.getElementById(''progress''+progressAt).style.backgroundColor = progressColor;
　　progressTimer = setTimeout(''progress_update()'',progressInterval);
　　}
　　function progress_stop() {
　　clearTimeout(progressTimer);
　　progress_clear();
　　}
　　//progress_update(); // start progress bar
　　</script>
　　</DIV>
　　
　　2.设置查询按钮属性
　　
　　Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
　　''在此处放置初始化页的用户代码
　　If Not IsPostBack The
　　but_find.Attributes.Add("onClick", "Lay1.style.visibility='''';progress_update();")
　　End If
　　End Sub
　　
　　3.注册javascript脚本
　　
　　Public Sub scriptjdt(ByVal objPage As System.Web.UI.Page, ByVal strValue As String)
　　Dim jb As String
　　jb = "<script language=''JavaScript''>" + strValue + "</script>"
　　objPage.RegisterStartupScript("jdt_ok", jb)
　　End Sub
　　
　　4.在查询按钮单击事件中调用。
　　
　　Private Sub but_find_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but_find.Click
　　''查询数据代码
　　
　　''----------------
　　Me.scriptjdt(Me, "Lay1.style.visibility=''hidden'';progress_stop();") ''关闭进度条代码
　　End Sub