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

来源:岁月联盟 编辑:exp 时间:2012-08-23
作者:拉登哥哥  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()
%>