Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

Nuova funzione DisplayTopNewsCategories

Autore Messaggio
piosky_to2003

Esperto
Esperto
2291 Discussioni



Profilo - piosky_to2003
23 settembre 2006 alle 09:03:09 Profilo - piosky_to2003Invia un messaggio privato chat_silvio@hotmail.com Rispondi quotando
Modificato il 26 ottobre 2006 alle 17:21:18

Per mio uso personale ho scritto una funzione per mostrare tutte le news di un categoria padre e delle sue sottocategorie o tutti i links

la funzione opera cosi
Sub DisplayTopNewsCategories(iCategoryParent,bIslink,bShowPather)

iCategoryParent e' l'ID della categoria padre
bIslink e una variabile Booleana (false,true) che mi dice se voglio mostrare i link (true) o le news(false)
bShowPather è una variabile booleana (true,false) che settata a true mi fa vedere tutte le news/link del padre piu le news/links delle sottocategorie, a false mi fa vedere solo le news/links delle sottocategorie

faccio un esempio

Creo un categoria padre sport
SPORT (id35)
e due sottocategorie di sport
CICLISMO (id=36)
CALCIO (iD=37)

e aggiungo a tutte e tre una notizia
SPORT -> "Notizia Generale"
CICLISMO -> "Pantani vince il tour"
CALCIO -> "L'italia vince i mondiali"

voglio vedere tutte le news di sport

DisplayTopNewsCategories 35,false,true
35 perchè il padre ha id 35
false perchè voglio vedere le news e non i link
true perchè voglio mostrare anche le notizie del padre

risultato

"Notizia Generale"
"Pantani vince il tour"
"L'italia vince i mondiali"

se invece setto a false l'ultimo variabile vedro'solo le news delle sottocategorie

DisplayTopNewsCategories 35,false,false

risultato

"Pantani vince il tour"
"L'italia vince i mondiali"

se invece della news voglio vedere i link basta mettere

DisplayTopNewsCategories 35,true,true

mostra tutti i link della categoria padre + sottocategorie

DisplayTopNewsCategories 35,true,false

mostra tutti i link delle sottocategorie

Se avete dubbi chiedete pure

---------------
Silvio Andrighetti Formaggini (Piosky) [lo]

http://www.roadrunners.to.it
Sito Prove
http://www.piosky.somee.com
msn : chat_silvio@hotmail.com
piosky_to2003

Esperto
Esperto
2291 Discussioni



Profilo - piosky_to2003
23 settembre 2006 alle 09:05:08 Profilo - piosky_to2003Invia un messaggio privato chat_silvio@hotmail.com Rispondi quotando
Modificato il 23 settembre 2006 alle 09:06:26

eccovi la funzione va messa alla fine del file news-inc.asp
come ultima funzione ma lasciando sempre alla fine la chiusura del codice asp %>


' Display all news for one pather's categories
' IN : iCategoryParent (int) : is the pather categorie to show
' IN : bShowPather)(Boolean) : =true show all the pather news ans pather's new for is subcategories, false show ony sub categories news
' IN : bIslink: true show news link , false show news
' OUT : - news message or newslink
' By Silvio Andrighetti (Piosky_to2003) Msn:chat_silvio@hotmail.com
Sub DisplayTopNewsCategories(iCategoryParent,bIslink,bShowPather)
Dim oCn, oRs,rSQL,oRs2,rSQL2,bNoNews

