一个表单，当用户填写email地址以后，自动给用户发送邮件，不需要按钮来激活此事件，个人新手，实在是不知道如何写这个代码，求高手指点！
另外，本想通过最后的用户提交按钮来触发自动发邮件事件，但是下方按钮，onclick触发了js事件，而asp代码无法在js中调用，郁闷啊！
以下是需要修改文件的源码，求大神帮忙！
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/function.asp"-->
<%
 Subject="Lettera Di Conferma Dell'avvenuto pagamento. Prenotazione No: "&OrderNum&", "&Contactname&""
          Template=ReadFile(Server.MapPath("../payment/mail/Payment-Confirmation.html"))
          Template=Replace(Template,"{{Contactname}}",ContactName)
          Template=Replace(Template,"{{OrderNum}}",OrderNum)
          Template=Replace(Template,"{{OrderString}}",OrderString)
          Template=Replace(Template,"{{HotelName}}",HotelName)
          Template=Replace(Template,"{{HotelAddress}}",HotelAddress)
          Template=Replace(Template,"{{BookingName}}",BookingName)
          Template=Replace(Template,"{{DeliveryDate}}",DeliveryDate)
          Template=Replace(Template,"{{mailTrainInfo}}",mailTrainInfo)
          Template=Replace(Template,"{{Mailto}}",Mailto)
          Template=Replace(Template,"{{BookingName}}",BookingName)
          Template=Replace(Template,"{{PassengerName_Str}}",PassengerName_Str)
          Template=Replace(Template,"{{MobilePhone}}",MobilePhone)
          Template=Replace(Template,"{{Nationility}}",Nationility)
          Template=Replace(Template,"{{TicketsNum}}",TicketsNum)
          Template=Replace(Template,"{{HotelBookWay}}",HotelBookWay)
          Template=Replace(Template,"{{HotelBookDate}}",HotelBookDate)
          Call SendMail(Subject,"yaniup@163.com",Template)




Sub SendMail(ByVal Subject,ByVal Mailto,ByVal Template)
On Error Resume Next
    Dim ObjSendMail
    Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.
    Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).
   
    Const cdoAnonymous = 0 'Do not authenticate
    Const cdoBasic = 1 'basic (clear-text) authentication
    Const cdoNTLM = 2 'NTLM
    Const EmailCode = "utf-8"
    Set ObjSendMail = CreateObject("CDO.Message")    
'    card_sendmail=Cards&" is USD "&Price&"/per person"
    ObjSendMail.To =Mailto
    ObjSendMail.Bcc="yaniup@163.com"
'    ObjSendMail.Subject = ContactName&" "&SearchDay& ",  "&DepStation&"/"&ArrStation&"  "&Title &", "&btime&" - "&etime&" , "&TicketsNum&" tickets, "& card_sendmail
    ObjSendMail.Subject = Subject
    ObjSendMail.From = " "
    ObjSendMail.Sender=" "
    ObjSendMail.HTMLBodyPart.Charset = EmailCode
    ObjSendMail.HtmlBody=Template
    ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
    ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.exmail.qq.com"  '"mail.your.com"
    ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
    ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "tt@mail.com"  '"youruserid"
    ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*******"   '"yourpassword"
    ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
    ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    ObjSendMail.Configuration.Fields.Update
    ObjSendMail.Send    
   
End Sub

%>