sendmail.asp

有很多功能的留言版,很容易上手,有自动添加图片、表情。管理员功能也强大

<script language="vbscript" runat="server">
	'//技术支持:http://localhost/123/index.asp
	'//ReWrite on 2006-04-27 with VBScript by cash.//QQ:87256259//Email:[e-mail].
	
	Class SendMail
		
		Public ArrRs,Txt,MailIObj
		Public GetMailIObjInfo,NowMailIObj
		
		Public Sub GetMailInfo()
			Sqlstr = "Select MailIObj,Email,PassWord,Smtp,SendName,Title,GsbookUrl From [MailConfig] Where [Use] = 1"
			Set Rs = Conn.Execute(Sqlstr)
			If Rs.Eof Then
				MailIObj = "没有可用的发信组件！"
			Else
				MailIObj = "Ok"
				ArrRs = Rs.Getrows
			End If
			Rs.Close
			Set Rs = Nothing
		End Sub
		
		Public Sub GetMailIObj(sGetMailIObjInfo)
		
			GetMailIObjInfo = sGetMailIObjInfo
			If Conn.execute("Select Id From [MailConfig] Where [Use] = 1").Eof Then
				NowMailIObj = "没有设置可用的发信组件"
			Else
				NowMailIObj = Conn.execute("Select MailIObj From [MailConfig] Where [Use] = 1")(0)
			End If
			Select Case GetMailIObjInfo
				Case "No"
				Case Else
					If GetMailIObjInfo = Empty Then
						GetMailIObjInfo = NowMailIObj
						Sqlstr = "Select MailIObj,Email,PassWord,Smtp,SendName,Title,GsbookUrl From [MailConfig] Where [Use] = 1"
					Else 
						Sqlstr = "Select MailIObj,Email,PassWord,Smtp,SendName,Title,GsbookUrl From [MailConfig] Where MailIObj = '"&GetMailIObjInfo&"'"
					End If
					Set Rs = Conn.Execute(Sqlstr)
					If Rs.Eof Then
						MailIObj = "没有可用的发信组件！"
					Else
						MailIObj = "Ok"
						ArrRs = Rs.Getrows
					End If
					Rs.Close
					Set Rs = Nothing
			End Select
		End Sub
		
		Public Sub SetMailTxt(GsbookUrl,WebTitle,WebUrl,Author,GsbookId)
			emailbody="["& Author &"]您好："	
			emailbody=emailbody  &"<p><font size=2>＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝</font></p>"
			emailbody=emailbody  &"<p><font size=2 color=red>此信是"&WebTitle&"["&WebUrl&"]给你发送的留言回复通知</font></p>"
			emailbody=emailbody  &"<p><font size=2>请点击下面的链接查看你在["&WebTitle&"]发表的留言回复</font></p>"
			emailbody=emailbody  &"<p><font size=2>"
			emailbody=emailbody  &"<a href="&GsbookUrl&"?Id="&GsbookId&">"
			emailbody=emailbody  &GsbookUrl&"?Id="&GsbookId&"</a></font></p>"
			emailbody=emailbody  &"<p><font size=2>如果不能点击，请你把上面这段地址复制后添入浏览器地址栏进行访问。</font></p>"
			emailbody=emailbody  &"<p><font size=2>＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝</font></p>"
			txt=emailbody
		End Sub
		
		Public Sub SetMailTxt2(GsbookUrl,WebTitle,WebUrl,Author)
			emailbody="[管理员]您好："	
			emailbody=emailbody  &"<p><font size=2>＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝</font></p>"
			emailbody=emailbody  &"<p><font size=2 color=red>此信是"&WebTitle&"["&WebUrl&"]给你发送的留言通知</font></p>"
			emailbody=emailbody  &"<p><font size=2>系统时间"&Now()&"有["&Author&"]给你提交的新留言</font></p>"
			emailbody=emailbody  &"<p><font size=2>请点击下面的链接查看留言：</font></p>"
			emailbody=emailbody  &"<p><font size=2>"
			emailbody=emailbody  &"<a href="&GsbookUrl&">"
			emailbody=emailbody  &GsbookUrl&"</a></font></p>"
			emailbody=emailbody  &"<p><font size=2>如果不能点击，请你把上面这段地址复制后添入浏览器地址栏进行访问。</font></p>"
			emailbody=emailbody  &"<p><font size=2>＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝</font></p>"
			txt=emailbody
		End Sub
		
		Public Function Jmail(Title,Txt,ToEmail,FromName,FromMail,MailPass,Smtp)
			set JmailObj=server.CreateObject("Jmail.Message")
				JmailObj.appendtext "这是一封html格式的邮件，请切换到HTML浏览模式"
				JmailObj.AppendHTML(txt)'//内容
				JmailObj.Logging=false
				JmailObj.Silent=true
				JmailObj.Priority=1
				JmailObj.FromName= FromName'//邮件发信人名字
				JmailObj.From=FromMail'//发件人邮件地址
				JmailObj.Charset="gb2312"
				JmailObj.MailServerUserName=FromMail'//发件人邮件地址（SMTP用户名）
				JmailObj.MailServerPassWord=MailPass'//发件人邮箱密码（SMTP密码）
				JmailObj.ContentTransferEncoding="base64"
				JmailObj.Body=txt
				JmailObj.Subject=Title'//信件标题
				JmailObj.AddRecipient ToEmail'//收件人地址
				JmailObj.Send Smtp'//Smtp地址/"smtp-ent.21cn.com"
			set JmailObj=nothing
		End Function
		
		Public Function CDONTS (Title,Txt,ToEmail,FromMail)
			Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
			objCDOMail.From = FromMail
			objCDOMail.To = ToEmail
			objCDOMail.Subject = Title
			objCDOMail.BodyFormat = 0 
			objCDOMail.MailFormat = 0 
			objCDOMail.Body = Txt
			objCDOMail.Send
			Set objCDOMail = Nothing
		End Function

		Public Function SendInfo()
			If err then
				Response.Write "发送失败"
			Else
				Response.Write "发送成功"
			End If
		End Function

	End Class
	
</script>