急求：用ASP求n以内的素数

以asp输出1-50内的素数举例:
<%
'求1-50的素数,(m)上限可以自行修改
response.write "1 to 50 的素数是: "
dim i,m,n,t,str
for m = 2 to 50
t = 1
i = 2
n = sqr(m)
while i<=n and t
if m mod i = 0 then
t = 0
else
i = i + 1
end if
wend
if t then
str = str & m & ","
end if
next
response.write left(str,len(str)-1)
response.write "."
%>