怎样设计一个随机时间抽奖的程序的思路？大家来讨论吧！（希望大家讨论，讨论有分！）

[bxnet]

我们单位想叫我搞一个随机抽奖的程序，程序设计大至意图如下：
比如：想在一周之内产生一等奖一名，二等奖3名，三等奖10名。
网名在这一周内打开任一个页面都有可能中奖，如果中奖之后，弹出一个窗口，给出信息和中奖编号，中奖密码，并按要求填写个人具体信息。一周之后通过这个中奖编号和中奖密码，可以查询中奖情况并领奖！

难搞定的地方：怎样随机产生奖项，这个产生的时间是随机的，并且按照要求产生规定个数的奖项！
（希望大家讨论，讨论有分！）

[Tal]

可以综合考滤时间、页面文件名；
在数据库里设置标志奖中了没有，不要重复就成了

[bxnet]

这应该是一个随机出来的奖,网民在任何一个时间,浏览任何一个页面,都有可能中奖.我想说的是,怎样设计随机产出奖项的程序代码.

[dafei0320]

将项放在一个表里（比如4个奖）
然后就随机产生一个正整数N，
再用N对4求余数，
如果得1------》奖品一
------2------》奖品二
-----3-------》奖品三
------4------》奖品四！
具体实现过程我想很简单！


如果是M个奖品的话也行
---
可以吗？》

[cqlxm]

to：dafei0320(大飞)
你这样不太好，你的中奖几率是100％啊！！如果还有奖品的话那么他就一定中奖


小弟愚见：
建一个表，
随机产生一个1－100（最大的数字根据你网站的页面浏览总量来设计，浏览量大最大的数字也应该相应的大，具体到什么程度自己控制）
如果该数为1，则为一等奖，并在表中标志出了一个一等奖
如果为2，则为二等奖，并在表中标志出了一个二等奖
依此类推
当然你还需要判断该奖是否已经中完了，例如：一等奖中完了，即使该数为1，他也不能中奖

[xiaobird1]

在加个计数器不就OK了！

加入一等奖一名，二等奖三名

随机到1，iFirst = iFirst + 1，随机到2，iSecond = iSecond + 1

每次加判断，如果iFirst = 1了，即一等奖人数已经满了，当再随机到1的时候，屏蔽掉就行了。

[bxnet]

谢谢大家的讨论!
to: cqlxm(亮芯).你的想法不错那不是得在每个页面里加个随机程序和判断语句.每个页面都要改启不是很麻烦!
大家想想有没有更好的方法

[超级大笨狼]

洗牌完美版：
<SCRIPT LANGUAGE=vbscript >
function xipai(mystr)
xipai=""
if len(mystr)=0 then'如果是空的，那么初试化一付连续的牌
for i=1 to 52
mystr=mystr & "<" & i & "> "
next
end if
dim i,x
for i=1 to 52
myarry=split(mystr) 'myarry是下标52的数组，前0-51个有效
randomize
x=cint(rnd*(ubound(myarry)-1))'前0-51个随便找一个
mystr=replace(mystr, myarry(x) & space(1),"")'从没发的牌中随便挑一张
xipai=xipai & myarry(x) & space(1)
next
end function

function XP(n)
mystr="xipai("""")"
dim i
for i=1 to n
mystr="xipai(" & mystr & ")"
next
XP=eval(mystr)
end function
document.write "洗牌完美版" & "<br/>"
document.write "洗一次牌:" & XP(1) & "<br/>"
document.write "洗两次牌:" & XP(2) & "<br/>"
document.write "洗三次牌:" & XP(3) & "<br/>"
document.write "洗一百次牌:" & XP(100) & "<br/>"
</SCRIPT>

[dafei0320]

服!