Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

Forum
  SUPPORTO TECNICO VECCHIE VERSIONI
      FUNZIONALITA' BASE
         Disabilitare i commenti alle news

Rispondi : Disabilitare i commenti alle news

Autore Messaggio
MS4916AR

Amatore
Amatore
39 Discussioni


Profilo - MS4916AR 		19 marzo 2003 alle 15:03:53 Profilo - MS4916ARInvia un messaggio privato Rispondi quotando
???????????????
redbaron76

Avanzato
Avanzato
163 Discussioni


Profilo - redbaron76 		19 marzo 2003 alle 16:38:24 Profilo - redbaron76Invia un messaggio privato bustio@hotmail.com 5034560 Rispondi quotando
Modificato il 19 marzo 2003 alle 17:44:06
Commenti alle news... come togliere la possibilità agli anonimi di inserire commenti?
Dunque... nell'esempio che vi ho proposto qualche post più sopra in effetti avevo dimenticato il fatto che, entrando nel contenuto della news, rimaneva la possibilità di inserire il commento anche da parte dei non loggati/iscritti. (COM'E' CHE ACCADE ADDIRITTURA IL CONTRARIO???)

Ecco il codice riveduto e corretto!

Nel file includes/news-inc.asp SOSTITUIRE alla riga 64 il CreateBottomTable esistente con il seguente codice:


If sPseudo <> "" then
CreateBottomTable "<a href=""" & GLOBAL_SITE_PATH & GLOBAL_SITE_COMMENTS_PAGE & "?id=" & iID & """>" & GetTranslation("LANG_COMMENTS") & " : " & oRs2(0) & "</a> | " & GetTranslation("LANG_READ") & " : " & oRs("nRead")+1 & " | <a href=""" & GLOBAL_SITE_PATH & "Default.asp"">" & GetTranslation("LANG_BACK") & "</a>" & vbCRLF
Else
CreateBottomTable "" & GetTranslation("LANG_COMMENTS") & " : " & oRs2(0) & " | " & GetTranslation("LANG_READ") & " : " & oRs("nRead")+1 & " | <a href=""" & GLOBAL_SITE_PATH & "Default.asp"">" & GetTranslation("LANG_BACK") & "</a>" & vbCRLF
End If


Alla riga 76 sostituire il CreateBottomTable esistente con il seguente codice:


If sPseudo <> "" then
CreateBottomTable "<a href=""" & GLOBAL_SITE_PATH & GLOBAL_SITE_COMMENTS_PAGE & "?id=" & iID & """>" & GetTranslation("LANG_COMMENTS") & " : " & oRs2(0) & "</a> | " & GetTranslation("LANG_READ") & " : " & oRs("nRead") & " | <a href=""" & GLOBAL_SITE_PATH & GLOBAL_SITE_NEWS_PAGE & "?id=" & iID & """>" & GetTranslation("LANG_READ_MORE") & "</a> (" & Replace(GetTranslation("LANG_READ_MORE_WORDS"), "%1%", iNbWords) & ")" & vbCRLF
Else
CreateBottomTable "" & GetTranslation("LANG_COMMENTS") & " : " & oRs2(0) & " | " & GetTranslation("LANG_READ") & " : " & oRs("nRead") & " | <a href=""" & GLOBAL_SITE_PATH & GLOBAL_SITE_NEWS_PAGE & "?id=" & iID & """>" & GetTranslation("LANG_READ_MORE") & "</a> (" & Replace(GetTranslation("LANG_READ_MORE_WORDS"), "%1%", iNbWords) & ")" & vbCRLF
End If



Vi spiego prevemente il codice:

Se sPseudo esiste e non è vuoto (<> "", quindi esiste un utente loggato) allora faccio vedere i commenti come link.
Altrimenti se sPseudo è vuoto faccio vedere solamente i commenti inseriti, senza dare però la possibilità di inserire alcun commento.

Lo stesso principio è valido anche per gli articoli e tutto ciò che ha la possibilità di esser commentato.

Tutto chiaro??????
---------------
Saluti e baci...

Red il bisiaco
http://www.bisiacaria.com
MS4916AR

Amatore
Amatore
39 Discussioni


Profilo - MS4916AR 		20 marzo 2003 alle 09:52:36 Profilo - MS4916ARInvia un messaggio privato Rispondi quotando
ciao ho provato, mi da questo errore in fondo ai dettagli delle news?:
Microsoft VB_Script runtime error '800a000d'

Type mismatch: 'oRs2'

/includes/news-inc.asp, line 71
redbaron76

Avanzato
Avanzato
163 Discussioni


Profilo - redbaron76 		20 marzo 2003 alle 11:28:55 Profilo - redbaron76Invia un messaggio privato bustio@hotmail.com 5034560 Rispondi quotando
Fermi tutti...piccolo particolare... La modifica da me segnalata è stata eseguita sulla versione 1.1 di AspNuke. Facile che la versione 1.2 attualmente disponibile abbia una logica completamente diversa....

Fatemi controllare e vi saprò dire.

Scusatemi
---------------
Saluti e baci...

Red il bisiaco
http://www.bisiacaria.com
MS4916AR

Amatore
Amatore
39 Discussioni


Profilo - MS4916AR 		20 marzo 2003 alle 12:29:45 Profilo - MS4916ARInvia un messaggio privato Rispondi quotando
ha ecco perche'????
aspettiamo per la 1.2
grazie!
MS4916AR

Amatore
Amatore
39 Discussioni


Profilo - MS4916AR 		24 marzo 2003 alle 09:04:33 Profilo - MS4916ARInvia un messaggio privato Rispondi quotando
[feu]
MS4916AR

Amatore
Amatore
39 Discussioni


Profilo - MS4916AR 		24 marzo 2003 alle 14:55:51 Profilo - MS4916ARInvia un messaggio privato Rispondi quotando
red siamo nelle tue mani!!!! [feu]
stefano

Utente
Utente
68 Discussioni


Profilo - stefano 		24 marzo 2003 alle 16:50:36 Profilo - stefanoInvia un messaggio privato Rispondi quotando
Scusate se mi intrometto, ma penso di avere risolto il problema:
nel file includes/comments-inc.asp ho aggiunto alla riga 110 (Nella sub Sub DisplayNewComment(iID, iType) prima di createtable)
If sPseudo <> "" Then
poi prima di end sub ho inserito
ELSE Response.Write " PER INSERIRE UN COMMENTO DEVI ESSERE REGISTRATO"
End If

Fatemi sapere se funziona
MS4916AR

Amatore
Amatore
39 Discussioni


Profilo - MS4916AR 		24 marzo 2003 alle 20:57:01 Profilo - MS4916ARInvia un messaggio privato Rispondi quotando
grandissimo sembrerebbe di si..!!!!!!!!

(r) (r)
Sergio

Amatore
Amatore
23 Discussioni


Profilo - Sergio 		27 marzo 2003 alle 11:54:27 Profilo - SergioInvia un messaggio privato Rispondi quotando
E' satto!!! un altro gran bel pezzettino di codice che andrebbe messo in qualche FAQ!!!

Grande stefano! (r)

ciao, sergio
 <<  1  2  3  >>

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 : 115
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: 425 Notizie: 180 Sondaggi: 11 Preferiti: 202522 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi