Question

大家好，我有这个问题。我不知道如何解决它。我有一个表单，我用jquery和ajax提交它但在asp页面中，当我插入代码发送邮件时，带有警告消息的ajax函数响应。我需要一个很好的帮助代码如下：

FORM.ASP

<form name="modulo" id="formname">
    <div class="col-sm-6"><input class="form-control input-lg" id="nome" name="nome" placeholder="Inserisci il tuo nome*" type="text" /></div>
    <div class="col-sm-6"><input class="form-control input-lg" id="mail" name="mail" placeholder="Inserisci la tua mail*" type="Email" /></div>
    <div class="col-sm-12"><input class="form-control" id="oggetto" name="oggetto" placeholder="Oggetto*" type="text" /></div>
    <div class="col-sm-12"><textarea class="form-control" id="messaggio" name="messaggio" placeholder="Messaggio*" rows="6"></textarea></div>
    <button type="button" class="btn btn-primary"  id="bottone">Invia Richiesta</button>
</form>

<div id="risultato"></div>

<script src="/js/jquery-1.11.2.min.js"></script>
<script type="text/javascript">
function clearForm(form)
{
    $(':input').val('');
};

$("#bottone").click(function(){
    var nome = $("#nome").val();
    var mail = $("#mail").val();
    var oggetto = $("#oggetto").val();
    var messaggio = $("#messaggio").val();

    $.ajax({
        type: "POST",
        url: "conferma.asp",
        data: "nome=" + nome + "&mail="+mail +"&oggetto="+ oggetto +"&messaggio=" + messaggio,
        dataType: "html",
        success: function(msg)
        { 
            $("#risultato").html(msg);
            clearForm("#formname");
        },
        error: function()
        {
            alert("Chiamata fallita, si prega di riprovare...");
        }
    });
});
</script>

CONFERMA.ASP

<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
<%
function mandamail ()
    Set objMail = CreateObject("CDO.Message") 

    objMail.From ="" & mittente &"<"& emailmit &">" 
    objMail.To = "Fabio Lantier<fabiolantier@yahoo.it>" 
    objMail.Subject =  oggettomex  
    objMail.HTMLBody =  mex

    objMail.Fields(cdoSendUsingMethod) = cdoSendUsingPort
    objMail.Fields(cdoSMTPServer) = "smtp.aruba.it" 
    objMail.Fields(cdoSMTPServerPort) = 25
    objMail.Fields(cdoSMTPAuthenticate) = cdoAnonymous ' 0
    objMail.Fields.Update() 
    objMail.Send() 
    Set objMail= Nothing 
end function

mittente = Request.Form("nome")
emailmit = Request.Form("mail")
oggettomex = Request.Form ("oggetto")
mex = Request.Form ("messaggio")

If mittente = ""  Then
    Response.Write "Inserire nome!"
Else
    spedizione = mandamail   
    Response.Write "<p>Grazie per la richiesta; risponderemo a breve.</p>"
End If
%>

使用ajax和asp发送邮件的表单

0 个答案: