ASP讨论区

本人新手，有个问题请教高手帮忙，先谢谢了！

楼主 yaniup 于 2015-08-26 09:36:43

本人新手，有个问题请教高手帮忙，先谢谢了！

一个表单，当用户填写email地址以后，自动给用户发送邮件，不需要按钮来激活此事件，个人新手，实在是不知道如何写这个代码，求高手指点！
另外，本想通过最后的用户提交按钮来触发自动发邮件事件，但是下方按钮，onclick触发了js事件，而asp代码无法在js中调用，郁闷啊！
以下是需要修改文件的源码，求大神帮忙！
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>


<%
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

%>

电脑版 Page created in 0.0942 seconds with 4 queries.