?? 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>
?? 文件大小 12670 K
?? 上傳用戶 lujing200912345
?? 所屬分類 SQL Server
??? 相關標簽

#GLOBALEC #WINNT #HTML
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? tofriend_ok.asp

?? 快捷鍵說明
