Şiirlerdeki yönetici onaylamasını nasıl kaldırabiliriz?...

[mxcan]

Şiir eklerken siteye onay wermeden eklenmesini istyorum ne yapmam lazım...

yardımcı olacak arkdaşlara şimdiden teşşekür ederim.

çok Teşşekür ederim verdiğiniz biilgiler çok işe yaradı..

aklıma bişi daha takıldı ama şiir bölümüne eklediklerimizi sonradan yönetci paneli hariç nasıl düzenleme ekleye biliriz ben bişiler denedim yapmaya ama bi türlü o da olmadı

[burajan]

siir_add.asp dosyasında aşağıdaki kodu bul:

Kod: [Seç]

if mlev=4 then
strSql = strSql & ", " & "1"
else
strSql = strSql & ", " & "0"
end if
Bu kodu aşağıdaki gibi değiştir:

Kod: [Seç]

if mlev=4 then
strSql = strSql & ", " & "0"
else
strSql = strSql & ", " & "1"
end if

[AdmiN]

Kod: [Seç]

if mlev=4 then
strSql = strSql & ", " & "1"
else
strSql = strSql & ", " & "0"
end if

Yukarıdaki bu kodu aşağıdaki gibi değiştirirsen daha güzel olur.

Kod: [Seç]

if mlev>=1 then
strSql = strSql & ", " & "1"
else
strSql = strSql & ", " & "0"
end if

[porteronline]

admin kardeşler, birşey soracağım. Bu kodları değiştirip onayı kaldırırsak üyeler eklediklerinde puan alabilecekler mi? Başka bir yere daha yazmıştım bunu da sanırım çözümü olmayan birşe bu durum.

[AdmiN]

Tüm içerik eklemede hem onaylanınca hem de direk eklenince puan alınması özelliği var.Yukarıda onaylama dosyasındaki kodlarda değişiklik yapıldığı gibi ekleme formunda da değişiklik yapılması gerekiyor.

Mesela article_add.asp dosyasında aşağıdaki kodları bulalım.

Kod: [Seç]

<% if mlev=4 then%> <% =strSiteTitle %> Makale veritabanına eklendi.

<%if not strDBNTUserName = "" then
strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " SET M_GOLD = M_GOLD + " & 10
strSql = strSql & " WHERE MEMBER_ID=" & getMemberNumber(strDBNTUserName)
my_Conn.Execute (strSql)
end if
Burada mlev=4 then   yazan yeri  mlev>=1 then   yaparsak herkesin eklediği içerik onaylanacak ve puan verilecektir.Diğer bölümlerin ekleme formundaki kodları bu şekilde değiştirirseniz puan kazanma olayı aktif olacaktır.