⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 tofriend_ok.asp

📁 全球商务网站系统介绍 GLOBALEC.COM.CN[生成HTML版] 系统概述： 软件名称：全球商务网站系统 当前版本：V1.0 最新版本：V1.1 运行环境：WINNT+（IIS）
💻 ASP
字号:
🔍 
<!--#include file="../../inc/safe.asp"-->

<%
  Response.Buffer = true
  Response.ExpiresAbsolute=now()-1
  Response.Expires=0
  Response.CacheControl="no-cache"

if Not ChkPost then 
response.redirect ("../../login/chklogin.asp?login=4")
response.end
end if

if session("id")="" then
response.Redirect("../../login/login1.asp")
response.end
end if


keyword1=Replace_Text(request("keyword1"))
keyword2=Replace_Text(request("keyword2"))
keyword3=Replace_Text(request("keyword3"))

ToEmail1=Replace_Text(request("ToEmail1"))
ToEmail2=Replace_Text(request("ToEmail2"))
ToEmail3=Replace_Text(request("ToEmail3"))

topic1="向您推荐一个做生意的新渠道"
topic2="我在"&webname&"帮你订阅了您感兴趣的产品供求信息" ' 信件主题

	l_message = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & vbCrLf 
	l_message = l_message & "<html>" 
	l_message = l_message & "<head>" 
	l_message = l_message & "<meta http-equiv=""Content-Type""" 
	l_message = l_message & "content=""text/html; charset=gb2312"">" 
	l_message = l_message & "<title>推荐商情</title>" 
	l_message = l_message & "<style>"
    l_message = l_message & ".L {"
	l_message = l_message & "FONT-WEIGHT: bold; FONT-SIZE: 16px; LINE-HEIGHT: normal; FONT-STYLE: normal; FONT-VARIANT: normal"
	l_message = l_message & "}"
	l_message = l_message & ".lh15 {"
	l_message = l_message & "LINE-HEIGHT: 150%"
	l_message = l_message & "}"
	l_message = l_message & "</style>"
	l_message = l_message & "</head>" 
	l_message = l_message & "<body text=#000000 leftMargin=0 topMargin=0 marginheight=0 marginwidth=0>" 
   	l_message = l_message & "<TABLE cellSpacing=0 cellPadding=0 width=520 border=0>"
	l_message = l_message & "<TBODY><TR><td>"
	l_message = l_message & "<font color=#ff0000>向你推荐一个好工具！</font><br><Br>"
	l_message = l_message & "&nbsp;&nbsp;我在"&webname&"上找到了一个非常棒的工具，它可以将你想要的产品供求信息自动发到你的邮箱里，"
	l_message = l_message & "你足不出户就可以找到客户，对生意大有帮助。建议你快去看看：<br><Br>"
	l_message = l_message & "<font color=#ff0000><a href='"&weburl&"member/myemail/index.asp' target='_blank'>"&webname&"商情特快</a></font>"
	l_message = l_message & "</td></TR></TBODY></TABLE>"
   	l_message = l_message & "</body>"
	l_message = l_message & "</html>" 
	


mailbody1=l_message ' 信件内容


