Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

Forum
  SUPPORTO TECNICO 2.07
      MODULI AGGIUNTIVI
         Lista utenti

Lista utenti

Autore Messaggio
lucatechno

Principiante
Principiante
6 Discussioni


Profilo - lucatechno 		01 agosto 2008 alle 13:01:19 Profilo - lucatechnoInvia un messaggio privato Rispondi quotando
Ciao,sono riuscito a fare la modifica per visualizzare l' avatar nella lista utenti del forum..ora vorrei spingermi oltre col vostro fantastico aiuto :p
Sapete dirmi come far apparire l'avatar nella lista utenti(top iscritti) come compare nel forum?
djveleno

Amministratore

Esperto
Esperto
1025 Discussioni


Profilo - djveleno 		01 agosto 2008 alle 16:02:55 Profilo - djvelenoInvia un messaggio privato Rispondi quotando
Non so di quale lista parli per il forum, ma, per gli iscritti è abbastanza semplice.

Devi modificare il file /includes/memberlist-inc.asp, sostituendo la Sub DisplayTopLastMembers(iTop) fino all'End Sub con questa:

' Display top last members
Sub DisplayTopLastMembers(iTop)
Dim oCn, oRs, rSQL, iLine, iLoop
Dim bDisplayProfil, sMyLogin, sURL, sEmail, sAvatar

If iTop = "" Or iTop <= 0 Then
iTop = 1
End If
Set oCn = DBConnexion(DB_MAIN)
rSQL = "SELECT uLogin, uEmail, uURL, uProfile, uAvatar FROM users WHERE uValid=1 ORDER BY uDate DESC"
Set oRs = DBRecordSet(oCn, rSQL)

If Not oRs.EOF Then
CreateTopTable "TopMembers", GetTranslation("LANG_TOP") & " - " & GetTranslation("LANG_MEMBERS")
Response.Write GLOBAL_SITE_SUBTABLE & vbCRLF
Response.Write " <tr class=""tablelinemain"">" & vbCRLF
Response.Write " <td width=""150"">" & GetTranslation("LANG_LOGIN") & "</td>" & vbCRLF
Response.Write "<td width=""150"">" & GetTranslation("LANG_AVATAR") & "</td>" & VbCrlf
Response.Write " <td width=""150"">" & GetTranslation("LANG_EMAIL") & "</td>" & vbCRLF
Response.Write " <td>" & GetTranslation("LANG_URL") & "</td>" & vbCRLF
Response.Write " </tr>" & vbCRLF

iLine = 1
iLoop = 0
While Not oRs.EOF And iLoop < iTop
bDisplayProfil = oRs("uProfile").Value
sMyLogin = oRs("uLogin")
sAvatar = oRs("uAvatar")
sURL = oRs("uURL")
sEmail = oRs("uEmail")

' Force view if admin
If IsAuthorizedBin(ROLE_ADMINISTRATOR) Then
bDisplayProfil = True
End If
Response.Write " <tr class=""tableline" & iLine & """>" & vbCRLF
Response.Write " <td><a href=""" & GLOBAL_SITE_PROFILE_PAGE & "?id=" & Server.URLEncode(sMyLogin) & """>" & Server.HTMLEncode(sMyLogin) & "</a></td>" & vbCRLF
Response.Write " <td>" & vbCRLF
If sAvatar <> "" Then
Response.Write "" & Server.HTMLEncode(oRs("sAvatar")) & "" & VbCrlf
Else
Response.Write "-"
End If
Response.Write "</td>" & VbCrlf
Response.Write " <td>" & vbCRLF
If sEmail <> "" And bDisplayProfil Then
Response.Write "<a href=""" & encodeMailto(Server.HTMLEncode(sEmail)) & """>" & Server.HTMLEncode(sEmail) & "</a>"
Else
Response.Write "-"
End If
Response.Write "</td>" & vbCRLF
Response.Write " <td>"
If sURL <> "" And bDisplayProfil Then
If Left(LCase(sURL), 7) <> "http://" Then
sURL = "http://" & sURL
End If
Response.Write "<a href=""" & Server.HTMLEncode(sURL) & """ target=""_blank"">" & Server.HTMLEncode(sURL) & "</a>"
Else
Response.Write "-"
End If
Response.Write "</td>" & vbCRLF
Response.Write " </tr>" & vbCRLF

iLine = ((iLine-1) Xor 1) + 1
oRs.MoveNext
iLoop = iLoop + 1
Wend

Response.Write "</table>" & vbCRLF
CreateBottomTable ""
End If

oRs.Close
Set oRs = Nothing
oCn.Close
Set oCn = Nothing
End Sub

Fai attenzione ai tag che non sono permessi in copia su Aspnuke, li troverai modificati così: <_html>, quando esegui il copia e incolla, controlla poi tutti i tags e, dove trovi l'underscore, cancellalo.
---------------
A lavare la testa ai somari, ci si rimette l'acqua e il sapone!

http://aspnuke208.somee.com/Default.asp
lucatechno

Principiante
Principiante
6 Discussioni


Profilo - lucatechno 		01 agosto 2008 alle 17:02:09 Profilo - lucatechnoInvia un messaggio privato Rispondi quotando
ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/includes/memberslist-inc.asp, line 84

Su avatar mi viene fuori cosi'...cosa sara' mai? :(
djveleno

Amministratore

Esperto
Esperto
1025 Discussioni


Profilo - djveleno 		02 agosto 2008 alle 15:20:23 Profilo - djvelenoInvia un messaggio privato Rispondi quotando
E' vero, ho testato il codice e, effettivamente compare l'errore, che è dovuto al fatto che non vi sono relazioni dirette tra la tabella AVATAR e USERS, per funzionare deve essere riscritto il codice della modifica, appena ho tempo lo riscrivo.

---------------
A lavare la testa ai somari, ci si rimette l'acqua e il sapone!

http://aspnuke208.somee.com/Default.asp
lucatechno

Principiante
Principiante
6 Discussioni


Profilo - lucatechno 		03 agosto 2008 alle 17:42:45 Profilo - lucatechnoInvia un messaggio privato Rispondi quotando
Attendo con ansia e ti ringrazio! (o)

Log in

Login
Password
Memorizza i tuoi dati:

Cerca

 

Sostieni AspNuke

Un piccolo gesto per aiutarci a mantenere AspNuke.it online

Promo

MusicWebItalia.it
Video Testi Traduzioni Spot Colonne sonore Accordi e Spartiti gratis.

Visitatori

Visitatori Correnti : 103
Membri : 0 offline Anna

Iscritti

 Utenti: 18940
Ultimo iscritto : glauco
Lista iscritti
Messaggi privati: 3373 Commenti: 2210 Immagini: 39 Downloads: 144 Articoli: 49 Pagine: 101 Siti web: 558 Notizie: 180 Sondaggi: 11 Preferiti: 5685284 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi