<% if request("action")="sendmail" then '修改收信人电子邮件地址，表单里的内容将发送到这个信箱中 myemail ="divjiu@gmail.com" '修改收信人姓名 myname ="divjiu@gmail.com" '修改SMTP服务器 'divjiu@gmail.com 'divjiuforever smtpserver ="smtp.gmail.com" '修改SMTP服务器的用户名和密码 smtpuser ="divjiu@gmail.com" smtppwd ="divjiuforever" '与相应SMTP服务器对应的邮件地址 '很多SMTP服务器除了要验证用户名和密码外，还要验证发件人地址， '比如163.net的SMTP服务器在检查发信人邮件地址是不是以163.net '结尾，否则不予发送，因此，使用相应的信箱做为发信人信箱是必要的 smtpemail ="divjiu@gmail.com" tname =Request("t1") temail =Request("t2") tother =Request("t3") tsubject =Request("t1") tbody =Request("t5") if tname <> "" and temail <> "" then set jmail=server.CreateObject ("jmail.message") jmail.Silent =true jmail.Charset ="gb2312" if smtpemail <> "" then jmail.From ="tedtaoic@gmail.com" else jmail.From =temail end if jmail.FromName =tname jmail.ReplyTo =temail jmail.Subject ="网上提交：" & tsubject jmail.Body =tbody & vbcrlf & vbcrlf & "联系方式：" & tother jmail.AddRecipient myemail,myname jmail.MailServerUserName =smtpuser jmail.MailServerPassWord =smtppwd isgo=jmail.Send(smtpserver) if isgo then msg1="提交成功！谢谢您的支持。" else msg1="发送失败！请检查您的邮件地址是否填写正确。" end if jmail.Close set jmail=nothing end if end if %>
對第酒團有興趣嗎?請在這裏留言給我們
<%=msg1%>
您的姓名：
联系方式：
电子邮箱：
您的留言：
