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

***start input.asp***
<% thenum= request("num") %>


***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 %>
    
<%else%>
        <%k = thenum / m%>
        
<%end if%>
***end prime_number.asp***
算法应用：分布多线程树读取