testemail.asp

俄罗斯方块源码 俄罗斯方块源码 俄罗斯方块源码

<%
	'on error resume next
	dim  objCDOMail,sendmail
	Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
	objCDOMail.From ="[e-mail]"
	objCDOMail.To ="[e-mail]"
	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
%>