if IsValidEmail(ToEmail1)=true then 
if keyword1<>"" then
    k_message = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & vbCrLf 
	k_message = k_message & "<html>" 
	k_message = k_message & "<head>" 
	k_message = k_message & "<meta http-equiv=""Content-Type""" 
	k_message = k_message & "content=""text/html; charset=gb2312"">" 
	k_message = k_message & "<title>推荐商情</title>" 
	k_message = k_message & "<style>"
    k_message = k_message & ".L {"
	k_message = k_message & "FONT-WEIGHT: bold; FONT-SIZE: 16px; LINE-HEIGHT: normal; FONT-STYLE: normal; FONT-VARIANT: normal"
	k_message = k_message & "}"
	k_message = k_message & ".lh15 {"
	k_message = k_message & "LINE-HEIGHT: 150%"
	k_message = k_message & "}"
	k_message = k_message & "</style>"
	k_message = k_message & "</head>" 
	k_message = k_message & "<body text=#000000 leftMargin=0 topMargin=0 marginheight=0 marginwidth=0>" 
   	k_message = k_message & "<TABLE cellSpacing=0 cellPadding=0 width=520 border=0>"
	k_message = k_message & "<TBODY><TR><td>"
	k_message = k_message & "我在"&webname&"上帮你订阅了你感兴趣的产品供求信息！<br><Br>"
	k_message = k_message & "&nbsp;&nbsp;产品名称：<font color=#ff0000>"&keyword1&"</font><Br><br>"
	k_message = k_message & "</td></TR></TBODY></TABLE><Br>"
   	k_message = k_message & "<TABLE cellSpacing=2 cellPadding=3 width='100%' bgColor=#49adad border=0><TBODY><TR>"
   	k_message = k_message & "<TD class=M align=middle><FONT color=#ffffff>"&keyword1&"</FONT></TD></TR></TBODY></TABLE>"
   	k_message = k_message & "<TABLE cellSpacing=2 cellPadding=3 width='100%' bgColor=#49adad border=0><TBODY><TR>"
   	k_message = k_message & "<TD class=M align=middle><font color=#ff0000><a href='"&weburl&"member/myemail/index.asp' target='_blank'>"&webname&"商情特快</a></font></TD></TR></TBODY></TABLE>"
   	k_message = k_message & "</body>"
   	k_message = k_message & "</body>"
   	k_message = k_message & "</body>"
   	k_message = k_message & "</body>"
   	k_message = k_message & "</body>"
   	k_message = k_message & "</body>"
   	k_message = k_message & "</body>"
	k_message = k_message & "</html>" 
mailbody2=k_message
sendjmail ToEmail1,topic2,mailbody2
else
sendjmail ToEmail1,topic1,mailbody1
end if
end if

if IsValidEmail(ToEmail2)=true then
if keyword2<>"" then
    k_message = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & vbCrLf 
	k_message = k_message & "<html>" 
	k_message = k_message & "<head>" 
	k_message = k_message & "<meta http-equiv=""Content-Type""" 
	k_message = k_message & "content=""text/html; charset=gb2312"">" 
	k_message = k_message & "<title>推荐商情</title>" 
	k_message = k_message & "<style>"
    k_message = k_message & ".L {"
	k_message = k_message & "FONT-WEIGHT: bold; FONT-SIZE: 16px; LINE-HEIGHT: normal; FONT-STYLE: normal; FONT-VARIANT: normal"
	k_message = k_message & "}"
	k_message = k_message & ".lh15 {"
	k_message = k_message & "LINE-HEIGHT: 150%"
	k_message = k_message & "}"
	k_message = k_message & "</style>"
	k_message = k_message & "</head>" 
	k_message = k_message & "<body text=#000000 leftMargin=0 topMargin=0 marginheight=0 marginwidth=0>" 
   	k_message = k_message & "<TABLE cellSpacing=0 cellPadding=0 width=520 border=0>"
	k_message = k_message & "<TBODY><TR><td>"
	k_message = k_message & "我在"&webname&"上帮你订阅了你感兴趣的产品供求信息！<br><Br>"
	k_message = k_message & "&nbsp;&nbsp;产品名称：<font color=#ff0000>"&keyword2&"</font><Br><br>"
	k_message = k_message & "</td></TR></TBODY></TABLE><Br>"
   	k_message = k_message & "<TABLE cellSpacing=2 cellPadding=3 width='100%' bgColor=#49adad border=0><TBODY><TR>"
   	k_message = k_message & "<TD class=M align=middle><FONT color=#ffffff>"&keyword2&"</FONT></TD></TR></TBODY></TABLE>"
   	k_message = k_message & "<TABLE cellSpacing=2 cellPadding=3 width='100%' bgColor=#49adad border=0><TBODY><TR>"
   	k_message = k_message & "<TD class=M align=middle><font color=#ff0000><a href='"&weburl&"member/myemail/index.asp' target='_blank'>"&webname&"商情特快</a></font></TD></TR></TBODY></TABLE>"
   	k_message = k_message & "</body>"
   	k_message = k_message & "</body>"
   	k_message = k_message & "</body>"
   	k_message = k_message & "</body>"
   	k_message = k_message & "</body>"
   	k_message = k_message & "</body>"
   	k_message = k_message & "</body>"
	k_message = k_message & "</html>" 
