***start input.asp***
<% thenum= request("num") %>
<%=thenum%>
***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***
算法应用:分布多线程树读取