email.asp

一个不错的论坛原代码

<%	emailname=l_title
	on error resume next
  if h_selectemail=0 then
	sendmsg="系统未开启邮件功能<br>"
	
elseif h_selectemail=1 then
	Set objcdonts = Server.CreateObject("CDONTS.NewMail")
	objcdonts.From =h_email
	objcdonts.To =emailto
	objcdonts.Subject =emailtopic
	objcdonts.BodyFormat = 0 
	objcdonts.MailFormat = 0 
	objcdonts.Body =emailbody
	objcdonts.Send
	Set objcdonts = Nothing	
	
elseif h_selectemail=2 then
	
	set Jmail=server.CreateObject ("Jmail.message")
	Jmail.Silent=true
	Jmail.fromname=emailname
	Jmail.from=h_email
	Jmail.AddRecipient (emailto)
	Jmail.Subject= emailtopic
	Jmail.body=emailbody
    JMail.MailServerUserName ="pwsite"		'SMTP服务器登录用户名
    JMail.MailServerPassWord ="xxxxxx"			'SMTP服务器登录密码
    JMail.send(h_emailserver)
    

elseif h_selectemail=3 then
	Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")  
	recipient=emailto
	sender=h_email
	subject=emailtopic
	message=emailbody
	mailserver=h_emailserver
	result=mailer.SendMail(mailserver, recipient, sender, subject, message)
	end if
	
	if err then 
	SendMail=err.description
	err.clear
	else
	SendMail="OK"
	end if


%>