ASP 陣列資料做排序

ASP 陣列資料做排序

sub SubSort()
    for i=0 to 2    'Array數量
        vFlag   = true
        vTempNO = i
        vTemp   = cint(vNOList(vTempNO))

        do while(vFlag)
            if 0 < vTempNO then
                if vTemp < cint(vNOList(vTempNO - 1)) then  '把小的往前移
                    vNOList(vTempNO)    = vNOList(vTempNO - 1)
                    vNOList(vTempNO - 1)= vTemp
                else
                    vFlag   = false
                end if
            else
                vFlag   = false
            end if
            vTempNO = vTempNO - 1
        loop
    next
end sub