incemail.asp

单班同学录 一个非常漂亮的同学录 哦

<%
'//// Include for JMail Component4.3.1 ////
'/// http://www.dimac.net
Function sendmail(recipient,senderemail,subject,message)
	strsql="select smtpserver,smtpuser,smtppwd from config"
	set oRs=conn.execute(strsql)	
	Dim JMail,recipient1 
	smtpserver = oRs("smtpserver") 
	smtpuser = oRs("smtpuser")
	smtppwd = oRs("smtppwd")
	recipient1=split(recipient,";")
	oRs.close
	set oRs=nothing
	
	Set JMail = Server.CreateObject("JMail.Message") 
	Jmail.Silent = true 
	JMail.Charset = "gb2312" 
	JMail.Logging = true 
	JMail.Priority = 3
	
	JMail.From = senderemail   '发信人email地址
	JMail.FromName = "你的同学"    '发信人姓名 
	Jmail.ReplyTo =senderemail  '回复人email地址
	
	For i=0 to ubound(recipient1)
		JMail.AddRecipient recipient1(i)
	Next	
	JMail.Subject = subject 
	JMail.Body =message
	
	Jmail.MailServerUserName = smtpuser 
	Jmail.MailServerPassWord = smtppwd 
	
	Jmail.Send(smtpserver) 
	if not Jmail.Send( smtpserver) then
		sendmail= JMail.log 
	else
		sendmail= "ok"
	end if
	Jmail.Close() 
	Set JMail = Nothing 
end Function
%>