<br>
<%
dim num
randomize
num=round(Rnd,2)
response.write "您抽中的是: "&num &"<br>"
if num>=0 and num <0.01 then
response.write "恭喜,您中一等奖 "
elseif num>=0.01 and num <0.03 then
response.write "恭喜,您中二等奖 "
elseif num>=0.03 and num <0.08 then
response.write "恭喜,您中三等奖 "
elseif num>=0.08 and num <0.18 then
response.write "恭喜,您中四等奖 "
elseif num>=0.18 and num <0.38 then
response.write "恭喜,您中五等奖 "
else
response.write "很遗憾,您没中奖 "
end if
%>
<pre>
说明:
值在0~0.01的中一等奖
值在0.01~0.03的中二等奖
值在0.03~0.08的中三等奖
值在0.08~0.18的中四等奖
值在0.18~0.38的中五等奖
</pre>
额..ASP的抽奖程序吗?这个原理简单的不得了
就是随机数生成,其余的就没了
举个例子,比如生成1-100中的任意数~
如果为单数(只要取余运算就行了),那就算是中奖了,反之不说了~
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)