1.创建进度条：
　　
　　<DIV id="Lay1" ><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 ><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

本篇新闻：一个ASP.NET的进度条-ASP．NET