如何在ASP里显示进度条?

response.buffer=true

class CFoo
    dim publicParam ‘用 dim 申明公有成员变量
    private privateParam ‘用 private 申明私有成员变量
    ‘publicParam = “公有” ‘不能在 class
标记以内、类函数以外为成员变量赋值
    ‘const MAX_LEN = 5 ‘不能在 class 标记以内、类函数以外使用 const
   
    ‘该函数为构造函数,在使用 set new 创建对象时,自动执行
    private sub class_initialize()
        publicParam = “公有” ‘可以在这里为成员变量赋值
        privateParam = “私有”
    end sub
   
    ‘该函数为析构函数,在使用 set nothing 释放对象时,自动执行
    private sub class_terminate()
        response.Write “释放对象”
    end sub
   
    ‘公有成员函数(过程)
    ‘成员函数(过程)不需要也不能申明
澳门新葡亰网站注册,    sub PrintParam(index)
        if index = 1 then
            call PrintPublicParam()
        elseif index = 2 then
            call PrintPrivateParam()
        end if
    end sub
   
    ‘私有成员函数(过程)
    ‘只是比公有成员函数(过程)多一个 private
    private sub PrintPublicParam()
        response.Write publicParam
    end sub
   
    private sub PrintPrivateParam()
        response.Write privateParam
    end sub
end class

‘ 应用缓存技术.

dim obj
set obj = new CFoo ‘自动调用 class_initialize 函数,为
publicParam、privateParam 赋值
obj.publicParam = “新的公有”
obj.privateParam = “新的私有” ‘将发生错误,因为 privateParam
是私有变量
call obj.PrintParam(1) ‘显示 publicParam 的值
call obj.PrintPublicParam() ‘将发生错误,因为 PrintPublicParam
是私有函数
set obj = nothing ‘自动调用 class_terminate 函数,显示“释放对象”

dim lostnum

相关阅读

‘ 防止dmax过大而dstep过小.

  • ASP(VBScript)
    类中有没有静态方法、静态函数、静态成员这些

dim shownum

delayshow(dstep,dmax)

sub delayshow(dstep,dmax)


dmax表示要处理多少dmax(步)才能完成全过程,dstep表示已处理的占全过程的大致百分比.

dim total

‘ 显示所有画面.

dim dtemp

‘ 过渡变量.

total=100

dtemp=dstep

dstep=dstep+lostnum

if (dstep*total)/dmax1 then


当画面连1%都没有时,则不画,同时用变量lostnum存放未画的总数,便于下次调用本过程时继续.

lostnum=lostnum+dtemp