+ Rispondi alla Discussione
Risultati da 1 a 12 di 12

Aiuto asp upload e data server

Ultimo Messaggio di angelobor il:
  1. #1
    User
    Data Registrazione
    Jun 2008
    Messaggi
    21

    Aiuto asp upload e data server

    Ciao a tutti,
    ho un problema con un sito, il sito è tutto in asp, e ha delle funzioni che usano l'orario e la data del server, il problema è che il server restituisce la l'ora e la data in inglese quindi la data postata diversamente cioè mese/giorno/anno.
    questo mi comporta malfunzionamente di tutto il sito
    lo stesso sito è installato su un'altro dominio sempre dello stesso manteiner e funziona correttamente, ho chiesto assistenza ma sembra non interessare perchè non ricevo risposte in merito.
    qualcuno mi può aiutare gentilmente a modificare il codice, ne sono grato
    poi un secondo problema è upload di immagini da client a una cartella del sito anche li ho provato diversi sistemi, ma non funziona ho contattato il menteiner e mi hanno detto che quei componenti non sono installati..
    AITUTOOOOO!
    forse devo trasferire il dominio ma come faccio ad avere la garanzia che poi tutto funziona?
    grazie
    Ivan

  2. #2
    Esperto
    Data Registrazione
    Mar 2006
    Località
    Perugia
    Messaggi
    1,742
    Prova a usare l'istruzione FormatDateTime(data,formato)

  3. #3
    User
    Data Registrazione
    Jun 2008
    Messaggi
    21
    Non saprei dove, il codice e cosi composto

    <%
    strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("mdb-database/lb.mdb") & ";Persist Security Info=False"
    set cn= server.createobject("ADODB.connection")
    Set rsc = Server.CreateObject("ADODB.Recordset")
    cn.open strconn

    data_oggi = now()
    data_oggi = mid(data_oggi,1,10)

  4. #4
    Esperto
    Data Registrazione
    Mar 2006
    Località
    Perugia
    Messaggi
    1,742
    mi sa che FormatDateTime non va bene, forse devi fare qualcosa di più complicato, ovvere dividere la stringa e invertire giorno e mese

  5. #5
    User
    Data Registrazione
    Sep 2008
    Località
    Roma
    Messaggi
    29
    Citazione Originariamente Scritto da vannes Visualizza Messaggio
    Non saprei dove, il codice e cosi composto

    <%
    strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("mdb-database/lb.mdb") & ";Persist Security Info=False"
    set cn= server.createobject("ADODB.connection")
    Set rsc = Server.CreateObject("ADODB.Recordset")
    cn.open strconn

    data_oggi = now()
    data_oggi = mid(data_oggi,1,10)
    %>
    ciao per convertire la data puoi provare a fare uno split dai dati, oppure la memorizzi dandogli tu l'ordine per esempio:

    data_oggi=Day(Now()) & "-" & Month(Now()) & "-" & Year(Now())

    Resituirà la data nel formato dd-mm-yyyy

  6. #6
    User
    Data Registrazione
    Jun 2008
    Messaggi
    21
    Niente non riesco...
    ho provato ma restituisce ancora la data in inglese.
    mi sono accorto che cliccando nella grafica il simbolo asp dove appare la data, il programma mi seleziona questa stringa:
    <tr><td width="800px" align="center"><% =now() %></td></tr>
    non capisco.

  7. #7
    User
    Data Registrazione
    Sep 2008
    Località
    Roma
    Messaggi
    29
    sostituiscila con:

    <tr><td width="800px" align="center"><%=data_oggi%></td></tr>

  8. #8
    User
    Data Registrazione
    Jun 2008
    Messaggi
    21
    Niente da fare, cosi non visualizzo più data e ora...
    ecco tutto il codice della pagina sperando che sia questa la pagina che la data

    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    <style type="text/css">
    <!--
    .Stile1 {color: #FFFFFF}
    -->
    </style>
    <link href="css/corepla.css" rel="stylesheet" type="text/css">
    </head>
    <body background="imm/sfondo.jpg">
    <table width="800px" cellpadding="0" cellspacing="0" align="center" bgcolor="#FFFFFF" >
    <tr><td width="800px" align="center"><font color="#CC0000" size="3"><b>Admin Ubidu</b></font></td></tr>
    <tr><td width="800px" align="center"><% =now() %></td></tr>
    <tr><td "800px">&nbsp;</td></tr>
    <tr><td "800px">&nbsp;</td></tr> <tr><td "800px">&nbsp;</td></tr>
    <tr><td "800px">&nbsp;&nbsp;<font color="#CC0000"><b>GESTIONE ASTE</b></font></td></tr>
    <tr><td "800px">&nbsp;&nbsp;---&nbsp;<a href="admin_ins_asta.asp">Nuova Asta</a></td></tr>
    <tr><td "800px">&nbsp;&nbsp;---&nbsp;<a href="admin_aste_attive.asp">Aste Attive</a></td></tr>
    <tr><td "800px">&nbsp;&nbsp;---&nbsp;<a href="admin_aste_da_attivare.asp">Aste da Attivare</a></td></tr>
    <tr><td "800px">&nbsp;&nbsp;---&nbsp;<a href="admin_aste_terminate.asp">Aste Terminate</a></td></tr>
    <tr><td "800px">&nbsp;</td></tr> <tr><td "800px">&nbsp;</td></tr>
    <tr><td "800px">&nbsp;&nbsp;<font color="#CC0000"><b>GESTIONE UTENTI</b></font></td></tr>
    <tr><td "800px">&nbsp;&nbsp;---&nbsp;<a href="admin_elenco_utenti.asp">Elenco Utenti</a></td></tr>
    <tr><td "800px">&nbsp;&nbsp;---&nbsp;<a href="admin_ricerca_utenti.asp">Ricerca Utenti</a></td></tr>
    <tr><td "800px">&nbsp;&nbsp;---&nbsp;<a href="admin_elenco_ricariche.asp">Elenco Ricariche</a></td></tr>
    <tr><td "800px">&nbsp;&nbsp;---&nbsp;<a href="admin_newsletter.asp">Newsletter</a></td></tr>
    <tr><td "800px">&nbsp;&nbsp;<font color="#CC0000"><b>SETTINGS</b></font></td></tr>
    <tr><td "800px">&nbsp;&nbsp;---&nbsp;<a href="admin_cambia_pwd.asp">Cambia password ADMIN</a></td></tr>
    <tr><td>&nbsp;</td></tr>
    <tr><td><hr width="400"></td></tr>
    <tr><td "800px">&nbsp;&nbsp;<font color="#CC0000"><b>STATISTICHE DI OGGI</b></font></td></tr>
    <tr><td>&nbsp;</td></tr>

    <%
    strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("mdb-database/lb.mdb") & ";Persist Security Info=False"
    set cn= server.createobject("ADODB.connection")
    Set rsc = Server.CreateObject("ADODB.Recordset")
    cn.open strconn

    data_oggi = now()
    data_oggi = mid(data_oggi,1,10)

    sz_sql="select count(id) from utenti where mid(data_reg,1,10) ='" & data_oggi & "'"
    rsc.open sz_sql,cn
    response.write("<tr><td>&nbsp;&nbsp;<b>Utenti registrati :</b> " & rsc(0) & "</td></tr>")
    rsc.close

    sz_sql="select count(id) from utenti where mid(data_attiv,1,10) ='" & data_oggi & "'"
    rsc.open sz_sql,cn
    response.write("<tr><td>&nbsp;&nbsp;<b>Utenti attivati :</b> " & rsc(0) & "</td></tr>")
    rsc.close

    sz_sql="select count(id) from offerte where mid(data,1,10) ='" & data_oggi & "'"
    rsc.open sz_sql,cn
    response.write("<tr><td>&nbsp;&nbsp;<b>Totale puntate :</b> " & rsc(0) & "</td></tr>")
    rsc.close

    sz_sql="SELECT Count(ricariche.id) AS ConteggioDiid, Sum(ricariche.ricarica) AS SommaDiricarica FROM ricariche where mid(data,1,10) ='" & data_oggi & "'"
    rsc.open sz_sql,cn
    response.write("<tr><td>&nbsp;&nbsp;<b>Totale ricariche :</b> " & rsc(0) & " - Totale introiti :" & rsc(1) & " €</td></tr>")
    rsc.close




    %>
    <tr><td>&nbsp;</td></tr>
    <tr><td><hr width="400"></td></tr>
    <tr><td "800px">&nbsp;&nbsp;<font color="#CC0000"><b>STATISTICHE TOTALI</b></font></td></tr>
    <tr><td>&nbsp;</td></tr>

    <%
    Ultima modifica di vannes; 23-09-08 alle 23:00

  9. #9
    User
    Data Registrazione
    Mar 2008
    Messaggi
    14
    Ciao vannes, ho dato un'occhiata al codice ASP e ho notato alcune cose:

    se ti serve solo la data perchè non usi Date() invece che Now() che rende anche l'ora ?
    Questa instruzione diventa superflua: data_oggi = mid(data_oggi,1,10)

    Qui invece mi sembra di vedere una incongruenza formale nella Query:
    Mi sembra di capire che vuoi contare gli utenti iscritti oggi.

    sz_sql="select count(id) from utenti where mid(data_reg,1,10) ='" & data_oggi & "'"

    Potrebbe essere così la query: "select count(id) from utenti where data_reg= #" & data_oggi & "#"

    Il simbolo # si usa per le date.

    Prova.
    Angelo ing. Bordoni

  10. #10
    User Newbie L'avatar di fulviolo58
    Data Registrazione
    Sep 2008
    Messaggi
    5
    Ciao, la soluzione nei primi post mi sembra la più corretta:
    Codice:
    data_oggi=Day(Date()) & "/" & Month(Date()) & "/" & Year(Date())
    però usando un DB access ti può capitare di trovarti invertiti il giorno con il mese (12 aprile 2008 te lo dovrebbe salvare così: 12/04/2008 ma te lo puoi ritrovare anche così: 04/12/2008).

    La soluzione ideale è quella di usare due funzioni, la prima che ti converte la data in YYYYMMDD (campo formato testo) e la seconda che te la riconverte in DD/MM/YYYY:

    Codice:
    'converte la data in testo
    Function DataInTesto(D)
     Anno = CStr(Year(D))
     Mese = CStr(Month(D))
     If Len(Mese) = 1 Then
      Mese = "0" & Mese
     End If
     Giorno = CStr(Day(D))
     If Len(Giorno) = 1 Then 
      Giorno = "0" & Giorno
     End If
     DataInTesto = Anno & Mese & Giorno
    End Function
    quindi quando salvi nel DB userai
    Codice:
    <% DataInTesto(Date()) %>
    e con quest'altra invece visualizzerai la data recuperata dal DB:
    Codice:
    Function DataDaTesto(D)
     Anno = Mid(D, 1, 4)
     Mese = Mid(D, 5, 2)
     Giorno = Mid(D, 7, 2)
     DataDaTesto = Giorno & "/" & Mese & "/" & Anno
    End Function
    per usarla:
    Codice:
    <%=DataDaTesto(RS("data_reg"))%>
    o anche per convertire al volo da inglese ad italiano:
    Codice:
    <%=DataDaTesto(DataInTesto(Date()))%>
    per quanto riguarda l'upload io uso da tempo la classe di Baol che è semplicissima da usare e che trovi qua creamweb.it/script/mostra_script/?id_script=12 (devi aggiungere le 3 w ed il . all'inizio)

    se hai problemi ad usarlo dimmelo che ti posto il codice.

    ciao, fulvio.

  11. #11
    User
    Data Registrazione
    Jun 2008
    Messaggi
    21
    Grazie tante ragazzi.
    Sono un po ignorante in materia in più ci metto un po della mia inegligenza,
    Fulvio gentilmente mi potresti contattare per email info @ vannes.it
    Provo come mi avete detto.
    Ultima modifica di vannes; 26-09-08 alle 11:10

  12. #12
    User
    Data Registrazione
    Mar 2008
    Messaggi
    14
    Per la conversione da data US-ENG ti propongo anch'io la funzione che uso di solito:

    Function FromUS ( Data )
    AData = Split(Data, "/")
    FromUS = AData(1) & "/" & AData(0) & "/" & AData(2)

    End function
    Angelo ing. Bordoni

+ Rispondi alla Discussione

^ Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •  
  • Il codice BB è Attivato
  • Le faccine sono Attivato
  • Il codice [IMG] è Attivato
  • Il codice [VIDEO] è Attivato
  • Il codice HTML è Disattivato
  • Trackbacks Attivato
  • Pingback Attivato
  • Refback Attivato

SEO by vBSEO 3.6.0 PL2 ©2011, Crawlability, Inc.