<%
	'on error resume next
	dim  objCDOMail,sendmail
	Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
	objCDOMail.From ="master@showyou.net"
	objCDOMail.To ="mingquan0211@163.com"
	objCDOMail.Subject ="测试邮件"
	objCDOMail.BodyFormat = 0 
	objCDOMail.MailFormat = 0 
	objCDOMail.Body ="你好！"
	objCDOMail.Send
	Set objCDOMail = Nothing
	if err then 
	SendMail=err.description
	err.clear
	else
	SendMail="OK"
	end if

if sendmail="OK" then
  response.write "发送成功！"
else
  response.write sendmail
end if
%>
