Welcome to Tekcomp ASP

5 Active Users Viewing This Site

	Home
	Samples
	Search
	Tools
	Publication
	ASP Links
	Adds
	Forum
	Feedback
	Tekcomp ASP chat
	Site Search:

"The Progress Bar ASP Source: "

Click here to view sample

Just click Highlight All Button, and copy (Press Control-c on Keyboard) the script into your Script editor such as NotePad or your favorite ASP Editor. And that's all she wrote !...... :)

 <% Response.Buffer = False server.scriptTimeout =25000 %>  <div id="bar"> <TABLE style="color:red;" HEIGHT="16" Border=0><TR> <div id="ProgBar" style="font-family:Verdana; font-size=9pt;">Progress:<BR> <TD BGCOLOR=RED ID=statuspic></TD> </div> <TD> <div id="perctshow" style="font-family:Verdana; font-size=9pt;"></div> </TD> </TR></TABLE> </DIV> <BR> <script language="Javascript">var progBarWidth=250;</script> <% iProcessedSoFar = 0 iTotalRecords = 5000 strHTML=" <Table width=""80%"" border=0><TR><TD Width=""100%"" BGCOLOR=""gray"" align=""CENTER"">Results:<td></tr>" for i = 0 to iTotalRecords ' next few lines are just a surrogate for whatever your processing function to be timed strHTML = strHTML & "<tr width=""100%""><td width=""100%"" BGCOLOR=""#FFCC66""> Your results</td></tr>" iProcessedSoFar = iProcessedSoFar + 1 pctComplete = (iProcessedSoFar / iTotalRecords) perc = (iProcessedSoFar / iTotalRecords) * 100 if i mod 8 = 0 then ShowProgress pctComplete end if next FinishProgress strHTML=strHTML & "</TABLE>" 'Response.write strHTML Sub ShowProgress(nPctComplete) Response.Write "<SCR" & "IPT LANGUAGE=""JavaScript"">" & vbCrlf Response.Write "statuspic.width = Math.ceil(" & nPctComplete & " * progBarWidth);" & vbCrlf Response.Write "perctshow.innerText = '" & perc & "%';" Response.Write "</SCR" & "IPT>" End Sub Sub FinishProgress Response.Write "<SCR" & "IPT LANGUAGE=""JavaScript"">" & vbCrlf 'Response.Write "ProgBar.style.visibility ='hidden';" & vbCrLf 'Response.Write "perctshow.style.visibility ='hidden';" & vbCrLf Response.Write "bar.style.visibility ='hidden';" & vbCrLf Response.Write "</SCR" & "IPT>" end sub %>

Developed by : Peter A. Bromberg, Ph.D.
Modified by: Alberto Ramos

Visitors Since 11/10/99	Home \| Join \| Samples \| Feedback \| Disclaimer Please report any bugs to Webmaster. Copyright © 2008 Tekcomp ASP. All Rights Reserved.