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

    <b><font color="#800080" size="2">                正在检索数据，请稍候...</font></b>
    <table align="center">
     <tr>
      <td>
       <div 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