抽獎源碼asp

Ⅰ 求asp+flash 大轉盤抽獎程序源碼

flash+asp 的比較麻煩 還有創建mysql資料庫。
其實通過 flash + xml 就已經能實現了 何必搞得那麼復雜。
幾率可以在xml裡面改 百分之一 千分之一 萬分之一 ........
隨你高興怎麼改就怎麼改。
而且一樣也可以按比例修改的。
可以設定各個獎項的幾率是百分之幾。

Ⅱ 誰給個網頁抽獎源碼，帶後台（最好是要轉盤類的）

discuz有個轉盤抽獎插件，如果不是discuz論壇程序，估計是用不上。

Ⅲ FLASH+ASP用戶後台管理抽獎大轉盤源碼誰給我一份

提供一個網址，你辛苦點自己下載一下。
http://www.asp300.com/View/15/28984.html

Ⅳ 誰有 九宮格抽獎的源碼 注意:是可以設置抽獎概率的

• 你是什麼用途？

  
  

• a.如果抽獎內容價值比較大，得考慮到演算法的安全性，保證絕對的概率，也就是能彩票一樣，如果是100W的大獎，不能重復出現好幾次。計算機的隨機概率是不穩定的，所以需要一套完整的演算法來保持概率，進行矯正和干預。上面說道的是隨機概率。

• b.如果是獎池形的，就需要用維護獎池的演算法來實現，比如1等獎10個二等獎100個三等獎1000個，10W的不中獎，這就形成了你的獎池，你每次抽獎是從這個池中取到一個號碼，為了維護中獎率，你需要再拿走一個號碼以後再給獎池補充一個新的號碼。

• c.總之這是一個非常復雜的過程，建議你使用國家的開獎中心的數據來維護你自己的抽獎內容，抽獎中心給的內容演算法是完整的，你取到她們算出的結果當作你們計算的依據。

  
  

• 如果是簡單實現，不考慮後果的話，你可以去前端源碼下載站就能輕松找到源碼

  
  

• 以上是我個人觀點，如果錯誤，敬請原諒。

  
  

• 這個拍版好難用

Ⅳ 求一款易語言抽獎源碼，最好是圖片抽獎，或者自行放入對方提供的頭像。

.版本 2
.支持庫 xplib
.支持庫 iext
.程序集 窗口程序集1
.程序集變數 b, 文本型
.程序集變數 圖片框, 圖片框
.程序集變數 開始音樂, 位元組集
.程序集變數 結束音樂, 位元組集
.程序集變數 人數, 整數型
.程序集變數 人數數組, 文本型, , "0"
.程序集變數 n, 整數型
.程序集變數 圖片文件數組, 文本型, , "0"
.子程序 __啟動窗口_創建完畢

