大家都知道福利彩票吧?想着或许哪天运气好的不得了的时候,就中个五百万大奖,呵呵,那么福利彩票生成程序ASP版是怎么回事呢?请大家更创新互联网站建设的小编来看看这其中的神奇之处吧。
<%
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
%>
好啦,代码就是这样的啦,具体操作就看你自己啦。
如果你在网站制作上遇到什么难题,欢迎咨询成都创新互联网站建设,我们专业从事网站建设,网页制作,域名注册,虚拟主机,企业邮局,网站备案和服务器租用等项目,欢迎您的咨询了解。您也可以登录我们的论坛(http://bbs.cdxwcx.com)来和更多的网站爱好者进行交流!