sendmail.asp

个人相册程序-------------供大家分享

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="inc/Email_Calss.asp" -->
<!--#include file="mdx.asp" -->
<%
 strSourceFile = Server.MapPath("../config.xml")
 Set objXML = Server.CreateObject("Microsoft.XMLDOM")
 'Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
 objXML.load(strSourceFile)
 If objXML.parseError.ErrorCode <> 0 Then 
      objXML.loadXML "<?xml version=""1.0"" encoding=""gb2312"" ?>"
 End If
set objphoto = objXML.documentElement.SelectSingleNode("photo")
set objemail = objXML.documentElement.SelectSingleNode("email")

useremail=request("useremail")
topic=request("topic")
path=request("path")
i_c=request("i_c")
bbs=request("bbs")

mailbody="<p>推荐照片：<a href="""&objphoto.SelectSingleNode("domain").text&"?show_mode=img&path="&path&"&i_c="&i_c&"&bbs="&bbs&""" target=""_blank"">"&objphoto.SelectSingleNode("domain").text&"?show_mode=img&path="&path&"&i_c="&i_c&"&bbs="&bbs&"</a></p>" & vbcrlf
mailbody=mailbody+"<p>相册首页：<a href="""&objphoto.SelectSingleNode("domain").text&""" target=""_blank"">"&objphoto.SelectSingleNode("domain").text&"</a></p>" & vbcrlf
mailbody=mailbody+"<hr>" & vbcrlf
mailbody=mailbody+"<p align=""center"">Powered By <A href=""http://www.zhouhaihe.com/photo/"" target=_blank>飞鸟个人相册</A>" & vbcrlf
mailbody=mailbody+"<BR>" & vbcrlf
mailbody=mailbody+"Copyright &copy;2005 - "&year(date())&" <A href="""&objphoto.SelectSingleNode("domain").text&""" target=""_blank"">" & vbcrlf
mailbody=mailbody+"<FONT face=Verdana, sans-serif Helvetica, Arial,><B>" & vbcrlf
mailbody=mailbody+"<FONT color=#cc0000>"&objphoto.SelectSingleNode("name").text&"</FONT></B></FONT></A></p>"

Set oEmail = New bird_SendMail
		oEmail.SendObject = objemail.SelectSingleNode("module").text	'设置选取组件 1=Jmail,2=Cdonts,3=Aspemail,4=win2003
		oEmail.ServerLoginName = objemail.SelectSingleNode("user").text'您的邮件服务器登录名
		oEmail.ServerLoginPass =decryptstr(objemail.SelectSingleNode("pwd").text)	'登录密码
		oEmail.SendSMTP = objemail.SelectSingleNode("smtp").text	    'SMTP地址
		
		oEmail.SendFromEmail = objemail.SelectSingleNode("email").text'objphoto.SelectSingleNode("domain").text	'发送来源地址
		oEmail.SendFromName = objphoto.SelectSingleNode("name").text	'发送人信息
		If oEmail.ErrCode = 0 Then
			oEmail.SendMail useremail,topic,mailbody'执行发送邮件
			response.Write("&returnts=true")
		else
		     response.Write("&returnts=false")
		end if
%>