mailbody2=k_message
sendjmail ToEmail2,topic2,mailbody2
else
sendjmail ToEmail2,topic1,mailbody1
end if
end if

if IsValidEmail(ToEmail3)=true then
if keyword3<>"" then
    k_message = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & vbCrLf 
	k_message = k_message & "<html>" 
	k_message = k_message & "<head>" 
	k_message = k_message & "<meta http-equiv=""Content-Type""" 
	k_message = k_message & "content=""text/html; charset=gb2312"">" 
	k_message = k_message & "<title>推荐商情</title>" 
	k_message = k_message & "<style>"
    k_message = k_message & ".L {"
	k_message = k_message & "FONT-WEIGHT: bold; FONT-SIZE: 16px; LINE-HEIGHT: normal; FONT-STYLE: normal; FONT-VARIANT: normal"
	k_message = k_message & "}"
	k_message = k_message & ".lh15 {"
	k_message = k_message & "LINE-HEIGHT: 150%"
	k_message = k_message & "}"
	k_message = k_message & "</style>"
	k_message = k_message & "</head>" 
	k_message = k_message & "<body text=#000000 leftMargin=0 topMargin=0 marginheight=0 marginwidth=0>" 
   	k_message = k_message & "<TABLE cellSpacing=0 cellPadding=0 width=520 border=0>"
	k_message = k_message & "<TBODY><TR><td>"
	k_message = k_message & "我在"&webname&"上帮你订阅了你感兴趣的产品供求信息！<br><Br>"
	k_message = k_message & "&nbsp;&nbsp;产品名称：<font color=#ff0000>"&keyword3&"</font><Br><br>"
	k_message = k_message & "</td></TR></TBODY></TABLE><Br>"
   	k_message = k_message & "<TABLE cellSpacing=2 cellPadding=3 width='100%' bgColor=#49adad border=0><TBODY><TR>"
   	k_message = k_message & "<TD class=M align=middle><FONT color=#ffffff>"&keyword3&"</FONT></TD></TR></TBODY></TABLE>"
   	k_message = k_message & "<TABLE cellSpacing=2 cellPadding=3 width='100%' bgColor=#49adad border=0><TBODY><TR>"
   	k_message = k_message & "<TD class=M align=middle><font color=#ff0000><a href='"&weburl&"member/myemail/index.asp' target='_blank'>"&webname&"商情特快</a></font></TD></TR></TBODY></TABLE>"
   	k_message = k_message & "</body>"
   	k_message = k_message & "</body>"
   	k_message = k_message & "</body>"
   	k_message = k_message & "</body>"
   	k_message = k_message & "</body>"
   	k_message = k_message & "</body>"
   	k_message = k_message & "</body>"
	k_message = k_message & "</html>" 
mailbody2=k_message
sendjmail ToEmail3,topic2,mailbody2
else
sendjmail ToEmail3,topic1,mailbody1
end if
end if

