彩票抽奖器(35选7)

给大家贡献一个35选7的抽奖器，本人编的，欢迎使用！
另存为.htm即可使用！

<script language=vbscript>

Randomize
dim ti(7)
dim K

for i=0 to 6
K=0
sum=Int((0 - 36 + 1) * Rnd + 36)
if i>0 then
for j=0 to i-1
if ti(j)=sum then
i=i-1
K=6
exit for
end if
next
end if
if K=0 then
ti(i)=sum
end if
next




for i=0 to 6
document.write ti(i)&"<br>"
next

</script>