Leggere testi pubblicati online ed inserirli in db mysql locale.

[Mizushi]

Ciao, è possibile con ASP prelevare dei testi pubblicati su siti web, da cui sono stato preventivamente autorizzato, in maniera automatica ed inserirli in un db mysql?

Grazie-

[cavicchiandrea]

Dipende cosa intendi tu per maniera automatica, se ipotizziamo un operazione del genere:
L'utente apre la pagina carica.asp che esegui tutti i suoi processi (complessi) di acquisizione e una vota finito il suo ciclo l'utente la chiude, ritengo sia possibile.
Un operazione completamente automatica eseguita dal server, può darsi ma non saprei da dove iniziare la vederei più attinente ad un sistemista.

[optime]

con XMLHTTP. cerca nel forum

[Mizushi]

Originariamente inviato da optime
con XMLHTTP. cerca nel forum

Grazie.

Con questo codice riesco a visualizzare la pagina web alla quale sono autorizzato:

    url = "http://www.xxxxxx/notizie.html" 
    set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") 
    xmlhttp.open "GET", url, false 
    xmlhttp.send "" 
    Response.write xmlhttp.responseText 
    set xmlhttp = nothing

Ma adesso per salvare la pagina e scrivere ciò che mi interessa in un db mysql ?

[agenti]

url = "http://www.xxxxxx/notizie.html"
set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.open "GET", url, false
xmlhttp.send ""
contenuto = xmlhttp.responseText
set xmlhttp = nothing

'apri connessione db
'oggetto conn

sql = " insert into tua_tabella (tuo_campo) values ('"&contenuto&"') "
conn.execute (sql)

[Mizushi]

Ok grazie.

Con questo codice creo un file txt con la pagina web e poi mi seleziono ciò che mi interessa e lo inserisco nel db mysql:

    Function getString(byVal StringBin)
    dim intCount
    getString =""
    For intCount = 1 to LenB(StringBin)
    getString = getString & chr( AscB(MidB(StringBin, intCount, 1)) )
    Next
    End Function

    url = "http://www.XXXXXX.com/notizie.html" 
    set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") 
    xmlhttp.open "GET", url, false 
    xmlhttp.send "" 
    
    Set fileSys = Server.CreateObject("Scripting.FileSystemObject")
    Set textStream = fileSys.CreateTextFile(Server.MapPath("file.txt"), True, False)

    textStream.Write getString(xmlhttp.ResponseBody)
    textStream.Close

    Set textStream = Nothing
    Set fileSys = Nothing    
    Set xmlhttp = nothing

[ubbicom]

Ciao.

Con la ricerca ho trovato questo script ASP che funziona, ma che dovrei adattare al fatto che l'attuale versione scrive in un file txt la pagina web compresa del codice html.

A me servirebbe invece un file di testo semplice cioè senza codice html della pagina web cercare determinate frasi e se esistenti inserirle nel db.

Ho provato così: textStream.Write getString(xmlhttp.ResponseText)

Ma il risultato è uguale.

Cosa sbaglio?
Grazie