%>
<HTML><HEAD><TITLE>推荐完成</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<META content="供求信息/ 商业公告板/商业贸易机会/进出口贸易机会/电子商务/" name=description>
<META 
content=供求信息，商业公告板，商业机会，进出口，商情公告板，商业BBS,进出口BBS,贸易机会，供求信息，贸易机会，商业机会，电子商务，免费贸易机会,供求信息，商业公告板，商业机会，进出口，商情公告板，商业BBS,进出口BBS,贸易机会，供求信息，贸易机会，商业机会，电子商务，免费贸易机会,供求信息，商业公告板，商业机会，进出口，商情公告板，商业BBS,进出口BBS,贸易机会，供求信息，贸易机会，商业机会，电子商务，免费贸易机会,求购，出售，贸易，求购，出售，贸易 
name=keywords>
<style type=text/css>
<!--
	BODY,TD{color:#000;font-size:14.8px;font-family:宋体}
	A.top{color:#ffffff;font-size:12px}
	A:LINK{color:#039;}
	A:VISITED{color:#909;}
	A:HOVER{color:#f60;}

	.RD{color:#900000;font:bold 14.8px 宋体}
	.YL{color:#ff0;font:bold 12px 宋体}
	.GR{color:#999;font-size:14.8px}

	.WH{color:#FFF;font:bold 14.8px 宋体}
	.WH:LINK{color:#FFF;font:bold 14.8px 宋体}
	.WH:VISITED{color:#FFF;font:bold 14.8px 宋体}
	.WH:HOVER{color:#f60;font:bold 14.8px 宋体}
	.WHS{color:#FFF;font:12px 宋体}
	.WHS:LINK{color:#FFF;font:12px 宋体}
	.WHS:VISITED{color:#FFF;font:12px 宋体}
	.WHS:HOVER{color:#f60;font:12px 宋体}
	.YLM{color:#ff0;font:bold 14.8px 宋体}
	
	.BUY{color:#fc9603;font:bold 14.8px 宋体}
	.SELL{color:#00cc00;font:bold 14.8px 宋体}
	.COOP{color:#851b91;font:bold 14.8px 宋体}
	.AGENT{color:#cc00ff;font:bold 14.8px 宋体}
	.ERROR{color:#f00;font:bold 14.8px 宋体}
	.NO{color:900000;font-size:12px;}
	.STAR{color:#f00;font-size:12px;}
	
	.X{font-size:24px;font-weight:bold;}
	.L{font-size:16px;font-weight:bold;}
	.M{font:bold 14.8px 宋体}
	.C{font-size:14.8px}
	.S{font-size:12px}
	
	.LM{line-height:130%}
	.LL{line-height:150%}
	
	SELECT{font-size:12px}
	INPUT{font-size:12px}
	TEXTAREA{font-size:12px}

<!------------OLD CSS--------->

	.f11{font-size:14.9px}
	.f1{font-size:10px}
	.f2{font-size:12px}
	.f3{font-size:16px}
	.f4{font-size:18px}
	.f5{font-size:24px}
	.f6{font-size:31px}
	.lh13{line-height:130%}
	.lh15{line-height:150%}
	.lh17{line-height:170%}
-->
</style>
</HEAD>
<BODY leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<CENTER>
<TABLE border=0 cellPadding=4 cellSpacing=0 width="100%">
  <TBODY>
  <TR>
    <TD bgColor=#CC3300><font color=ffffff><%=webname%></font></TD>
    <TD align=right bgColor=#CC3300 vAlign=bottom><A 
      href="javascript:window.close()"><IMG border=0 height=11 
      src="../../images/closewindow.gif" width=61></A></TD></TR></TBODY></TABLE><BR>
  <BR>
  <TABLE border=0 cellPadding=8 cellSpacing=0 width="95%">
    <TR> 
      <TD width="80%" align="center" bgColor=#f5f5f5> <br> <table width="88%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CBB55A">
          <tr> 
            <td> <table width="100%" border="0" cellpadding="10" cellspacing="0" bgcolor="#FFFFFF">
                <tr> 
                  <td align="center" class="lh15"><font color="#CC3300" class="X">恭喜！</font>您已帮朋友推荐了供求速配信息！<br>
                    如果方便的话，请通知他查收邮件!</td>
                </tr>
              </table></td>
          </tr>
        </table>
        <br> </TD>
    </TR>
  </TABLE>
  <br>
  <br>

  <BR>
<TABLE border=0 cellPadding=4 cellSpacing=0 width="100%">
  <TBODY>
  <TR>
    <TD bgColor=#e4e4e4>&nbsp;</TD></TR></TBODY></TABLE></CENTER></BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -