<%
sub shuaxin()
dim outRed , outBlue , blueBall ,redBall(8) ,a , I
Randomize
a=32
I=13
blueBall =int(I*rnd()+1)
for i=1 to 7
tmp = int(a*rnd()+1)
isSame=false
for j=1 to i-1
if redBall[j]=tmp then isSame=true
next
if isSame=false then
redBall[i] = tmp
else
i = i - 1
end if
next
outBlue = 蓝球： & blueBall
outRed = 红球:
for i = 1 to 7
outRed = outRed & redBall & ,
next
response.write outRed & outBlue
end sub
%>