<%
サブシュアシン()
薄暗い outRed 、 outBlue 、 blueBall 、redBall(8) 、a 、I
ランダム化
a=32
I=13
ブルーボール =int(I*rnd()+1)
i=1 ～ 7 の場合
tmp = int(a*rnd()+1)
同じ=偽
j=1からi-1の場合
redBall[j]=tmp の場合、isSame=true
次
isSame=false の場合
redBall[i] = tmp
それ以外
i = i - 1
終了する場合
次
outBlue = 蓝球： & blueBall
outRed = 红球:
i = 1 ～ 7 の場合
outRed = outRed & redBall & 、
次
response.write out赤とoutBlue
エンドサブ
%>