Sitemaps per phpBB

autodafe

Sitemaps per phpBB

qualcuno ha qualche script funzionante (in asp se possibile) che riesca a creare una sitemap contenente tutti i post (o almeno i thread ) di un forum phpBB? in rete ho trovato qualcosa ma non mi funziona, mi genera solo l'elenco dei forum....

giorgiotave

Ciao AutoDafe,

ti sposto nel Forum Dedicato

napster

Ciao autoDafe,

Ne esiste una apposita per phpbb, ma è in PHP.

Se ti interessa, ora la posso cercare e postarla

Ecco le migliori in circolazione x phpbb:

Mx Ggsitemaps.

Mx Sitemaps Auto Link Add on phpBB.

Mx Sitemaps.

autodafe

forse ce l'ho fatta, modificando uno script in asp ...

www. sagreinitalia.it/sitemap_phpBB.asp

autodafe

[scusate, cancello per doppio post, la pagina di invio si era bloccata...]

autodafe

posto il codice che ho usato.
Codice modificato da un generatore di sitemap (credits nel codice stesso).
Pagina ASP che genera XML per la sitemap. Tutti i Topic vengono listati (non tutti i post)

Google se l'è bevuta...;)




<!--#include file="MyConnections.asp" -->


<%

MAXURLS_PER_SITEMAP = 50000

'modify this to change website, baseurl and table
baseurl="http://www.NomeDelSito.it/Forum/viewtopic.php?t="


strsql = "SELECT * FROM phpbb_topics"

'see http://www.time.gov/ for utcOffset
utcOffset=1

response.ContentType = "text/xml"
response.write "<?xml version='1.0' encoding='UTF-8'?>"
response.write "<!-- generator='http://www.iteam5.net/francesco/sitemap_gen'-->"
response.write "<urlset xmlns='http://www.google.com/schemas/sitemap/0.84'>"

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open MM_conn_MySql_STRING
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn
Do while not rs.eof
    if URLS<MAXURLS_PER_SITEMAP then

        'modify this to change database field
        id_page=(rs("topic_id"))
        filelmdate=date()
        priority=1

        if not isdate(filelmdate) then filelmdate=now()
        filedate=iso8601date(filelmdate,utcOffset)

        if priority="" or priority>1.0 then priority="1.0"

        response.write "<url><loc>"&(baseurl&id_page)&"</loc><lastmod>"&filedate&"</lastmod><priority>"&priority&"</priority></url>"
        URLS=URLS+1
        Response.Flush
    rs.movenext
end if
Loop

response.write "</urlset>"

rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing


Function iso8601date(dLocal,utcOffset)    
    Dim d
    ' convert local time into UTC
    d = DateAdd("H",-1 * utcOffset,dLocal)

    ' compose the date
    iso8601date = Year(d) & "-" & Right("0" & Month(d),2) & "-" & Right("0" & Day(d),2) & "T" & _
        Right("0" & Hour(d),2) & ":" & Right("0" & Minute(d),2) & ":" & Right("0" & Second(d),2) & "Z"
End Function
%>