Aktiflik-Deneyim-Seviye

[by_rehep]

arkadaşlar ben bunu yaptım am bir sorun konuyu ilk kim acar ise sade ondan gösteriyor konuya cevap yazanlarda aktiflik deneyim felan bişey görünmüyor eski sistem görünüyor neden olabilir acaba

Bu soruya admin cevap vermiş:

ibokula, topic.asp de iki tane profil alanı var.Onların ikincisine kod eklemişsin.Biraz daha bakarsan diğer alanı da görebilirsin. 1. sayfada yapılması gereken kod eklemesi yazıyor.'. resim için, ikonların üstüne sağ tıkla zöelliklerinebak.Orda resmin yolunu kontrol et.Resim ikonlarını belirtilen yere yüklemiş olman gerekir.

arkadaşım hiç bir kod eklemedim burdan indirdiğim gibi mwp yi kurdum sonrada duyurularda bir tek değişiklik yaptım

[bilgicagi]

Arkadaşlar kusura bakmayın ben bu konuyu görmemişim, daha doğrusu ilgisi kesildi diye pek göz atmıyordum.

Bu modülü farklı yolla bende yaptım.

inc_functions.asp ye girin bende 1193. satırda sizde farklı olsada yakındır, aşağıdaki kodu bulun.

Kod: [Seç]

Set rsGetMemberID = my_Conn.Execute(strSql)
getMemberID = -1

Set rsGetMemberID = my_Conn.Execute(strSql)
If Not rsGetMemberID Is Nothing Then
If Not ( rsGetMemberID.BOF and rsGetMemberID.EOF ) Then
getMemberID = rsGetMemberID("MEMBER_ID")
Else
getMemberID = 0 End If
Else
getMemberID = 0
End If


rsGetMemberID.close
set rsGetMemberID = nothing
end function

Hemen altına şu kodları ekleyin.

Kod: [Seç]

'*******************İLGİ SEVİYESİ**************************
Function ilgi_seviyesi(m_id)
strSeviye_uye="SELECT sum(T_VIEW_COUNT) AS toplam_okunma_uye FROM PORTAL_TOPICS WHERE T_AUTHOR= " & m_id
strSeviye_genel="SELECT sum(T_VIEW_COUNT) AS toplam_okunma_genel FROM PORTAL_TOPICS"
Set rsSeviye_uye=my_Conn.Execute(strSeviye_uye)
Set rsSeviye_genel=my_Conn.Execute(strSeviye_genel)
t_okunma_uye=rsSeviye_uye("toplam_okunma_uye")
if t_okunma_uye <> "" then
t_okunma_genel=rsSeviye_genel("toplam_okunma_genel")
ilgi_seviyesi= roundup((t_okunma_uye*1000)/t_okunma_genel)
if ilgi_seviyesi < 1 then
ilgi_seviyesi=1
elseif ilgi_seviyesi > 100 then
ilgi_seviyesi = 100
end if
else
ilgi_seviyesi= 0
end if
end function

'*******************AKTİFLİK**************************
Function aktiflik(m_id1)
strAktif_uye="SELECT sum(M_REP) AS toplam_cevap_uye FROM PORTAL_MEMBERS WHERE MEMBER_ID= " & m_id1
strAktif_genel="SELECT sum(M_REP) AS toplam_cevap_genel FROM PORTAL_MEMBERS"
Set rsAktif_uye=my_Conn.Execute(strAktif_uye)
Set rsAktif_genel=my_Conn.Execute(strAktif_genel)
t_cevap_uye=rsAktif_uye("toplam_cevap_uye")
if t_cevap_uye <> "" then
t_cevap_genel=rsAktif_genel("toplam_cevap_genel")
aktiflik= roundup((t_cevap_uye*2000)/t_cevap_genel)
if aktiflik < 1 then
aktiflik=1
elseif aktiflik > 100 then
aktiflik = 100
end if
else
aktiflik= 0
end if
end function

'*******************DENEYİM**************************
Function deneyim(m_id2)
strDeneyim_uye="SELECT count(T_AUTHOR) AS toplam_konu_uye FROM PORTAL_TOPICS WHERE T_AUTHOR= " & m_id2
strDeneyim_genel="SELECT count(T_AUTHOR) AS toplam_konu_genel FROM PORTAL_TOPICS"
Set rsDeneyim_uye=my_Conn.Execute(strDeneyim_uye)
Set rsDeneyim_genel=my_Conn.Execute(strDeneyim_genel)
t_konu_uye=rsDeneyim_uye("toplam_konu_uye")
if t_konu_uye <> "" then
t_konu_genel=rsDeneyim_genel("toplam_konu_genel")
deneyim= roundup((t_konu_uye*1000)/t_konu_genel)
if deneyim < 1 then
deneyim=1
elseif deneyim> 100 then
deneyim= 100
end if
else
deneyim= 0
end if
end function

'*******************DENEYİM-YENİ**************************
Function deneyim_yeni(m_id4)
strDeneyim_yeni_uye="SELECT sum(M_POSTS) AS toplam_konu_yeni_uye FROM PORTAL_MEMBERS WHERE MEMBER_ID= " & m_id4
strDeneyim_yeni_genel="SELECT sum(M_POSTS) AS toplam_konu_yeni_genel FROM PORTAL_MEMBERS"
Set rsDeneyim_yeni_uye=my_Conn.Execute(strDeneyim_yeni_uye)
Set rsDeneyim_yeni_genel=my_Conn.Execute(strDeneyim_yeni_genel)
t_konu_yeni_uye=rsDeneyim_yeni_uye("toplam_konu_yeni_uye")
if t_konu_yeni_uye <> "" then
t_konu_yeni_genel=rsDeneyim_yeni_genel("toplam_konu_yeni_genel")
deneyim_yeni= roundup((t_konu_yeni_uye*1000)/t_konu_yeni_genel)
if deneyim_yeni < 1 then
deneyim_yeni=1
elseif deneyim_yeni> 100 then
deneyim_yeni= 100
end if
else
deneyim_yeni= 0
end if
end function

