一个ASP.NET的进度条

 

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