<%
	dim XingSign
	XingSign = "<br><br><br><br><br><font style='font-size:9pt'>"&_
		"<b>欢迎光临我们的网站！ 明日网站，有家的地方……</b><br>"&_
		"---------------------------------------------------------------------------------------------------"&_
		"<LI type=square>我的网络小屋： 我的相册 / 我的文章 / 短消息 / 留言板 / 小屋计数器……我们全都为您准备好了"&_
		"<LI type=square>免费留言板：为您提供最酷的自行编写界面的留言板(即将到来)"&_
		"<LI type=square>源代码基地：为中国程序员提供学习资料"&_
		"<LI type=square>大量电脑教程：从最简单的怎样操作电脑开始循序渐进一点一点带您进入程序设计的大门"&_
		"<LI type=square>大量技术文章：内容非常丰富而且所有文章都是经过精挑细选的，以 <b>ASP</b> 文章居多"&_
		"<LI type=square>编程工具下载：为您准备最需要的编程工具"&_
		"<LI type=square>商业服务：承接大中型网站建设（包括数据库开发）"&_
		"<LI type=square>………………"&_
		"<LI type=square>我们的网址 <font face=verdana>>>>>>>>>></font> <a href='http://XingWorld.net' target=_blank><font face='verdana'>XingWorld.net</font></a>"





	sub Jmail(email)
		Dim JMail, SendMail, str
		
		'Set JMail = Server.CreateObject("JMail.SMTPMail")
		Set JMail = Server.CreateObject("JMail.Message")
			JMail.Logging = True
			JMail.Charset = "gb2312"	'邮件字符集，默认为"US-ASCII"
				'JMail.ContentType = "text/html"
				'JMail.ServerAddress = SMTPServer
			JMail.From = SystemEmail
				'JMail.Sender = SystemEmail
			JMail.Subject = topic
				'JMail.MailServerUserName = "admin@8n6.com"	' 身份验证的用户名
				'JMail.MailServerPassword = ""		' 身份验证的密码
				'JMail.HTMLBody = mailbody
			JMail.Body = mailbody
			JMail.AddRecipient email
			JMail.Priority=3
				'JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
			str = "admin@8n6.com:p@" & SMTPServer
				'JMail.Send("admin:p@mail.8n6.com")
			JMail.Send("mail.8n6.com")
				'JMail.Execute
			JMail.Close()
		Set JMail = nothing 
		if err then 
			SendMail=err.description
			err.clear
		else
			SendMail="OK"
		end if
		'response.write "<p><FONT COLOR=#00A000>Success! Message sent to "&email&"</FONT></p>"
	end sub





	sub Cdonts(email)
		dim objCDOMail
		Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
			objCDOMail.From = SystemEmail
			objCDOMail.To = email
			objCDOMail.Subject = topic
			objCDOMail.BodyFormat = 0 
			objCDOMail.MailFormat = 0 
			objCDOMail.Body =mailbody
			objCDOMail.Send
			if err then 
				SendMail=err.description
				err.clear
			else
				SendMail="OK"
			end if
		Set objCDOMail = Nothing
		'response.write "<p><FONT COLOR=#00A000>Success! Message sent to "&email&"</FONT></p>"
	end sub




	sub aspemail(email)
		Set Mail = Server.CreateObject("Persits.MailSender")
			' 邮件服务器
			Mail.Host = "mail.8n6.com"		'SMTPServer

			Mail.From = ""		'SystemEmail
			Mail.FromName = ""
			Mail.AddAddress email
		
			' 标题
			Mail.Subject = topic
			' 内容
			Mail.Body = mailbody
			Mail.IsHTML = True

			strErr = ""
			bSuccess = False
			On Error Resume Next 		'######- catch errors
			Mail.Send	'######>>>>>>>>>>>>>>>>>>>>>> send message
			If Err <> 0 Then 		'######- error occurred
				strErr = Err.Description
			else
				bSuccess = True
			End If

			If strErr <> "" Then
				response.write "<p><FONT COLOR=#FF0000>Error occurred: <I>"&strErr&"</I></FONT></p>"
				'response.end
			End If

			If bSuccess Then
				'response.write "<p><FONT COLOR=#00A000>Success! Message sent to "&email&"</FONT></p>"
				'response.end
			End If
		Set Mail = nothing
	end sub




	sub easymail(email)
		Dim mailsend
		Dim sender

		' 发送帐号是 admin
		sender = "support@" & HOST & ""

		Set mailsend = Server.CreateObject("easymail.MailSend")
			mailsend.CreateNew sender, "temp"
			' 发信人名称
			mailsend.MailName = "自助建站平台"

			mailsend.EM_To = email		'收件人邮件地址
			mailsend.EM_Subject = topic	'邮件主题"

			' 发送文本格式邮件
			'mailsend.EM_Text = mailbody

			' 发送html格式邮件
			mailsend.EM_HTML_Text = mailbody
			mailsend.useRichEditer = true

			if mailsend.Send() = false then
				'Response.Write "邮件发送失败!"
			else
				'Response.Write "邮件发送成功!"
			end if

		Set mailsend = Nothing

	end sub
%>



