Modüllerde Eklemeye Puan Kazandırma

[burajan]

Aşağıdaki vereceğim kodu gerekli dosyaya ekleyerek üyenin ekleme yaptıktan sonra puan kazandırabilirsiniz. Aşağıdaki kodu eklenme kontrol sayfasına ekleyerek bu olayı gerçekleştirebilirsiniz. reward = "10" yazan yerdeki rakam kazanacağı puanı gösterir.

Kod: [Seç]

if sString = "" then
reward = "10"
reward = cint(reward)

if not strDBNTUserName = "" then
strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " SET M_GOLD = M_GOLD + " & reward
strSql = strSql & " WHERE MEMBER_ID=" & getMemberNumber(strDBNTUserName)
my_Conn.Execute (strSql)
end if
end if

[adnancelik]

Hangi dosya veya dosyalara ekleyeceğim.

[burajan]

Örnek olarak; bir üye dosyalar bölümüne dosya eklediğinde puan kazanmasını istiyorsan dl_add_url.asp dosyasına ekleyebilirsin.  Aşağıdaki kodu bul:

Kod: [Seç]

if sString = "" then
session.Contents("uploadType") = ""
strSql = "INSERT INTO DL"
strSql = strSql & "(NAME"
strSql = strSql & ", URL"
strSql = strSql & ", KEYWORD"
strSql = strSql & ", CATEGORY"
strSql = strSql & ", DESCRIPTION"Bu kodun üstüne ilk mesajımda yazdığım kodu ekle ve kaydet.
Not: Bu şekilde yaptığın zaman bir üyenin eklediği dosya admin onaylamasa bile, yada admin o dosyayı silse bile puanı kazanmış olur. Bu yüzden bahsedilen kodu yönetim panelindeki onaylama sayfasına koymanda fayda vardır.

[dijital_53]

Teşekkürler hocam hepsine altın sistemi koydum yanlız şu foruma yazılan cvplara yapamadım forumda konu açana 30 altın cvp yazana 5 altın verme şansımız var mı varsa nasıl yapabiliriz?

[huseyin]

arkadaslar  bu  puan kazanma  islemi  guzel  fakat  sanırım  portalda var galiba  calısmıyor  bu  isi  bilen  birisi  bu sistemi  eklesede  portalı yayınlasa  sanırım  daha guzel  olur  cunku  bu  kodları  herkes  cozemiyor

[AdmiN]

Bir kaç gün içinde bu söylediklerin olacak.