Set oCn = DBConnexion(DB_MAIN)
If iCategoryParent = "" Then
iCategoryParent = 0
end if
bNoNews=false
If iCategoryParent <> 0 Then
if bShowPather=true then
if bIslink=true then
DisplayTopNewsLinks GLOBAL_NEWS_TOP, iCategoryParent
else
DisplayTopNews GLOBAL_NEWS_TOP, iCategoryParent
rSQL2 = "SELECT * from news WHERE ncategory=" & iCategoryParent
Set oRs2 = DBRecordSet(oCn, rSQL2)
If not oRs2.EOF Then
bNoNews=true
end if
oRs2.Close
Set oRs2 = Nothing
end if
end if
rSQL = "SELECT cId from categories WHERE cParent=" & iCategoryParent
Set oRs = DBRecordSet(oCn, rSQL)
If Not oRs.EOF Then
While Not oRs.EOF
if bIslink=true then
DisplayTopNewsLinks GLOBAL_NEWS_TOP, oRS("cID")
else
DisplayTopNews GLOBAL_NEWS_TOP, oRS("cID")
rSQL2 = "SELECT * from news WHERE ncategory=" & oRS("cID")
Set oRs2 = DBRecordSet(oCn, rSQL2)
If not oRs2.EOF Then
bNoNews=true
end if
oRs2.Close
Set oRs2 = Nothing
end if
oRs.MoveNext
WEnd
End If
if bIslink=false And bNoNews=false then
CreateTopTable "no_news","NEWS"
Response.Write "Al momento non ci sono news"
CreateBottomTable ""
end if
End if
oRs.Close
Set oRs = Nothing
oCn.Close
Set oCn = Nothing
End Sub

---------------
Silvio Andrighetti Formaggini (Piosky) [lo]

http://www.roadrunners.to.it
Sito Prove
http://www.piosky.somee.com
msn : chat_silvio@hotmail.com
mennella

Avanzato
Avanzato
155 Discussioni



Profilo - mennella
26 ottobre 2006 alle 16:36:02 Profilo - mennellaInvia un messaggio privato Rispondi quotando
hola, piosky... sono ancora io 8)
non voglio farti riperdere un pomeriggio, ma ho visto questa tua interessante funzione e l'ho immediatamente provata... solo che non mi funge :(

ho messo la sub in un file richiamato dall'home page (ho creato un homepage-inc.asp per dividere le funzioni generali da quelle dell'home page, in modo da aumentare le possibilità di personalizzazione grafica della home page) e poi ho inserito la funzione nel default inc. esattamente ho scritto:
DisplayTopNewsCategories 2,true,false


solo che non mi appare assolutamente nulla...
---------------
Questi li ho fatti io! 8)
http://www.digirolamoeditore.com
http://www.sferaufficio.com
mennella

Avanzato
Avanzato
155 Discussioni



Profilo - mennella
26 ottobre 2006 alle 16:48:15 Profilo - mennellaInvia un messaggio privato Rispondi quotando
come non detto, funziona perfettamente, sono io che sono un idiota :( non avevo caricato notizie nella categoria visualizzata...
---------------
Questi li ho fatti io! 8)
http://www.digirolamoeditore.com
http://www.sferaufficio.com
stefyy1982

Principiante
Principiante
19 Discussioni



Profilo - stefyy1982
09 settembre 2010 alle 14:39:59 Profilo - stefyy1982Invia un messaggio privato Rispondi quotando
questa è una delle funzioni più belle di tutto aspnuke!!!
ho un gran problema però!
ho 1 categoria con 6 sottocategorie!!
ho bisogno che mi elenchi le ultime notizie non per sottocategoria ma in generale tra le sottocategorie. questo script mi fa in modo che mi escano le ultime notizie per sottocategoria e non tra tutte le sottocategorie (con elenco finale tramite CID e non tramite NID come logica vorrebbe!). E' possibile modificarlo? ci sto lavorando da mesi ma non ne vado fuori...
Per ora ho ovviato così: ho diviso le sottocategorie (continua ad ordinarmi le sottocategorie tramite CID..) e elenco le ultime news inserite per sottocategoria (tra l'altro non riesco ad individuare la riga dove inserire l'ORDER BY DESC o ASC). però ho bisogno dell'altro modo di rappresentare tutte le news in homepage!! qualcuno mi aiuta???
la mia email stefano82@hotmail.com

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

Versioni

Temi