Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

Forum
  SUPPORTO TECNICO VECCHIE VERSIONI
      FUNZIONALITA' BASE
         THREAD FORUM REALMENTE BLOCCATI

THREAD FORUM REALMENTE BLOCCATI

Autore Messaggio
littlehawk

Eliminato
Eliminato
0 Discussione


Profilo - littlehawk 		20 maggio 2003 alle 18:37:25 Profilo - littlehawkInvia un messaggio privato Rispondi quotando
[b]L'unica cosa che non mi piaceva di ASPNUKE era nel FORUM: nei thread bloccati era possibile rispondere !!!

Ho risolto il problema: ora un thread bloccato non ha possibilità di risposta !!!

Chi è interessato alla cosa può mandarmi un PM qui ed io invierò il file modificato !

[feu] [feu] [feu] [feu] [feu] [feu] [feu] [feu] [feu]
joshua

Esperto
Esperto
255 Discussioni


Profilo - joshua 		20 maggio 2003 alle 20:12:42 Profilo - joshuaInvia un messaggio privato Rispondi quotando
Beh non puoi dirci qui le modifiche che hai apportato? potrebbe interessare a molti ;)
ciauz
---------------
Quarta legge di Finagle: Una volta che si e' pasticciato qualcosa, qualsiasi intervento teso a migliorare la situazione non fara' altro che peggiorarla.
http://www.goonet.it
http://www.exclusivelondonlife.com
---------------
djveleno

Amministratore

Esperto
Esperto
1025 Discussioni


Profilo - djveleno 		21 maggio 2003 alle 09:28:34 Profilo - djvelenoInvia un messaggio privato Rispondi quotando
Perchè non dare la possibilità di rispondere agli utenti? Un post bloccato è solo per tenerlo in evidenza ed evitare che scivoli... nelle pagine, se però c'è la possibilità di scegliere, magari può essere interessante.... pubblica qui sotto la modifica.
Ciauzz Dj
---------------
A lavare la testa ai somari, ci si rimette l'acqua e il sapone!

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

Eliminato
Eliminato
0 Discussione


Profilo - littlehawk 		23 maggio 2003 alle 19:33:10 Profilo - littlehawkInvia un messaggio privato Rispondi quotando
Modificato il 23 maggio 2003 alle 19:33:48
Allora le modifiche da fare sono le seguenti, in FORUM-INC.ASP

cercate la funzione
Sub DisplayThreads(myForum, mySection, myPost, myPage)

aggiungete alla riga
Dim iPostID, sPostUser, sPostTitle, sPostDate, sPostMessage, bPostValid, bPostSmileys, bPostSignature

il valore bPostSticked in modo da ottenere
Dim iPostID, sPostUser, sPostTitle, sPostDate, sPostMessage, bPostValid, bPostSmileys, bPostSignature, bPostSticked

Dopodichè, nella stessa funzione, cercate il codice seguente:
While Not Rs.EOF
iPostID = Rs(0)
sPostUser = Rs(1)
sPostTitle = Rs(2)
sPostDate = Rs(3)
sPostMessage = Rs(4)
bPostValid = Rs.Fields(5).Value
sUserIP = Rs(6)
sEditDate = Rs(7)
bPostSmileys = Rs(8).Value
bPostSignature = Rs(9).Value
sFeelingPath = Rs(10)
iUserPosts = Rs(11)
iUserAvatar = Rs(12)
sSignature = ""

ed aggiungete, cambiando i valori di Rs(xx), il valore
bPostSticked = RS(10).Value

in modo da ottenere:
While Not Rs.EOF
iPostID = Rs(0)
sPostUser = Rs(1)
sPostTitle = Rs(2)
sPostDate = Rs(3)
sPostMessage = Rs(4)
bPostValid = Rs.Fields(5).Value
sUserIP = Rs(6)
sEditDate = Rs(7)
bPostSmileys = Rs(8).Value
bPostSignature = Rs(9).Value
bPostSticked = RS(10).Value
sFeelingPath = Rs(11)
iUserPosts = Rs(12)
iUserAvatar = Rs(13)
sSignature = ""


A questo punto cercate il codice:
If sPseudo <> "" and bIsValid Then
Response.Write " <tr class=""tablelinemain"">" & vbCRLF
Response.Write " <td colspan=""3"">" & vbCRLF
Response.Write " <input name=""nouveausujet"" type=""button"" class=""button"" value=""" & GetTranslation("LANG_NEW_SUBJECT") & """ OnClick=""Java_Script:document.location='Post.asp?forum=" & myForum & "&section=" & mySection & "';"">" & vbCRLF
Response.Write " <input name=""repondre"" type=""button"" class=""button"" value=""" & GetTranslation("LANG_ANSWER_POST") & """ OnClick=""Java_Script:document.location='Post.asp?forum=" & myForum & "&section=" & mySection & "&post=" & myPost & "';"">" & vbCRLF
Response.Write " </td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
End If

ed aggiungete una istruzione IF ... THEN ... END IF in modo da ottenere:

If sPseudo <> "" and bIsValid Then
Response.Write " <tr class=""tablelinemain"">" & vbCRLF
Response.Write " <td colspan=""3"">" & vbCRLF
Response.Write " <input name=""nouveausujet"" type=""button"" class=""button"" value=""" & GetTranslation("LANG_NEW_SUBJECT") & """ OnClick=""Java_Script:document.location='Post.asp?forum=" & myForum & "&section=" & mySection & "';"">" & vbCRLF
If not bPostSticked then
Response.Write " <input name=""repondre"" type=""button"" class=""button"" value=""" & GetTranslation("LANG_ANSWER_POST") & """ OnClick=""Java_Script:document.location='Post.asp?forum=" & myForum & "&section=" & mySection & "&post=" & myPost & "';"">" & vbCRLF
End if
Response.Write " </td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
End If


In questo modo non verrà mostrato il tasto rispondi quando il THREAD è bloccato !!!


Pero di essermni ricordato tutti i passaggi...
[lo] [lo] [lo] [lo]

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 : 264
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: 5685033 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi