我用ASP的小程序实现在线递交表单，但服务器端好象没有CDONTS.NewMail这个组件，发出去的完全收不到？

用JMAIL组件啊。

<%
'=============================================
'发送邮件
'=============================================
Function SendEmail(tomail,mailSubject,mailbody)
On error resume next
Dim JMail, contentId
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "utf-8" ' 邮件字符集，默认为"US-ASCII"
' JMail.ISOEncodeHeaders = False ' 是否进行ISO编码，默认为True

JMail.From = "yourname@163.com" ' 发送者地址
JMail.FromName = "视听工程网AvpChina" ' 发送者姓名
JMail.Subject = mailSubject ' 邮件主题
JMail.MailServerUserName = "yourname@163.com" ' 身份验证的用户名
JMail.MailServerPassword = "password" ' 身份验证的密码
JMail.Priority = 3 ' 设置优先级，范围从1到5，越大的优先级越高，3为普通
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.AddRecipient(to