XP風格 (#藍色風格)
選擇夾.左邊 ＝ (取屏幕寬度 () － 選擇夾.寬度) ÷ 2
選擇夾.頂邊 ＝ (取屏幕高度 () － 選擇夾.高度) ÷ 2
圖片框1.標記 ＝ 「1」
圖片框2.標記 ＝ 「2」
圖片框3.標記 ＝ 「3」
圖片框4.標記 ＝ 「4」
圖片框5.標記 ＝ 「5」
圖片框6.標記 ＝ 「6」
選擇夾.現行子夾 ＝ 1
透明標簽1.左邊 ＝ (取屏幕寬度 () － 透明標簽1.寬度) ÷ 2
選擇夾2.頂邊 ＝ 選擇夾.高度 ＋ 選擇夾.頂邊
選擇夾2.左邊 ＝ (取屏幕寬度 () － 選擇夾2.寬度) ÷ 2
初始化 ()
人數 ＝ 取數組成員數 (圖片文件數組)
_一個人_被選擇 ()
注冊熱鍵程序 (_啟動窗口.取窗口句柄 (), 0, #F1鍵, &配置設置)
注冊熱鍵程序 (_啟動窗口.取窗口句柄 (), 0, #回車鍵, &子程序1)
注冊熱鍵程序 (_啟動窗口.取窗口句柄 (), 0, #鍵1, &_一個人_被選擇)
注冊熱鍵程序 (_啟動窗口.取窗口句柄 (), 0, #鍵2, &_二個人_被選擇)
注冊熱鍵程序 (_啟動窗口.取窗口句柄 (), 0, #鍵3, &_三個人_被選擇)
注冊熱鍵程序 (_啟動窗口.取窗口句柄 (), 0, #鍵4, &_四個人_被選擇)
注冊熱鍵程序 (_啟動窗口.取窗口句柄 (), 0, #鍵5, &_五個人_被選擇)
注冊熱鍵程序 (_啟動窗口.取窗口句柄 (), 0, #鍵6, &_六個人_被選擇)
注冊熱鍵程序 (_啟動窗口.取窗口句柄 (), 0, #Esc鍵, &_退出_被選擇)

.子程序 子程序1
n ＝ n ＋ 1
.如果 (n ％ 2 ＝ 0)
_按鈕2_被單擊 ()
.否則
_按鈕1_被單擊 ()
.如果結束
.子程序 配置設置
載入 (系統設置窗口, , 真)
系統設置窗口.可視 ＝ 真

.子程序 _時鍾1_周期事件
置隨機數種子 ()
圖片框1.圖片 ＝ 讀入文件 (圖片文件數組 [取隨機數 (1, 人數)])

.子程序 抽獎停
.局部變數 a, 整數型
.局部變數 i, 整數型
b ＝ 「」
置隨機數種子 ()
.計次循環首 (6, i)
a ＝ 取隨機數 (1, 人數)
.判斷循環首 (尋找文本 (b, 到文本 (a), 1, 假) ≠ -1)
a ＝ 取隨機數 (1, 人數)
.判斷循環尾 ()
圖片框 ＝ 取標記組件 (i)
圖片框.圖片 ＝ 讀入文件 (圖片文件數組 [a])
b ＝ b ＋ 「,」 ＋ 到文本 (a)
.計次循環尾 ()

.子程序 _一個人_被選擇
圖片初始化 ()
n ＝ 0
按鈕1.禁止 ＝ 假
按鈕1.獲取焦點 ()
圖片框1.可視 ＝ 真
圖片框2.可視 ＝ 假
圖片框3.可視 ＝ 假
圖片框4.可視 ＝ 假
圖片框5.可視 ＝ 假
圖片框6.可視 ＝ 假
圖片框1.左邊 ＝ (選擇夾.寬度 － 圖片框1.寬度) ÷ 2
.子程序 _二個人_被選擇
圖片初始化 ()
n ＝ 0
按鈕1.禁止 ＝ 假
按鈕1.獲取焦點 ()
圖片框1.可視 ＝ 真
圖片框2.可視 ＝ 真
圖片框3.可視 ＝ 假
圖片框4.可視 ＝ 假
圖片框5.可視 ＝ 假
圖片框6.可視 ＝ 假
圖片框1.左邊 ＝ (選擇夾.寬度 － 圖片框1.寬度 × 2 － 5) ÷ 2
圖片框2.左邊 ＝ 圖片框1.左邊 ＋ 圖片框1.寬度 ＋ 5
.子程序 _三個人_被選擇
圖片初始化 ()
n ＝ 0
按鈕1.禁止 ＝ 假
按鈕1.獲取焦點 ()
圖片框1.可視 ＝ 真
圖片框2.可視 ＝ 真
圖片框3.可視 ＝ 真
圖片框4.可視 ＝ 假
圖片框5.可視 ＝ 假
圖片框6.可視 ＝ 假
圖片框1.左邊 ＝ 0
圖片框2.左邊 ＝ 325
圖片框3.左邊 ＝ 651

.子程序 _四個人_被選擇
圖片初始化 ()
n ＝ 0
按鈕1.禁止 ＝ 假
按鈕1.獲取焦點 ()
圖片框1.可視 ＝ 真
圖片框2.可視 ＝ 真
圖片框3.可視 ＝ 真
圖片框4.可視 ＝ 真
圖片框5.可視 ＝ 假
圖片框6.可視 ＝ 假
圖片框1.左邊 ＝ 0
圖片框2.左邊 ＝ 325
圖片框3.左邊 ＝ 651

.子程序 _五個人_被選擇
圖片初始化 ()
n ＝ 0
按鈕1.禁止 ＝ 假
按鈕1.獲取焦點 ()
圖片框1.可視 ＝ 真
圖片框2.可視 ＝ 真
圖片框3.可視 ＝ 真
圖片框4.可視 ＝ 真
圖片框5.可視 ＝ 真
圖片框6.可視 ＝ 假
圖片框1.左邊 ＝ 0
圖片框2.左邊 ＝ 325
圖片框3.左邊 ＝ 651

.子程序 _六個人_被選擇
圖片初始化 ()
n ＝ 0
按鈕1.禁止 ＝ 假
按鈕1.獲取焦點 ()
圖片框1.可視 ＝ 真
圖片框2.可視 ＝ 真
圖片框3.可視 ＝ 真
圖片框4.可視 ＝ 真
圖片框5.可視 ＝ 真
圖片框6.可視 ＝ 真
圖片框1.左邊 ＝ 0
圖片框2.左邊 ＝ 325
圖片框3.左邊 ＝ 651

.子程序 圖片初始化
.局部變數 k, 整數型
選擇夾.現行子夾 ＝ 1
選擇夾.現行子夾 ＝ 0
時鍾1.時鍾周期 ＝ 0
時鍾2.時鍾周期 ＝ 0
時鍾3.時鍾周期 ＝ 0
時鍾4.時鍾周期 ＝ 0
時鍾5.時鍾周期 ＝ 0
時鍾6.時鍾周期 ＝ 0
_啟動窗口.背景音樂 ＝ 到位元組集 (0)
.計次循環首 (6, k)
圖片框 ＝ 取標記組件 (k)
圖片框.圖片 ＝ #圖片
.計次循環尾 ()
.子程序 _標題_被選擇
.局部變數 wb, 文本型
圖片初始化 ()
輸入框 (「請輸入標題內容」, , , wb, )
透明標簽1.標題 ＝ wb
寫配置項 (取運行目錄 () ＋ 「\config.ini」, 「標題」, 「標題1」, wb)

.子程序 _設定轉獎聲音_被選擇
圖片初始化 ()
通用對話框1.過濾器 ＝ 「WAV文件|*.wav」
通用對話框1.打開 ()
開始音樂 ＝ 讀入文件 (通用對話框1.文件名)
寫配置項 (取運行目錄 () ＋ 「\config.ini」, 「聲音」, 「轉獎聲音」, 通用對話框1.文件名)

.子程序 _設定中獎聲音_被選擇
圖片初始化 ()
通用對話框1.過濾器 ＝ 「WAV文件|*.wav」
通用對話框1.打開 ()
結束音樂 ＝ 讀入文件 (通用對話框1.文件名)
寫配置項 (取運行目錄 () ＋ 「\config.ini」, 「聲音」, 「中獎聲音」, 通用對話框1.文件名)

.子程序 _關閉音樂_被選擇
圖片初始化 ()
_啟動窗口.背景音樂 ＝ 到位元組集 (0)

.子程序 初始化
.局部變數 d, 整數型
_啟動窗口.底圖 ＝ 讀入文件 (讀配置項 (取運行目錄 () ＋ 「\config.ini」, 「圖片」, 「背景圖片」, 取運行目錄 () ＋ 「\Wallpaper\1024.jpg」))
開始音樂 ＝ 讀入文件 (讀配置項 (取運行目錄 () ＋ 「\config.ini」, 「聲音」, 「轉獎聲音」, 取運行目錄 () ＋ 「\sound\musi.wav」))
結束音樂 ＝ 讀入文件 (讀配置項 (取運行目錄 () ＋ 「\config.ini」, 「聲音」, 「中獎聲音」, 取運行目錄 () ＋ 「\sound\finish.wav」))
透明標簽1.標題 ＝ 讀配置項 (取運行目錄 () ＋ 「\config.ini」, 「標題」, 「標題1」, 「XX公司幸運抽獎」)
.計次循環首 (6, d)
圖片框 ＝ 取標記組件 (d)
圖片框.圖片 ＝ 讀入文件 (讀配置項 (取運行目錄 () ＋ 「\config.ini」, 「圖片」, 「抽獎圖片」, 取運行目錄 () ＋ 「\Wallpaper\cj.jpg」))
.計次循環尾 ()
查找文件 (圖片文件數組, 取運行目錄 () ＋ 「\Photos\」, 「*.jpg」, )
查找文件 (圖片文件數組, 取運行目錄 () ＋ 「\Photos\」, 「*.bmp」, )
.如果真 (取數組成員數 (圖片文件數組) ＜ 6)
信息框 (「請把圖片文件放到[Photots]文件夾下後重啟軟體！」 ＋ #換行符 ＋ 「圖片文件格式支持[jpg bmp]」, 64, 「提示：」)
結束 ()
.如果真結束

.子程序 _抽獎圖片_被選擇
.局部變數 a, 整數型
圖片初始化 ()
通用對話框1.過濾器 ＝ 「圖片文件|*.jpg;*.bmp」
通用對話框1.打開 ()
.計次循環首 (6, a)
圖片框 ＝ 取標記組件 (a)
圖片框.圖片 ＝ 讀入文件 (通用對話框1.文件名)
.計次循環尾 ()
寫配置項 (取運行目錄 () ＋ 「\config.ini」, 「圖片」, 「抽獎圖片」, 通用對話框1.文件名)

.子程序 _時鍾2_周期事件
置隨機數種子 ()
圖片框2.圖片 ＝ 讀入文件 (圖片文件數組 [取隨機數 (1, 人數)])

.子程序 _時鍾3_周期事件
置隨機數種子 ()
圖片框3.圖片 ＝ 讀入文件 (圖片文件數組 [取隨機數 (1, 人數)])

.子程序 _時鍾4_周期事件
置隨機數種子 ()
圖片框4.圖片 ＝ 讀入文件 (圖片文件數組 [取隨機數 (1, 人數)])

.子程序 _時鍾5_周期事件
置隨機數種子 ()
圖片框5.圖片 ＝ 讀入文件 (圖片文件數組 [取隨機數 (1, 人數)])

.子程序 _時鍾6_周期事件
置隨機數種子 ()
圖片框6.圖片 ＝ 讀入文件 (圖片文件數組 [取隨機數 (1, 人數)])

.子程序 _退出_被選擇
結束 ()

.子程序 _時鍾7_周期事件
' 如果 (取滑鼠垂直位置 () ＜ 10)
系統設定.可視 ＝ 真
設定抽獎人數.可視 ＝ 真
' 系統設定.可視 ＝ 假
' 設定抽獎人數.可視 ＝ 假
.子程序 _按鈕1_被單擊, 邏輯型
.如果真 (選擇夾.現行子夾 ＝ 1)
選擇夾.現行子夾 ＝ 0
.如果真結束
_啟動窗口.背景音樂 ＝ 開始音樂
_啟動窗口.播放次數 ＝ 0
時鍾1.時鍾周期 ＝ 100
時鍾2.時鍾周期 ＝ 100
時鍾3.時鍾周期 ＝ 100
時鍾4.時鍾周期 ＝ 100
時鍾5.時鍾周期 ＝ 100
時鍾6.時鍾周期 ＝ 100
按鈕2.禁止 ＝ 假
按鈕1.禁止 ＝ 真
按鈕2.獲取焦點 ()
返回 (真)

.子程序 _按鈕2_被單擊
抽獎停 ()
_啟動窗口.背景音樂 ＝ 結束音樂
_啟動窗口.播放次數 ＝ 1
時鍾1.時鍾周期 ＝ 0
時鍾2.時鍾周期 ＝ 0
時鍾3.時鍾周期 ＝ 0
時鍾4.時鍾周期 ＝ 0
時鍾5.時鍾周期 ＝ 0
時鍾6.時鍾周期 ＝ 0
按鈕2.禁止 ＝ 真
按鈕1.禁止 ＝ 假
按鈕1.獲取焦點 ()