jmail.asp

机票预定系统 各个模块的设计-ticket reservation systems detailed design system modules of the design

<%
If session("id_back")<>"" Then
	tmp8="往返"
	Else
	tmp8="单去"
End if
If session("PNR")<>"" then 
PNR="PNR订座编码："&session("PNR")&"<BR>"
else
PNR=""
End if

From=tmp(10)
FromName=tmp(1)
MailServerUserName=tmp(11)
MailServerPassword=tmp(12)
SMTP=tmp(13)
Website=tmp(2)
Otheinfo=tmp(21)

Subject = "您在"&FromName&"预订的"&city_from_bak&" - "&city_to_bak&"的机票，请查收！"
AddRecipient = ""&CEmail&""
HTMLBody = "<font style=' FONT-SIZE: 14px; LINE-HEIGHT: 150%;'>尊敬的用户<font color=red>"&(customer)&"</font>您好！<br>您在<a href="&Website&">"&FromName&"</a>预订的机票信息<br>订单编号："&dateId&"<br>"&PNR&"起飞日期："&flightdate&"<br>"&tmp8&"行程："&city_from_bak&" - "&city_to_bak&"<br>出发时间："&flighttime&"<br>抵达时间："&timeto&"<br>航空公司："&airways&" <br>航班号："&flightschedule&"<br>舱位："&rebate&"（"&cabintype&"）<br> 机型："&planeType&" <br>燃油附加费："&gasTaxPrice&" <br>机场建设税："&jianshefei&" <br>订单总金额："&session("Allmoney")&"元<br><br>用户联系方式：<br>联系电话："&telephone&"<br>联系手机："&mobile&"<br>"&registerinfo&"<br><br><a href="&Website&">点这里进入订票网站</a><br><br>如果您有任何疑问请致电我公司，服务热线："&tmp(15)&"<br>"&Otheinfo&""

'response.Write From&"<br>"&FromName&"<br>"&Subject&"<br>"&MailServerUserName&"<br>"&MailServerPassword&"<br>"&AddRecipient&"<br>"&HTMLBody&"<br>"&SMTP
Emailtype=1
if Emailtype=1 then
Jmailsend From,FromName,Subject,MailServerUserName,MailServerPassword,AddRecipient,HTMLBody,SMTP
else
SendMail From,AddRecipient,Subject,HTMLBody
end if


'Jmail邮件发送组件  1
Function Jmailsend(From,FromName,Subject,MailServerUserName,MailServerPassword,AddRecipient,HTMLBody,SMTP)
'Jmailsend(发送者地址,发送者姓名,邮件主题,身份验证的用户名,身份验证的密码,收件人地址,邮件主体,SMTP)
	On error resume next
	Dim JMail, contentId
	Set JMail = Server.CreateObject("JMail.Message") 
	JMail.Charset = "gb2312" ' 邮件字符集，默认为'US-ASCII'
	' JMa il.ISOEncodeHeaders = False ' 是否进行ISO编码，默认为True
	
	' 发送者信息（可用变量方式赋值）
	JMail.From = From ' 发送者地址
	JMail.FromName = FromName ' 发送者姓名
	JMail.Subject = Subject ' 邮件主题
	
	' 身份验证
	JMail.MailServerUserName = MailServerUserName ' 身份验证的用户名
	JMail.MailServerPassword = MailServerPassword ' 身份验证的密码
	
	' 设置优先级，范围从1到5，越大的优先级越高，3为普通
	JMail.Priority = 3
	
	JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
	
	' 加入一个收件人【变量email：收件人地址】可以同一语句重复加入多个
	JMail.AddRecipient("[e-mail]")
	
	If Instr(AddRecipient,";") Then
		AddR=Split(AddRecipient,";")
		For i=0 to Ubound(AddR)
		if i>Ubound(AddR) then exit for
		JMail.AddRecipient (AddR(i))
		Next
		else
		JMail.AddRecipient (AddRecipient)
	End if
	' 加入附件【变量filename：附件文件的绝对地址，确保用户IUSR_机器名有访问的权限】
	' 【参数设置是(True)否(False)为Inline方式】
	'contentId = JMail.AddAttachment (Server.MapPath("jmail.asp"), True)
	' 邮件主体（HTML(注意信件内链接附件的方式)）
	
	JMail.HTMLBody = HTMLBody
	
	' 邮件主体（文本部分）
	JMail.Body = "我们的邮件采用了HTML格式，但是您的邮件查看软件可能不支持。。。"
	
	' 发送【调用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】
	JMail.Send(SMTP)
	
	' 关闭并清除对象
	JMail.Close()
	Set JMail = Nothing
	
	If err.number<>0 then
		err.Clear
		SendMail From,AddRecipient,Subject,HTMLBody
		'Emailinfo= "<center>很遗憾，服务器暂不支持邮件发送！</center>"
		else
		session("Emailinfo")="您的订票信息已经成功发送到您的邮箱，请及时查收,感谢您对我们的支持！"
	End if
End Function

'windows2003自带发送邮件 2
Function SendMail (mailFrom,mailTo,Subject,HtmlBody)
	On error resume next 
	Dim cm
	Set cm=Server.CreateObject("CDO.Message")
	'创建对象
	with cm
	 .From=mailFrom
	'发信人的邮箱
	 .To="[e-mail];"&mailTo
	'收信人的邮箱
	 .Subject=Subject
	'邮件的主题
	
	 .HtmlBody=HtmlBody
	
	'cm.AddAttachment Server.MapPath("test.zip")
	'如果有需要发送附件的话就用上面的方法把文件附加进去。 
	
	 .Send
	end with
	Set cm=Nothing

    if err then 
      SendMail=False 
      err.Clear 
	  session("Emailinfo")="很遗憾，由于您的服务器不支持邮件发送！<br>请直接联系我们的客服，或者去帮助中心寻求帮助，感谢您对我们的支持！"
    else 
      SendMail=True
	  session("Emailinfo")="您的订票信息已经成功发送到您的邮箱，请及时查收！感谢您对我们的支持！"
    end if
	'response.End()
End Function
%>