<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../conn/nosql.asp"-->
<!--#include file="../../conn/config.asp"-->
<!--#include file="../../conn/md5.asp"-->
 <%
if session("user")="" then
response.write "<script language='javascript'>"
response.write "alert('您没还有登录，请登录后再访问本页！');"
response.write"this.location.href='/index.asp';</SCRIPT>"
response.end
end if
if session("id")="" then 
response.write "<script language='javascript'>"
response.write "alert('您没还有登录，请登录后再访问本页！');"
response.write"this.location.href='/index.asp';</SCRIPT>"
response.end
end if
%>
<%
set rs=conn.execute("select email from snsn_user where id="&session("id")&"")
myemail=rs("email")
rs.close
set rs=nothing
conn.close
set conn=nothing

myname=nosql(request("myname"))
email=nosql(request("email"))

Dim l_message
' 声明变量

	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 & "您好！ 我是"&myname&"！近来可好啊？一段时间没有联系，不会把我忘了吧？呵呵！"
	l_message = l_message & "最近我在"&webname&"搞了个叫“迷你主页”的服务，可以用来管理自己的伙伴和亲密好友关系，做生意和交朋友都非常用得上哦！我经常里面找自己想认识的好朋友，不管什么分类或地方的，只要查找一下就都有了，找到以后，"
	l_message = l_message & "就好把他们加入自己的伙伴和好友列表啦！然后还能通过用电子邮件或网上留言"
	l_message = l_message & "跟对方直接联系呢！搞不好就情场、商场两得意了，嘿嘿！用起来真的很爽！听说现在有许多人都在用它哪！"
	l_message = l_message & "对啦，我已把你加入到我的伙伴列表了，你也赶快去搞一个吧，这样我们就可以随时随地在网上侃大山、谈生意、交友约会了！"
	l_message = l_message & "哈哈！打开这个链接 <a href='"&weburl&"my/myfriend/index.asp' target='_blank'>"&weburl&"my/myfriend/index.asp</a> ,只要简单几步就可以成功加入"&webname&"，"
	l_message = l_message & "使用他们提供的“迷你主页”的服务啦！<BR><BR>"
	l_message = l_message & "我们网上见！<BR><BR>"
	l_message = l_message & "老朋友: "&myname&"<BR>"
	l_message = l_message & ""&date()&""
   	l_message = l_message & "</body>"
	l_message = l_message & "</html>" 	


      topic="我是"&myname&",我搞了个伙伴关系管理工具，你也来加入吧！" ' 信件主题
      mailbody=l_message ' 信件内容
	Function SendJmail2(Email,Topic,MailBody)
    Dim JMail
	on error resume next
	 Set jmail = Server.CreateObject("JMAIL.Message")   '建立发送邮件的对象
     jmail.silent = true    '屏蔽例外错误，返回FALSE跟TRUE两值j
     mail.logging = true   '启用邮件日志
     jmail.Charset = "GB2312"     '邮件的文字编码为国标
     jmail.ContentType = "text/html"    '邮件的格式为HTML格式
     jmail.AddRecipient Email     '邮件收件人的地址
     jmail.From = fmail   '发件人的E-MAIL地址
     jmail.MailServerUserName = umail     '登录邮件服务器所需的用户名
     jmail.MailServerPassword = pmail     '登录邮件服务器所需的密码
     jmail.Subject = Topic    '邮件的标题 
     jmail.Body = MailBody      '邮件的内容
     jmail.Prority = 1      '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
     jmail.Send(smail)     '执行邮件发送（通过邮件服务器地址）
     jmail.Close()   '关闭对象
	Set JMail = Nothing
End Function
if instr(email,",")>0 then
Arremail=split(email,",")
for i=0 to ubound(Arremail)
if IsValidEmail(Arremail(i))=true then sendjmail2 Arremail(i),topic,mailbody 'email为所填邮箱
next
else
if IsValidEmail(email)=true then sendjmail2 email,topic,mailbody 'email为所填邮箱
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>交易助手管理操作平台_<%=webname%></title>
<link rel="stylesheet" href="/css.css" type="text/css">
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style></head>
<body><!--#include file="../../top.asp"-->
<table width="90%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>&nbsp;</td>
    <td width="970"><table width="970"  border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="10"><img src="/img/m_left.gif" width="10" height="20"></td>
          <td width="950" bgcolor="#FFFFFF"></td>
          <td width="10"><img src="/img/m_right.gif" width="10" height="20"></td>
        </tr>
        <tr bgcolor="#FFFFFF">
          <td height="188" colspan="3"><table width="950"  border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td width="1" bgcolor="efefef"></td>
                <td width="200" height="77" valign="top"><!--#include file="../left.asp"--></td>
                <td width="1" bgcolor="efefef"></td>
                <td valign="top"><p>&nbsp;</p>
                    <BR>
                    <TABLE width="578" border=0 align="center" cellPadding=0 cellSpacing=0>
                      <TBODY>
                        <TR>
                          <TD vAlign=top align=middle>
                            <TABLE class=fbg1 width="100%" board="0">
                              <TBODY>
                                <TR>
                                  <TD>
                                    <DIV id=nav><strong></strong></DIV></TD>
                                </TR>
                              </TBODY>
                            </TABLE>
                            <TABLE width="100%" 
                  border=0 align=center cellPadding=0 cellSpacing=1 bgcolor="#BBD7FF">
                              <TBODY>
                                <TR>
                                  <TD height="30" bgcolor="#e8f4ff"><B><font color="#Ff6600">&nbsp;<A 
                          href="haoyou.asp">回到“我的好友”</A></font></B></TD>
                                </TR>
                                <TR>
                                  <TD height="30" bgcolor="#e8f4ff"><B><font color="#Ff6600">&nbsp;<A 
                          href="addfriend_new.asp">再增加一个好友</A></font></B></TD>
                                </TR>
                                <TR bgColor=#FFFFFF>
                                  <TD height="30" class=C style="LINE-HEIGHT: 150%"><strong><span class="M"><B><font color="#Ff6600"></font></B><B><font color="#Ff6600">&nbsp;</font></B> 恭喜您！邀请商好友邀请信发送成功！</span></strong> </TD>
                                </TR>
                                <TR bgColor=#FFFFFF>
                                  <TD height="30" class=C style="LINE-HEIGHT: 150%"><B><font color="#Ff6600">&nbsp;</font></B> <IMG src="../images/icon_3.gif" 
      align=absMiddle> <A 
            href="haoyou.asp">返回<%=webname%>首页</A> </TD>
                                </TR>
                              </TBODY>
                          </TABLE></TD>
                        </TR>
                      </TBODY>
                    </TABLE>
                </td>
              </tr>
          </table></td>
        </tr>
    </table></td>
    <td valign="top"><img src="/img/index_img.jpg" width="10"></td>
  </tr>
</table>
<!--#include file="../../end.asp"-->
</body>
</html>
