sendinfoemail.asp

来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 136 行

 <%data_path="../../"%>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
   <%
 if session("globalecmaster")="" or session("masterflag")="" then
response.write "<script language='javascript'>"
response.write"parent.location.href='../login.asp';</SCRIPT>" 
response.end
end if
 
sendgo=Replace_Text(request.form("sendgo"))
if sendgo<>"" then 
  ' ============================================商机订阅自动发邮件===================================
	Set Rs=Server.CreateObject("Adodb.Recordset")
		Sql="select * from yixiang_emailorder"
		Rs.Open Sql,conn,1,3
		
	if not Rs.eof then 

 		do while not rs.eof 

			SendMail=Rs("email")'接收人
			
 
				if Rs("orderflag")=1 then 
  				 Topc="您在"&webname&"订阅的商机信息"' 信件主题
				 Email_title="<table width='100%' cellpadding='0' cellspacing='0' style='font-size:14px; ' align='center' border=0>"
				 Email_title=Email_title&"<tr>"
				 Email_title=Email_title&"    <td ><span style='color:red'><strong>您在"&webname&"订阅的商机信息:</strong><br></span>"
				 Email_title=Email_title&"        <br>"
				 Email_title=Email_title&"      感谢您的支持，请点击以下链接，即可直接查看您订阅的求购信息(请登录后查看):<br>"
				 Email_title=Email_title&"      <br>"
				 Email_title=Email_title&"	  <ul style='line-height:24px;'>"

			'求购信息
				BuyKey=Rs("buyorder")
				BuyKey=Split(BuyKey,",")
				for i=0 to uBound(BuyKey)
					KeyWords=BuyKey(i)
					Call Email_key(KeyWords,"卖")
					
				next

				
				 Email_title=Email_title&"  </ul>"
				 Email_title=Email_title&"</td>"
				 Email_title=Email_title&"  </tr>"
				 Email_title=Email_title&"</table>"
				 Email_title=Email_title&"<table width='100%' cellpadding='0' cellspacing='0'  style='font-size:14px; '>"
				 Email_title=Email_title&"  <tr>"
				 Email_title=Email_title&"   <td colspan='2'>感谢您的支持，请点击以下链接，即可直接查看您订阅的供求信息(请登录后查看):<br>"
				 Email_title=Email_title&"      <br>"
				 Email_title=Email_title&"      <ul  style='line-height:24px;'>"
				
				
							'供应信息
							
								SellKey=Rs("saleorder")
								SellKey=Split(SellKey,",")
							for j=0 to uBound(SellKey)
									KeyWords=SellKey(j)
									Call Email_key(KeyWords,"买")		
							next
	
				 Email_title=Email_title&"    </ul>"
				 Email_title=Email_title&"</td>"
				 Email_title=Email_title&" </tr>"
				 Email_title=Email_title&"  <tr>"
				 Email_title=Email_title&"    <td width='61%' align='right'>"&webname&"管理员<br>"
				 Email_title=Email_title&date()&"</td>"
				 Email_title=Email_title&"    <td width='39%' align='right'><br></td>"
				 Email_title=Email_title&"  </tr>"
				 Email_title=Email_title&"  <tr align='center'>"
				 Email_title=Email_title&"    <td colspan='2'><br>"
				 Email_title=Email_title&"|-------------------------------------------------【<span style='color: #33FF66'>此信息谢绝回复</span>】----------------------------------------------|</td>"
				  Email_title=Email_title&" </tr>"
				 Email_title=Email_title&"</table>"
				  Email_title=Email_title&"<br><br><br>"
 SendTime=Rs("yx_Time")'上次发送时间
if SendTime<>date() then 

	Rs("yx_Time")=date()
	Rs.update()
if IsValidEmail(SendMail)=true then   '发送邮件
		SendMailto SMTPServer,SystemEmail,"admin",HOPE_MailUser,HOPE_MailPwd,"<"&SendMail&">",SendMail,Topc,Email_title
end if
end if
  end if
 	 	Rs.MoveNext
 if Rs.Eof then exit do 
	 	loop
 end if
Rs.Close
Set Rs=nothing
response.Write("<script>alert('商机订阅自动匹配信息发送完毕！');location.href='Bs_Mail_Send.asp';</script>")
response.End()
end if
 


Sub  Email_key(keywords,TypeWho)
	
	WebUrlks=replace(replace(WebUrl,"/",""),"http:","http://")
 	if TypeWho="卖" then 
		LikePath="seller"
	else
		LikePath="tradeinfo"
	end if
	Set Rs_key=Server.CreateObject("Adodb.Recordset")
		Sql_key="Select * from yixiang_Info Where flag=1 and  type='"&TypeWho&"' and (showname like '%"&keywords&"%' or keywords like '%"&keywords&"%' or content  like '%"&keywords&"%')"
		Rs_key.Open Sql_key,conn,1,3
		if not  Rs_key.Eof then 
			
			Do While not Rs_key.Eof
				ttid=Rs_key("info_id")
				 sortid=Rs_key("sortid")
				 typeid=Rs_key("typeid")
				 typeid_2=Rs_key("typeid_2")
				 showname=Rs_key("showname")
				 dateandtime=Rs_key("dateandtime")
				 period=Rs_key("period")
				 showname=Rs_key("showname")
				Email_title=Email_title&"<li type='square'><a href='"&WebUrlks&HOPE_InstallDir&LikePath&"/offerdetail/"&sortid&"-"&typeid&"-"&typeid_2&"-"&ttid&".html' target='_blank'>"&WebUrlks&HOPE_InstallDir&LikePath&"/offerdetail/"&sortid&"-"&typeid&"-"&typeid_2&"-"&ttid&".html("&showname&")</a><br>"
	Rs_key.MoveNext
				IF Rs_key.Eof Then Exit do
			loop
		end if

		Rs_key.Close
		Set Rs_key=nothing
End Sub
		
 %>