tofriend_ok.asp

来自「OA最新破解2008版 全新 破解 希望大家用着舒服」· ASP 代码 · 共 320 行

ASP
320 行
字号 
<!--#include file="../../inc/safe.asp"-->
<!--#include file="../../inc/config.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
sendjmail2 ToEmail1,topic2,mailbody2
else
sendjmail2 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
sendjmail2 ToEmail2,topic2,mailbody2
else
sendjmail2 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
sendjmail2 ToEmail3,topic2,mailbody2
else
sendjmail2 ToEmail3,topic1,mailbody1
end if
end if


'If SendJmail(email,Topic,MailBody) = 1 Then
'	Response.Write "<br/><br/>资料成功发送到您的注册邮箱！"
'Else
'	Response.Write "<br/><br/>未正确设置邮件发送或您填写的邮件地址有误，资料发送失败！"
'End If

Function SendJmail2(Email,Topic,MailBody)

	Dim JMail
	on error resume next
	Set JMail = Server.CreateObject("JMail.SMTPMail")
	JMail.LazySend            = true
	JMail.silent            = true
	JMail.Charset            = "gb2312"
	JMail.ContentType      = "text/html"
	JMail.Sender            = ""&webname&"商情特快" '发送人
	JMail.ReplyTo            = ""&SystemEmail&"" '回复到
	JMail.SenderName      = "推荐商情"
	JMail.Subject            = Topic
	JMail.SimpleLayout      = true
	JMail.Body            = MailBody
	JMail.Priority            = 3  '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
	JMail.AddRecipient Email
	JMail.AddHeader "Originating-IP", GBL_IPAddress
	If JMail.Execute() = false Then
		SendJmail = 0
	Else
		SendJmail = 1
	End If
	JMail.Close
	Set JMail = Nothing

End Function
%>
<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=#ff6600><font color=ffffff><%=webname%></font></TD>
    <TD align=right bgColor=#ff6600 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="#FF6600" 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>

tofriend_ok.asp - 源码说明

本页面展示了「OA最新破解2008版 全新 破解 希望大家用着舒服」中的 tofriend_ok.asp 源码文件，采用 ASP 编程语言编写，共 320 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与2008相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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