sendmail.asp

来自「航空订票系统基于asp.net和sql2005包含数据库和图片」· ASP 代码 · 共 23 行

<%
Function SendMail(email,topic,mailbody)
	on error resume next
	dim JMail
	Set JMail=Server.CreateObject("JMail.Message")
	JMail.silent=true
	JMail.Logging=true
	JMail.Charset="gb2312"
	JMail.MailServerUserName = "yanminqiang" '您的邮件服务器登录名
	JMail.MailServerPassword = "790923" '登录密码
	JMail.ContentType = "text/html"
	JMail.Priority = 1
	JMail.From = "[e-mail]"  '邮件地址
	JMail.FromName = "神马机票订购"  '网站名称
	JMail.AddRecipient email
	JMail.Subject = topic
	JMail.Body = mailbody
	JMail.Send ("smtp.163.com")   '发邮件服务器地址
	Set JMail=nothing
	SendMail="OK"
	If err then SendMail="False"
End Function
%>