Ottenere dati json da un database Access con Asp
13 Novembre 2019
Scaricare le seguenti classi JSON_2.0.4 e JSON_UTIL_0.1.1 e includerle nel file asp come di seguito:
<% Response.AddHeader "Access-Control-Allow-Origin", "*" %>
<!--#include file="JSON_latest.asp"-->
<!--#include file="JSON_UTIL_latest.asp"-->
<%
'Connessione al database
sc = "driver={Microsoft Access Driver (*.mdb)};dbq="
Set dbconn = Server.CreateObject("ADODB.Connection")
dbconn.Open sc & Server.MapPath("database.mdb")
QueryToJSON(dbconn, "SELECT campo1, campo2 FROM tabella").Flush
%>
Per maggiori info vedere il sito https://code.google.com/archive/p/aspjson/downloads
Come spedire un’email con CDOSYS
13 Marzo 2016
Di seguito il codice html per l’immissione dei dati:
<form method="post" action="invia.asp"> E-mail: <input name="email" type="text" required><br> Messaggio: <textarea name="messaggio" rows="7" required></textarea><br><br> <input type="submit" value="invia"> </form>
Di seguito il file invia.asp che recupera i dati del form:
<%
'recupero le variabili del form
email = request.form("email")
messaggio = request.form("messaggio")
sTo = "[email protected]" 'email del destinatario
sFrom = email ' email del mittente
sSubject = "messaggio dal sito www.esempio.com" 'qui va inserito oggetto del messaggio
sMailServer = "smtp.aruba.it" 'server aruba
sBody = messaggio 'qui va inserito corpo del messaggio
'creazione degli oggetti necessari
Set objMail = Server.CreateObject("CDO.Message")
Set objConf = Server.CreateObject("CDO.Configuration")
Set objFields = objConf.Fields
With objFields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sMailServer
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With
With objMail
Set .Configuration = objConf
.From = sFrom
.To = sTo
.Subject = sSubject
.TextBody = sBody
End With
Err.Clear
on error resume next
objMail.Send
Set objFields = Nothing
Set objConf = Nothing
Set objMail = Nothing
Response.write "messaggio inviato"
%>
Reload automatico di una pagina
4 Maggio 2015
Il metodo più semplice è utilizzare la proprietà dell‘ HTML per il refresh se però si vuole proprio utilizzare l‘ASP, ecco qui:
<% Response.AddHeader "Refresh", "5" %>
Questo codice va inserito ad inizio pagina. Il valore numerico (nel nostro esempio 5) indica il numero di secondi tra un refresh e l‘altro.
Verificare il contenuto di un campo di un form
2 Aprile 2015
Nel codice che segue voglio verificare che il campo di un form, ad esempio, contenga un numero e non parole:
<%
If IsNumeric(Request.form("NOME_CAMPO")) = False
response.write "Attenzione! Devi inserire un numero
<a href=# OnClick=History.back()>Torna indietro</a>."
response.end
end if
%>
in caso contrario l’utente sarà invitato a tornare indietro e ricompilare il campo:
Evitare la memorizzazione delle pagine nella cache
25 Marzo 2015
Di seguito il codice:
<% Response.Expires = 0 %>
Qualora invece volessimo far scadere la nostra pagina in una data specifica avremmo usato:
<% Response.ExpiresAbsolute = #Dic 31, 2004 23:59:59# %>