Pagina 1 di 3 1 2 3 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 21
  1. #1

    Asp: effettuare la somma di 2 valori presenti su 2 server

    Ciao Ragazzi,
    ho un piccolo problema che non riesco a risolvere da giorni , ho creato un sito web
    che risiede su due server (sev1 e sev2). Su ognuno di essi risiede la stessa identica
    struttura del sito, per cui in caso di accessi multipli o sovracaricamento, un server
    supporta l'altro evitando problemi di non visualizzazione. Avendo la necessità di rilevare il
    numero di visite ho creato un contatore in asp con la seguente struttura, presente in
    maniera identica sui 2 server:

    accessi.txt
    conta.txt
    conta.asp

    Su quest'ultima pagina (conta.asp) è presente il codice:

    <%
    Response.Expires = 0
    Set fs = CreateObject("Scripting.FileSystemObject")
    path = server.mappath("conta.txt")
    path2 = server.mappath("accessi.txt")
    Set a = fs.OpenTextFile(path)
    conta = CInt(a.ReadLine)
    'Controllo gli aggiornamenti di pagina
    If Session("conta") = "" then
    Session("conta") = conta
    'Incremento di 1 il valore presente nel file di testo
    conta = conta + 1
    a.close
    'Scrivo sul file di testo il nuovo valore
    Set a = fs.CreateTextFile(path, True)
    a.WriteLine(conta)

    ' RECUPERO LA DATA E L'ORA DELL'ACCESSO
    Dim gg, mm, aa, hh, mn, ss, data, ora
    gg = Day(Date())
    mm = Month(Date())
    aa = Year(Date())
    hh = Hour(Time())
    mn = Minute(Time())
    ss = Second(Time())
    data = gg & "/" & mm & "/" & aa
    ora = hh & ":" & mn & ":" & ss

    ip=request.ServerVariables ("REMOTE_ADDR")
    Set b = fs.OpenTextFile(path2,8, true)
    b.WriteLine(conta& ") "&ip&" - "&data&" - "&ora )
    b.close
    End If
    a.Close
    response.write("n=" & conta)
    %>


    Il file conta.asp non fà altro che scrivere su dei file di testo ( accessi.txt, conta.txt) il numero di visite ad una pagina web, con la provenienza, la data e l'orario di accesso.
    Il numero di visite viene poi visualizzato su una pagina index.htm mediante un file index.swf, attraverso il codice action script:
    loadVariables("conta.asp?a="+random(500), this);

    Il mio problema è:
    Sul file index.swf viene visualizzato soltanto il numero di visite supportate da un solo server (sev1). Il numero di accessi supportate dal secondo server (sev2) non vengono visualizzati.

    Come faccio a far visualizzare sul file index.swf la somma delle visite supportate da ambedue i server? Devo agire sulla pagina conta.asp oppure sul codice del file index.swf???
    Non sò se sono stato chiaro. spero di si :master:

  2. #2
    devi recuperare i dati dell'altro server con XMLHTTP, e poi fai la somma. cerca anche su questo forum, ci sono tantissimi esempi

  3. #3
    Spiegami meglio perfavore, vuoi dirmi che per recuperare il dato sull'altro server
    devo mettergli come percorso XMLHTTP.......

  4. #4
    Ma non potrei assegnare a due variabili il valore presente sui due file di testo presenti sui due server che contano il numero di visite, e fargli fare la somma????

    Esempio:

    <%
    Dim serv1, serv2, tot
    serv1 = ("conta.txt") 'Qui nom ho inserito percorso perchè il file si trova sulla stessa cartella
    serv2 = ("WSRVCCPRODFE02\dbcompetitors$\25866\conta.txt ") 'Percorso del file sul server2
    tot = serv1 + serv2
    response.write (tot)
    %>

  5. #5
    Moderatore di ASP e MS Server L'avatar di Roby_72
    Registrato dal
    Aug 2001
    Messaggi
    19,559
    Certo, quello è l'obiettivo ma per ottenerlo devi fare come ti hanno suggerito.

    Roby

  6. #6
    Ok ma scusa la mia ignoranza, con XMLHTTP....... cosa devo fare????

  7. #7
    Moderatore di ASP e MS Server L'avatar di Roby_72
    Registrato dal
    Aug 2001
    Messaggi
    19,559
    Puntare quel file, leggerne il contenuto ed assegnarlo ad una variabile.

    Roby

  8. #8
    Ok se non erro penso che il codice dovrebbe essere questo :

    <%
    StrURL="http://www.website.it/"
    'StrURL="http://www.website.it/pagina.htm (oppure conta.txt)"

    if mid(StrURL,1,3)="www" then StrURL="http://"&StrURL
    Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")

    'Richiama il file
    objXMLHTTP.Send
    contenuto = CStr(objXMLHTTP.ResponseText)
    response.write contenuto
    Set objxml = Nothing
    %>

    Il problema è che come percorso non posso dargli l'URL in quanto il file di testo
    da leggere si trova su un indirizzo di web server, nello specifico:
    \\WSRVCCPRODZA09\dbcompetitor$\15777\conta.txt

    Per cui se la pagina in asp si trova nella stessa cartella dove di trova il file di testo non ho problemi a leggerla, se si trova su un indirizzo esterno non legge nulla

  9. #9
    Moderatore di Annunci siti web, Offro lavoro/collaborazione, Cerco lavoro L'avatar di cavicchiandrea
    Registrato dal
    Aug 2001
    Messaggi
    26,133
    Il file o pagina deve essere raggiungibile dal web (http://www.miosito.xxxx/pagina.xxxx) se il percorso e (C:\\miacartella\delmioserverweb\file.xxxx) non è possibile tramite XMLHTTP, ritengo (ma non sono sicuro) che dovrai configurare i due server tramite porte e devi essere amministratore di entrambi i server
    Cavicchi Andrea
    Problemi con javascript, jquery, ajax clicca qui

  10. #10
    basta fare una pagina asp sul server2 che legge il contenuto del file (che può stare dovunque) e spara a video il numero. con XMLHTTP intercetti il numero e ci fai quello che vuoi. e ti sei costruito un web service con asp classico

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.