'*******************SEVİYE**************************
Function seviye(m_id3)
strSeviye_uye="SELECT sum(M_GOLD) AS toplam_altin_uye FROM PORTAL_MEMBERS WHERE MEMBER_ID= " & m_id3
strSeviye_genel="SELECT sum(M_GOLD) AS toplam_altin_genel FROM PORTAL_MEMBERS"
Set rsSeviye_uye=my_Conn.Execute(strSeviye_uye)
Set rsSeviye_genel=my_Conn.Execute(strSeviye_genel)
t_altin_uye=rsSeviye_uye("toplam_altin_uye")
if t_altin_uye <> "" then
t_altin_genel=rsSeviye_genel("toplam_altin_genel")
seviye= roundup((t_altin_uye*2900)/t_altin_genel)
if seviye< 1 then
seviye=1
elseif seviye> 100 then
seviye= 100
end if
else
seviye= 0
end if
end function

inc_functions.asp dosyasını kaydedip kapatın.

topic.asp yi açın ve aşağıdaki kodları hem topic hemde replay için ilgili yere yapıştırın, tam olarak yapıştıramadım diyen olursa yerinide yazarım.

Kod: [Seç]

<br>
<font color=#22229C size="1">İlgi Seviyesi</font>
<TABLE cellSpacing=0 cellPadding=0 width="114" border=0>
<tr>
<TD class="nopad" width="3" height="13"><IMG height=13 alt="" src="images/seviye/img_left.gif" width=3></TD>
<td colspan="2"  style="BACKGROUND: url(images/seviye/img_backing.gif) repeat-x left top; LINE-HEIGHT: 13px"  width=114 height=13><IMG height="9" src="images/seviye/bmg.gif" title="İlgi Seviyesi Değeri: <%=ilgi_seviyesi(rs("MEMBER_ID"))%>" alt="İlgi Seviyesi Değeri: <%=ilgi_seviyesi(rs("MEMBER_ID"))%>" width="<%=ilgi_seviyesi(rs("MEMBER_ID"))%>"><IMG height="9" src="images/seviye/mp.gif" width="2"></td>
<TD class="nopad" width=3 height=13><IMG height=13 alt="" src="images/seviye/img_right.gif" width=3></TD>
</tr>
</table>

<font color=#22229C size="1">Aktiflik</font>
<TABLE cellSpacing=0 cellPadding=0 width="114" border=0>
<tr>
<TD class="nopad" width="3" height="13"><IMG height=13 alt="" src="images/seviye/img_left.gif" width=3></TD>
<td colspan="2"  style="BACKGROUND: url(images/seviye/img_backing.gif) repeat-x left top; LINE-HEIGHT: 13px"  width=114 height=13><IMG height="9" src="images/seviye/bxg.gif" title="Aktiflik Değeri: <%=aktiflik(rs("MEMBER_ID"))%>" alt="Aktiflik Değeri: <%=aktiflik(rs("MEMBER_ID"))%>" width="<%=aktiflik(rs("MEMBER_ID"))%>"><IMG height="9" src="images/seviye/mp.gif" width="2"></td>
<TD class="nopad" width=3 height=13><IMG height=13 alt="" src="images/seviye/img_right.gif" width=3></TD>
</tr>
</table>

<font color=#22229C size="1">Deneyim</font>
<TABLE cellSpacing=0 cellPadding=0 width="114" border=0>
<tr>
<TD class="nopad" width="3" height="13"><IMG height=13 alt="" src="images/seviye/img_left.gif" width=3></TD>
<td colspan="2"  style="BACKGROUND: url(images/seviye/img_backing.gif) repeat-x left top; LINE-HEIGHT: 13px"  width=114 height=13><IMG height="9" src="images/seviye/bhg.gif" title="Deneyim Değeri: <%=deneyim_yeni(rs("MEMBER_ID"))%>" alt="Deneyim Değeri: <%=deneyim_yeni(rs("MEMBER_ID"))%>" width="<%=deneyim_yeni(rs("MEMBER_ID"))%>"><IMG height="9" src="images/seviye/mp.gif" width="2"></td>
<TD class="nopad" width=3 height=13><IMG height=13 alt="" src="images/seviye/img_right.gif" width=3></TD>
</tr>
</table>

<font color=#22229C size="1">Seviyesi</font>
<TABLE cellSpacing=0 cellPadding=0 width="114" border=0>
<tr>
<TD class="nopad" width="3" height="13"><IMG height=13 alt="" src="images/seviye/img_left.gif" width=3></TD>
<td colspan="2"  style="BACKGROUND: url(images/seviye/img_backing.gif) repeat-x left top; LINE-HEIGHT: 13px"  width=114 height=13><IMG height="9" src="images/seviye/seviye.gif" title="Seviye Değeri: <%=seviye(rs("MEMBER_ID"))%>" alt="Seviye Değeri: <%=seviye(rs("MEMBER_ID"))%>" width="<%=seviye(rs("MEMBER_ID"))%>"><IMG height="9" src="images/seviye/mp.gif" width="2"></td>
<TD class="nopad" width=3 height=13><IMG height=13 alt="" src="images/seviye/img_right.gif" width=3></TD>
</tr>
</table>