ASPでプログレスバーを表示するには？

response.buffer=true

' <スパン キャッシュ技術の応用 .

dim lostnum

' <スパン 防止する dmax 大きすぎるし ディープステップ 小さすぎる .

ディムショナム

delayshow(dstep,dmax)

sub delayshow(dstep,dmax)

' dmax 処理する量を示す dmax( ステップ <スパン ) を実行すると、全処理が完了します。 ディステップ 全プロセスのうち、処理されたおおよその割合を示す .

<未定義

ディムトータル

' <スパン すべての画面を表示する .

dim dtemp

' 遷移変数 .

合計100

dtemp=dstep

dstep=dstep+lostnum

if (dstep*total)/dmax<1 then

' スクリーンに接続した場合 <スパン 1% <スパン ない場合 , は描画されません , また、変数 ロストナム 未塗装品の総保管個数 , このプロシージャの次の呼び出しを継続するために .

lostnum=lostnum+dtemp

さもなければ

ccc=1〜の場合 fix((dstep*total)/dmax))

' 整数の取得 .

応答.Flush

<スパン shownum=shownum+fix((dstep*total)/dmax)

lostnum=0

' <スパン キャッシュに画像を表示する、変数 ショウドゥム 現在描画中の画像を保存するために使用します .

終了する場合

エンドサブ

sub showlost()

ccc=1〜(100-shownum)の場合

Response.Write ("<img src=""suifengqiwu/images/delay1.jpg"">")を実行します。

' 余りを取ると描画が不完全になる場合 100 回 , によって showlost() 未抽選の残りを処理済みとして表示する .

次

Response.Write "<BR>"

応答.フラッシュ

エンドサブ