O
ouwx
Unregistered / Unconfirmed
GUEST, unregistred user!
function sentemail(email)
dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From ="ouwx@263.net" '发信人的EMAIL
objCDOMail.To = email '收信人的EMAIL
objCDOMail.Subject ="欢迎您光临桂林地区高中校友录" 'EMAIL的标题
'EMAL的内容
objCDOMail.Body = "您好！"&chr(13)&" 非常感谢你的注册与留言，校友录的发展离不开你的关心与支持"&chr(13)&" dgxyl.coc.cc 恭候您再次光临！"
'发送
objCDOMail.Send
Set objCDOMail = Nothing
end function
dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From ="ouwx@263.net" '发信人的EMAIL
objCDOMail.To = email '收信人的EMAIL
objCDOMail.Subject ="欢迎您光临桂林地区高中校友录" 'EMAIL的标题
'EMAL的内容
objCDOMail.Body = "您好！"&chr(13)&" 非常感谢你的注册与留言，校友录的发展离不开你的关心与支持"&chr(13)&" dgxyl.coc.cc 恭候您再次光临！"
'发送
objCDOMail.Send
Set objCDOMail = Nothing
end function