分解质因数（asp 分布递归法）[原创]

***start input.asp***



***end input.asp***
***start prime_number.asp***
IsPrimeNumber = false
thenum = request("num")
if thenum = 2 or thenum = 1 then
    IsPrimeNumber = false
else
    for i = 2 to thenum -1
        if thenum / i = int(thenum / i) then IsPrimeNumber = true: m = i : exit for
    next
end if
if IsPrimeNumber = false then %>
    

        
        

***end prime_number.asp***
算法应用：分布多线程树读取