社区
ASP
帖子详情
抽奖程序
mark271828
2009-10-19 04:27:55
哪位大侠给个ASP抽奖的程序或者详细点的思路,给个范例也行(哪个网站有抽奖程序的,界面可以推荐看一看)。我要做的抽奖是,用户登录了可以去抽奖去随即抽取1-3等奖,每个奖的概率为:1等0.5%,2等5%,3等 10%,鼓励奖100%
...全文
124
10
打赏
收藏
抽奖程序
哪位大侠给个ASP抽奖的程序或者详细点的思路,给个范例也行(哪个网站有抽奖程序的,界面可以推荐看一看)。我要做的抽奖是,用户登录了可以去抽奖去随即抽取1-3等奖,每个奖的概率为:1等0.5%,2等5%,3等 10%,鼓励奖100%
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
10 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
anbs01
2009-10-20
打赏
举报
回复
[Quote=引用 7 楼 mark271828 的回复:]
。。。。
商城需要吸引人气,骗人的话别人还会继续来么?
[/Quote]
我看错了,我还以为你是做抽奖的广告的呢。
liumingyu218
2009-10-20
打赏
举报
回复
1等奖改成100%吧~!
mark271828
2009-10-20
打赏
举报
回复
。。。。
商城需要吸引人气,骗人的话别人还会继续来么?
anbs01
2009-10-20
打赏
举报
回复
[Quote=引用 5 楼 mark271828 的回复:]
引用 1 楼 anbs01 的回复:
骗人的吧?
不是骗人的,你为什么会这么认为呢?
[/Quote]
现在很多抽奖都是骗人的啊。
mark271828
2009-10-20
打赏
举报
回复
[Quote=引用 1 楼 anbs01 的回复:]
骗人的吧?
[/Quote]
不是骗人的,你为什么会这么认为呢?
dahaidao
2009-10-20
打赏
举报
回复
搞个随机数好了,
已经抽出来的一定要从结果集中去掉,要不有可能重啊。
zyszz
2009-10-19
打赏
举报
回复
类似的应该有!!!!
一把编程的菜刀
2009-10-19
打赏
举报
回复
这个你GOOGLE一搜索就有源码
http://www.google.cn/search?hl=zh-CN&newwindow=1&q=ASP%E6%8A%BD%E5%A5%96%E6%BA%90%E7%A0%81&btnG=Google+%E6%90%9C%E7%B4%A2&aq=f&oq=
lzp4881
2009-10-19
打赏
举报
回复
http://topic.csdn.net/u/20090618/15/3097af78-c564-49fe-b5cf-9366054b4ea9.html
anbs01
2009-10-19
打赏
举报
回复
骗人的吧?
Java B/S
抽奖程序
JAVA 开发的 B/S
抽奖程序
,非常漂亮,很容易改进!^_^
PPT
抽奖程序
-名单抽取
需要调整ppt的 “工具--》宏--》安全性” 设置为低级。 代码如下: Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Dim arrRM, F '输入名单到: TextBox1 采用单个空格分隔,最前和最后一个数据后不要留空格(否则可能部分元素抽出为空) '代码注释部分用于调试,或者你可以修改为其他用途,比如可以显示给用户观看。 Private Sub CommandButton1_Click() If Me.CommandButton1.Caption = "停" Then Me.CommandButton1.Caption = "开始" Call CQ_do("stop") Else Me.CommandButton1.Caption = "停" Call CQ_do("start") End If End Sub Private Sub CQ_do(doTag) Dim I If doTag = "start" Then arrRM = Split(Me.TextBox1, " ", -1, 1) '如果有需要你可以替换这里的空格,改为你需要的分隔符: 如个为英文分号 Split(Me.TextBox1, ";", -1, 1) ' TextBox3 = "" ' TextBox3.Visible = True ' TextBox4.Visible = True ' Me.TextBox4 = UBound(arrRM) & " " & arrRM(0) & " " & arrRM(UBound(arrRM)) F = 0 Do While True Sleep 30 I = Int(((UBound(arrRM) + 1) * Rnd) + 0) ' TextBox3 = TextBox3 & "-" & I TextBox2.Text = arrRM(I) If F = 1 Then Exit Do DoEvents Loop Else F = 1 End If End Sub Private Sub TextBox1_Change() End Sub Private Sub TextBox2_Change() End Sub
Excel
抽奖程序
(春节抽奖)
这是一个共享软件,除了可以在本站下载外,你还可以在http://dl.dbank.com/c0e431w4g9# 下载。其主要功能如下: 1、内置特等奖、一等奖~五等奖6个级别的奖项和1个自定义级别的奖项,抽奖顺序没有限制。 2、对于任意一等奖来说,可以一次抽取任意数量的奖项; 3、背景、解码用户可自行调整; 4、抽奖背景音乐用户可换; 5、可以在抽奖过程中显示中奖者的照片; 6、抽奖过程中可以显示用户所在的部门信息; 7、对于要求必须在场的抽奖,当中奖人不在场时可以做弃权处理; 8、抽奖结果立即存入Excel“抽奖结果”工作表中。 使用说明及注意事项 1、抽奖前请在Excel“工具”-“宏”-“安全性”中将宏的安全级别设置为低,然后关闭Excel重新打开,否则无法运行
抽奖程序
。 2、本程序支持六个固定级别的奖项设置和一个自定义的奖项设置。 3、抽奖顺序有两种,即先小奖后大奖或相反。这个设置仅用于初始化《抽奖》工作表中的奖项设置,抽奖过程中需手动在《抽奖》工作表中切 换抽奖级别。 4、本程序支持两种抽奖方法:每次抽取一组中的全部名额,或每次抽取指定的若干名额。但是推荐一次抽取1个,因为大余一个时只能显示最 后一名中奖者的照片,且显示众多中奖者的名字时布局不是很美观。 5、单项最多可设 5000 名中奖者,中奖者总数不能多于候选人数,否则在抽取最后一人时会出现死循环。 6、请在《候选名单》工作表中录入所有候选项。候选人仅受Excel行数限制,输入时请连续纵向输入,不留空行。 7、在《抽奖》工作表中点击“弃权”按钮时该组中奖的所有的人将被自动剔除,后面的抽奖中将不再参与抽奖。 8、当设置的奖项总数+弃权总数大于等于抽奖候选人总数时,程序将出现死循环。 9、抽奖一旦开始,请完成整个抽奖过程,不要中途退出程序或追加候选人名单。 10、本程序不支持重复中奖,中奖的人不计入下一轮抽奖中。 关于《抽奖》工作表的界面设置的几点说明: 1、修改《抽奖》工作表的界面时需要先解锁工作表。具体方法:“工具”-“保护”-“解锁工作表”。修改完后最好锁定工作表。 2、抽奖时可隐藏Excel航标、列表。具体方法:“工具”-“选项”-“视图”-“行号列号”,取消勾选前面的复选框。 3、在调整《抽奖》工作表时,不可插入、删除行或列。 4、一般地,修改《抽奖》工作表布局可以通过调整第一行的行高或第一列的列宽来实现。如果你要对控件进行详细布局设计(例如改变控件大 小),你可以通过控件设计模式来实现。具体方法:“视图”-“工具栏”-“退出设计模式”。 这时,你可以随意拖动按钮或照片控件的位 置及大小。调整完成后必须退出设计模式(将“退出设计模式”前面的勾取消掉)。系统的默认位置为D2单元格。 5、为满足多人抽奖的需要,《抽奖》工作表中的D5:D65536(即D列中从第5行到65535行)用来显示中奖者姓名。该列采用了条件格式,用特殊 的格式来显示中奖者的姓名。如果你需要更改这个样式,可在编辑工具栏(显示fx的那个工具栏)最左边的“名称框”中选择“ResultDisplay” 或输入D5:D65536并回车,这时这些单元格会被自动选上,然后从工具栏中的“格式”-“条件格式”中修改。 6、《抽奖》工作表中的下拉列表根据设置自动生成,请不要更改其下拉列表的内容。 7、全屏显示。具体方法:“视图”-“全屏显示”。 8、更换背景。具体方法:“格式”-“工作表”-“背景”,选择你要的背景图片即可。 9、更换默认照片。具体方法:替换photo文件夹下面的“none.jpg”这个图片文件即可。 10、若要在抽奖过程中显示中奖者的照片,则需把抽奖人的照片放到photo文件夹下面,同时在《候选名单》工作表的C列给出照片名。 11、若要更改在抽奖过程中播放的声音,可以替换Music文件夹下面的start.wav、finish.wav文件。
抽奖程序
java版,适合于年终晚会上面使用
一个小
抽奖程序
,适合年终晚会上用的,上手简单方便。
公司年会
抽奖程序
公司年会
抽奖程序
, dehan_prize_run下的prize.exe就可以运行, prize_src.zip是源码
ASP
28,406
社区成员
356,946
社区内容
发帖
与我相关
我的任务
ASP
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
复制链接
扫一扫
分享
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章