一个ASP.NET的进度条

创建进度条

<DIV id=Lay ><FONT face=宋体></FONT><FONT face=宋体></FONT><FONT face=宋体></FONT><FONT face=宋体></FONT><br>

<b><font color=# size=>& nbsp; 正在检索数据请稍候</font></b>

<table align=center>

<tr>

<td>

<div ><span id=progress></span>

<span id=progress></span> <span id=progress></span> <span id=progress>

</span> <span id=progress></span> <span id=progress></span>

<span id=progress></span> <span id=progress></span> <span id=progress>

</span> <span id=progress></span> <span id=progress></span>

<span id=progress></span> <span id=progress></span><span id=progress></span><span id=progress></span>

</div>

</td>

</tr>

</table>

<script language=javascript>

var progressEnd = ; // set to number of progress <span>s

var progressColor = blue; // set to progress bar color

var progressInterval = ; // set to time between updates (milliseconds)

var progressAt = progressEnd;

var progressTimer;

function progress_clear() {

for (var i = ; i <= progressEnd; i++) documentgetElementById(progress+i)stylebackgroundColor = transparent;

progressAt = ;

}

function progress_update() {

progressAt++;

if (progressAt > progressEnd) progress_clear();

else documentgetElementById(progress+progressAt)stylebackgroundColor = progressColor;

progressTimer = setTimeout(progress_update()progressInterval);

}

function progress_stop() {

clearTimeout(progressTimer);

progress_clear();

}

//progress_update(); // start progress bar

</script>

</DIV>

设置查询按钮属性

Private Sub Page_Load(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles MyBaseLoad

在此处放置初始化页的用户代码

If Not IsPostBack The

but_findAttributesAdd(onClick Laystylevisibility=;progress_update();)

End If

End Sub

注册javascript脚本

Public Sub scriptjdt(ByVal objPage As SystemWebUIPage ByVal strValue As String)

Dim jb As String

jb = <script language=JavaScript> + strValue + </script>

objPageRegisterStartupScript(jdt_ok jb)

End Sub

在查询按钮单击事件中调用

Private Sub but_find_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles but_findClick

查询数据代码

Mescriptjdt(Me Laystylevisibility=hidden;progress_stop();) 关闭进度条代码

End Sub