영삼넷IT 강국 = 김영삼 블로그에 오신걸 환영합니다.

<%@ Language=VBScript %>
<% Response.Buffer = true %>
<center>
<b>잠시만 기다려 주세요.</b>
<br>
<OBJECT
id=bbb
name=bbb
style="WIDTH: 300px; TOP: 500px; HEIGHT: 24px;Align: center;"
classid="clsid:0713E8D2-850A-101B-AFC0-4210102A8DA7"
codebase="http://activex.microsoft.com/controls/vb6/comctl32.cab" >
<PARAM NAME="BorderStyle" VALUE="0">
<PARAM NAME="Bordercolor" VALUE="42343243243">
<PARAM NAME="Enabled" VALUE="1">
</OBJECT>

<div id=kkkk name=kkkk></div>

<% Response.Flush %>
<%

'실행 응답시간
aaa = 1000

%>
<%
'100% 완료시 보여질 페이지
strVirtualResult = "aaa.asp"

%>

<% for i = 1 to aaa %>
<script language="JavaScript">
<% Response.Flush %>
kkkk.innerHTML = '<%=100 * (i/aaa)%>';
<% Response.Flush %>
bbb.Value = <%=100 * (i/aaa)%>;
<% Response.Flush %>
if (bbb.Value == 100){
window.location.href = '<%=strVirtualResult %>';
}
<%response.write "kkkk.innerHTML ='   Loading...    " & cint(100 * (i/aaa)) & "%'" %>
</script>
<%next%>
<% Response.End%>
<% Response.Clear%>