Sul mio sio internet ho attivato un modulo di invio contatti. Mi hanno consigliato di aggiungere a questo modulo il codice di sicurezza. Mi potete consigliare voi qualche esempio.
Il modulo di invio è:
mentre la pagina di visualizzazione è:
Il modulo di invio è:
Codice:
<%
'============Linkbruttocane su specifiche MSDN================
'* il corpo finale del messaggio contiene tutti i campi *
'* inseriti nella pagina html, in pratica puoi mettere *
'* tutti i campi che ti servono nel modulo di invio senza *
'* fare altre configurazioni aggiuntive. *
'=============================================================
DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo
'* voce da modificare con il proprio indirizzo email
invioA = "info@***************"
'* voce da modificare con un indirizzo email che funga da mittente:
'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
'* dato che cdosys supporta questa notifica
invioDa = "info@****************"
'------------fine modifiche necessarie------------------
nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")
'*rilevo i campi del form
FOR numeroCampi = 1 TO (Request.Form.Count() - 0)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT
'* creo gli oggetti cdosys sul server e li gestisco
DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Contatto dal dominio " & nomeDominio
.TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp & " browser e sistema operativo " & browserSistemaOperativo & vbCrLf & corpoMessaggio & ""
.Send
End With
%>
<script>
document.location.replace('grazie.asp');
</script>
mentre la pagina di visualizzazione è:
Codice:
</style>
<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
<script language="JavaScript">
function controllo(){
with(document.form1) {
if(email.value=="") {
alert("Errore: compilare il campo email");
nome.focus();
return false;
}
if(Privacy.checked=="") {
alert("Errore: Autorizzare le condizioni sulla privacy");
nome.focus();
return false;
}
}
return true;
}
</script>
***********************
<tr>
<td height="186" colspan="2" valign="top"><p class="style3">Compila il seguente modulo per richiedere informazioni:<!--webbot bot="HTMLMarkup" startspan --><script language="javascript">
</script>
<table border="0" cellpadding="0" cellspacing="0" width="40%" align="left">
<tr>
<td width="100%"><form action="formcdosys.asp" method="post" name="form1" onSubmit="return controllo();"">
<table width="361" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="170"><strong><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#333333">Nome</font></strong></td>
<td width="191"><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input type="text" name="nome" size="30">
</font></td>
</tr>
<tr>
<td width="170"><strong><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#333333">Cognome</font></strong></td>
<td width="191"><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input type="text" name="cognome" size="30">
</font></td>
</tr>
<tr>
<td width="170"><strong><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#333333">Telefono</font></strong></td>
<td width="191"><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input type="text" name="tel" size="30">
</font></td>
</tr>
<tr>
<td width="170"><strong><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#333333">E-mail
*</font></strong></td>
<td width="191"><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input type="text" name="email" size="30">
</font></td>
</tr>
<tr>
<td width="170"><strong><font color="#333333" face="Verdana, Arial, Helvetica, sans-serif"> <font size="2">Azienda</font></font></strong></td>
<td width="191"><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input type="text" name="azienda" size="30" id="azienda">
</font></td>
</tr>
<tr>
<td width="170"><strong><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#333333">Messaggio</font></strong></td>
<td width="191"><font color="#333333" face="Verdana, Arial, Helvetica, sans-serif"> <font size="1">
<textarea name="messaggio" rows="5" cols="33" wrap="VIRTUAL"></textarea>
</font></font></td>
</tr>
<tr>
<td width="170">
<input type="checkbox" name="Privacy" value="ON" style="float: right"></td>
<td width="291">
<font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif">
</font><i><font size="2">Accetto le condizioni sulla
<a href="documenti/privacy.pdf">privacy</a></font></i></td>
</tr>
</table>
<p align="center"><font color="#333333" face="Verdana, Arial, Helvetica, sans-serif"> <font size="1">
<input type="submit" name="Submit" value="Contatto">
</font></font></p>
</form>