欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

ASP在线摇奖结果控制代码 神马Iphone IPad根本别想中

程序员文章站 2022-07-02 20:10:39
作者:拉登哥哥  QQ:396890445 组织:CrAcK8_编程小组[K8team] 发布:2012-8-23 下午:17:30 3月份那时 用ASP写了个...
作者:拉登哥哥  QQ:396890445
组织:CrAcK8_编程小组[K8team]
发布:2012-8-23 下午:17:30

3月份那时 用ASP写了个摇奖程序  吸引人气
都写着什么 特等奖 摇中888 有Iphone4S拿
实际上是 主办方的推广营销吸引人气的方式
当然也有真给中的 但是这个结果 全是人为可以控制结果的
说什么每天送一部IPHOE4 实际上 可能永远都不送 因为不可能有人摇中
下面只是我写的时候用到的代码  再怎么随机抽  结果完全可以人为的
 
<%
Function getRnd(N, M) '取N-M之间的随机数,M>=N
   getRnd = Int(Rnd() * (M - N + 1)) + N
End Function

Function WriteRnd()
Randomize '一定要初始化随机数,否则每次打开程序取出的数都一样的。
lotteryResult=Cstr(getrnd(1,9))+Cstr(getrnd(1,9))+Cstr(getrnd(1,9))

'控制结果 www.2cto.com
if(lotteryResult="888") then 
Response.Write("154")  ‘摇中888 就改成154 用户这边永远中不了IPhone
else if (lotteryResult="777") then
Response.Write("132") 
else if (lotteryResult="666") then
Response.Write("482")
else'NO selected
Response.Write(lotteryResult)
end if
end if
end if

End Function

WriteRnd()
%>