PCTRIO - il portale del software gratuito
Visualizzazione dei risultati da 1 a 8 su 8
  1. #1
    milkshake non  è collegato Junior Member
    Registrato dal
    Oct 2007
    Messaggi
    2

    [vbulletin] ultime discussioni del forum in pagina esterna

    Buonasera,
    come da consiglio ci Ceccus posto qui il mio quesito.
    Ho da poco acquistato una copia di Vbulletin e vorrei implementare,come su questo sito,la possibilità di visualizzare in una pagina esterna al vbulletin ( .php ) gli ultimi post del forum.

    Mi sapreste dire gentilmente come fare e come procedere?

    Tenendo presente che:

    ho il forum installato in
    [Occorre essere registrati per visualizzare il link. ]

    immagino poi debba personalizzare lo script con i dati di accesso al database,dico bene?

    Attendo vostre info (dettagliate , spero ) a riguardo su come procedere.


    Ringrazio,

  2. # ADS
    PUBBLICITA Link Sponsorizzati
    Registrato dal
    Sempre
    Messaggi
    Molti
     
  3. #2
    L'avatar di ceccus
    ceccus non  è collegato Amministratore
    Registrato dal
    May 2004
    residenza
    Siena
    Messaggi
    30,816
    Salve,
    Ecco il codice che utilizziamo NOI ... (più dettagliato di così...)

    codice:
    Dim Tabella(10) 
    Dim IndForum
    Dim K
    Dim J
    Dim Flag 
    Dim DataI
    Dim DataF
    Dim OraL
    Dim Ora
    Dim MinutiL
    Dim Minuti
    Dim SecL
    Dim Sec
    Dim TimeF
    Dim giornif
    Set Conn = Server.CreateObject("ADODB.Connection")
    Set RS = Server.CreateObject("ADODB.Recordset")
    Conn.ConnectionString = "DSN=nomeDSN"
    Conn.Open
    RS.Open "SELECT p.postid,p.dateline,t.threadid,t.title,t.lastposter,t.forumid,t.replycount,f.title as TitoloF  FROM forumvb.forum f, forumvb.post p, forumvb.thread t where p.threadid = t.threadid and t.forumid = f.forumid and t.visible = 1 order by p.postid desc LIMIT 100" , Conn
             J = 0
             IndForum = 1
             For K = 1 to 10
                Tabella(K) = 0
             Next
         do while IndForum <= 6
         Flag = "0"     
         For K = 1 to INdForum         
            if clng(RS("threadid").Value) = clng(Tabella(K)) then
               Flag = "0"
               K = IndForum + 1 
            else
               IF CLNG(RS("forumid").Value) = 55 OR CLNG(RS("forumid").Value) = 57 OR CLNG(RS("forumid").Value) = 62 OR CLNG(RS("forumid").Value) = 77 THEN
                  Flag = "0" 
                  K = IndForum + 1 
               else
                  Flag = "1"
               end if 
            end if
         Next
         if Flag = "1" then       
            if J > 0 then
               IndForum = IndForum + 1
            end if   
            Tabella(IndForum) = RS("threadid").Value
            DataI = clng(RS("dateline").Value)
            giornif = DataI / 86400
            DataF = dateadd("d",giornif,"01/01/1970")
               OraL = DataI Mod 86400
            Ora = (OraL / 3600) + 1
            MinutiL = OraL Mod 3600
            Minuti = MinutiL / 60
            SecL = MinutiL Mod 60
            Sec = SecL
            If Int(Ora) = 24 then
               Ora = 0
               DataF = dateadd("d", 1, DataF)
            end if            
            TimeF = Int(Ora) & ":" & Int(Minuti) & ":" & Int(Sec)
                           
                                 
           %>
          <font face="verdana" size="1"><img src="IMG/icon_latest_reply.gif" align="left"><a class=linklato href="<A href="http://www.pctrio.com/ForumN/showthread.php?t=<%=RS("threadid").Value%>"><%=RS("title").Value%></a></font">http://www.pctrio.com/ForumN/showthread.php?t=<%=RS("threadid").Value%>"><%=RS("title").Value%></a></font>
          <font face="verdana" size="1"> in <a class=linklato href="<A href="http://www.pctrio.com/ForumN/forumdisplay.php?f=<%=RS("forumid").Value%>"><%=RS("TitoloF").Value%></a></font>&nbsp">http://www.pctrio.com/ForumN/forumdisplay.php?f=<%=RS("forumid").Value%>"><%=RS("TitoloF").Value%></a></font>&nbsp;
          <font face="verdana" size="1">(<%=RS("replycount").Value%> Risposte) - Ultimo messaggio di <b><%=RS("lastposter").Value%></b></font>
          <font face="verdana" size="1">, <%Response.Write(formatdatetime(DataF,vblongdate))%>&nbsp;<%Response.Write(formatdatetime(TimeF,vblongtime))%></Font><BR>
          
        <% 
            end if 
         RS.MoveNext
         J = J + 1 
         loop                            
    
    RS.Close
    set RS = nothing
    Conn.Close
    Set Conn = nothing
    Questo è ASP ... ma in PHP non sarebbe troppo dissimile ...
    Se hai dubbi, chiedi pure ...

    Ciao !!
    -- Ceccus Staff PCTrio.com --

    Facebook PcTrio CLICCA "MI PIACE"

  4. #3
    milkshake non  è collegato Junior Member
    Registrato dal
    Oct 2007
    Messaggi
    2
    Grazie per l'aiuto...
    peccato non sappia nulla di asp...
    dovrò documentarmi

  5. # ADS
    PUBBLICITA Link Sponsorizzati
    Registrato dal
    Sempre
    Messaggi
    Molti
     
  6. #4
    L'avatar di ceccus
    ceccus non  è collegato Amministratore
    Registrato dal
    May 2004
    residenza
    Siena
    Messaggi
    30,816
    Salve,
    Beh ... quello che ti interessa è la Connessione e la query ... il resto è a "contorno" ...

    codice:
    Set Conn = Server.CreateObject("ADODB.Connection")
    Set RS = Server.CreateObject("ADODB.Recordset")
    Conn.ConnectionString = "DSN=nomeDSN"
    Conn.Open
    RS.Open "SELECT p.postid,p.dateline,t.threadid,t.title,t.lastposter,t.forumid,t.replycount,f.title as TitoloF  FROM forumvb.forum f, forumvb.post p, forumvb.thread t where p.threadid = t.threadid and t.forumid = f.forumid and t.visible = 1 order by p.postid desc LIMIT 100" , Conn
    
    ..........................................................                   
    
    RS.Close
    set RS = nothing
    Conn.Close
    Set Conn = nothing
    Ciao !!
    -- Ceccus Staff PCTrio.com --

    Facebook PcTrio CLICCA "MI PIACE"

  7. #5
    Scimiazzurro non  è collegato Banned
    Registrato dal
    Jun 2007
    Messaggi
    114
    Quote Originariamente inviato da ceccus Visualizza il messaggio
    Salve,
    Beh ... quello che ti interessa è la Connessione e la query ... il resto è a "contorno" ...

    codice:
    Set Conn = Server.CreateObject("ADODB.Connection")
    Set RS = Server.CreateObject("ADODB.Recordset")
    Conn.ConnectionString = "DSN=nomeDSN"
    Conn.Open
    RS.Open "SELECT p.postid,p.dateline,t.threadid,t.title,t.lastposter,t.forumid,t.replycount,f.title as TitoloF  FROM forumvb.forum f, forumvb.post p, forumvb.thread t where p.threadid = t.threadid and t.forumid = f.forumid and t.visible = 1 order by p.postid desc LIMIT 100" , Conn
    
    ..........................................................                   
    
    RS.Close
    set RS = nothing
    Conn.Close
    Set Conn = nothing
    Ciao !!
    Ceccus, Non esiste uno script del genere anche per lo Snitz? Mi piacerebbe anche a me far vedere sulla home i nuovi post.

  8. #6
    L'avatar di ceccus
    ceccus non  è collegato Amministratore
    Registrato dal
    May 2004
    residenza
    Siena
    Messaggi
    30,816
    Salve,
    Boh ... non so ... non utilizzando Snitz, non so risponderti ...

    Ciao !!

    P.S. : ma buttatelo via Snitz ... come Forum , ormai, è vecchio e non è neppure più manutenuto ...
    -- Ceccus Staff PCTrio.com --

    Facebook PcTrio CLICCA "MI PIACE"

  9. #7
    Scimiazzurro non  è collegato Banned
    Registrato dal
    Jun 2007
    Messaggi
    114
    Quote Originariamente inviato da ceccus Visualizza il messaggio
    Salve,
    Boh ... non so ... non utilizzando Snitz, non so risponderti ...

    Ciao !!

    P.S. : ma buttatelo via Snitz ... come Forum , ormai, è vecchio e non è neppure più manutenuto ...
    Il Problema e che in pochi (o perlomeno quelli che conosco) forum supportano L'access come database.

  10. #8
    L'avatar di ceccus
    ceccus non  è collegato Amministratore
    Registrato dal
    May 2004
    residenza
    Siena
    Messaggi
    30,816
    Salve,
    Rispondo brevemente perchè poi, altrimenti , occorre aprire un nuovo Thread.
    Access lo supportano TUTTI ... anche PHPBB2 che è meglio di Snitz ...
    E comunque, ACCESS, è veramente ridicolo come DataBase ...

    Ciao !!
    -- Ceccus Staff PCTrio.com --

    Facebook PcTrio CLICCA "MI PIACE"

Discussioni simili

  1. toshiba hd 80GB 2.5\" memoria esterna
    Da dtreert nel forum Problemi di installazione
    Risposte: 2
    Ultimo messaggio: 12th July 2006, 12:19
  2. Siamo nelle ultime mani...
    Da ceccus nel forum Di tutto,di piu
    Risposte: 1
    Ultimo messaggio: 7th April 2006, 22:43
  3. Scheda TV esterna marca Mentor
    Da ZIZIMICHELE nel forum Ricerca Driver
    Risposte: 22
    Ultimo messaggio: 17th March 2006, 16:03

Visitatori hanno trovato questa pagina cercando

snitz forum visualizzare pagina esterna

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Home  |   Software  |   Drivers  |   Guide  |   Sicurezza  |   Area gestione
Created by - best view 1024x768 and over. - C.F. 92048990524
PCTrio McAfee PCTrio AVG PCTrio Norton PCTrio Google