<%Dim mail, MessageBody
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.To = "test@163.com"
mail.From = "justcode@163.com"
mail.Subject = "邮件发送测试"
mail.Body ="邮件收到!这是正文"
mail.Send
Set mail = nothing
If not err Then
response.write "<br>OK!<br>"
Else
response.write "<br>Wrong!"&err.description&"<br>"
End If
%>