toldmyfriend_ok.asp
来自「全球商务网站系统介绍 GLOBALEC.COM.CN[生成HTML版] 」· ASP 代码 · 共 333 行
ASP
333 行
<!--#include file="../head.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
%>
<%
set rs=conn.execute("select email from corporation where id="&session("id")&"")
myemail=rs("email")
rs.close
set rs=nothing
conn.close
set conn=nothing
myname=Replace_Text(request("myname"))
email=Replace_Text(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&"member/myfriend/index.asp' target='_blank'>"&weburl&"member/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 & ""&FormatDate(date(),1)&""
l_message = l_message & "</body>"
l_message = l_message & "</html>"
topic="我是"&myname&",我搞了个伙伴关系管理工具，你也来加入吧！" ' 信件主题
mailbody=l_message ' 信件内容
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
'If SendJmail(email,Topic,MailBody) = 1 Then
' Response.Write "<br/><br/>资料成功发送到您的注册邮箱！"
'Else
' Response.Write "<br/><br/>未正确设置邮件发送或您填写的邮件地址有误，资料发送失败！"
'End If
'Jmail邮件发送
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 = ""&myname&"" '发送人
JMail.ReplyTo = ""&myemail&"" '回复到
JMail.SenderName = "商业伙伴"
JMail.Subject = Topic
JMail.SimpleLayout = true
JMail.Body = MailBody
JMail.Priority = 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
%>
<TABLE cellSpacing=0 cellPadding=0 width=778 border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle width=150>
<SCRIPT LANGUAGE='JavaScript' SRC='../images/left.js' TYPE='text/javascript'></script>
<TABLE cellSpacing=0 cellPadding=0 width=150 border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle width=150
background=../images/leftmanu_bg.gif>
<TABLE cellSpacing=0 cellPadding=0 width=150 border=0>
<TBODY>
<TR>
<TD width=150
background=../images/leftmanu_topbg.gif><IMG height=30
src="../images/leftmanu_top.gif"
width=150></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=150 border=0>
<TBODY>
<TR>
<TD class=leftmenu1
onclick="location.href='../index.asp'"><IMG
height=18 src="../images/leftmanu_home.gif" width=16
align=absMiddle> 商务助手首页</TD></TR><TR>
<TD class=leftmenu1
onclick=javascript:menu_display(table1,img1);><IMG id=img1
height=16 src="../images/fold_2.gif" width=16
align=absMiddle> 发布商业信息</TD></TR>
<TBODY id=table1><!-- 正常情况下 -->
<!-- 正常情况下 -->
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../tradeinfo/edit.asp">商业信息</A> </TD>
</TR><!-- 正常情况下 --> <TR>
<TD class=leftmenu2><IMG src="../images/plus.gif">
<A
class=linkstyle2
href="../productshow/edit.asp">产品目录</A></TD>
</TR><!-- 正常情况下 --><TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../modify/modify_mine.asp">展会信息</A> </TD>
</TR>
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../corporation/company_edit.asp">公司介绍</A></TD>
</TR><!-- 正常情况下 -->
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../bizre/index.asp">商贸通档案</A></TD>
</TR></TBODY>
<TBODY>
<TR>
<TD class=leftmenu1 onclick=menu_display(table2,img2)><IMG
id=img2 height=16 src="../images/fold_2.gif" width=16
align=absMiddle> 查看商业往来</TD></TR>
<TBODY id=table2><!-- 正常情况下 -->
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../getprice/receivemessagelist.asp">留言信息</A> </TD>
</TR><!-- 正常情况下 -->
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../myemail/index.asp">我订阅的信息</A> </TD>
</TR><!-- 正常情况下 -->
</TBODY>
<TR>
<TD class=leftmenu4>
<table width="100%" border="0" cellspacing="1" cellpadding="2">
<tr>
<td>
<img src="../images/minus.gif" width="9" height="9" id="imga" onclick="javascript:showhide(offer,imga);" onMouseOver="this.style.cursor='hand'"> <a href="javascript:showhide(offer,imga);" class="linkstyle2" >我的商业伙伴</a>
</td>
</tr>
<tbody id="offer" style=display:"">
<tr>
<td> <img src="../images/minus.gif">
<a href="addfriend_new.asp" class="linkstyle3">新增伙伴</a>
<img src="../images/now.gif" width="12" height="9" align="absmiddle">
</tr>
<tr>
<td> <img src="../images/minus.gif">
<a href="index.asp" class="linkstyle2">我的商业伙伴</a></td>
</td>
</tr>
</tbody>
</table>
</TD>
</TR><!-- 正常情况下 -->
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../trust/index.asp">会员评价</A> </TD>
</TR></TBODY>
<TR>
<TD class=leftmenu1 onclick=menu_display(table3,img3)><IMG
id=img3 height=16 src="../images/fold_2.gif" width=16
align=absMiddle> 我的会员资料</TD>
</TR>
<TBODY id=table3><!-- 正常情况下 -->
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../modify/modify_info.asp">修改注册信息</A> </TD>
</TR><!-- 正常情况下 -->
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../modify/modify_pass.asp">修改密码</A> </TD>
</TR><!-- 正常情况下 -->
<TD class=leftmenu1 onclick=menu_display(table4,img4)><IMG
id=img4 height=16 src="../images/fold_1.gif" width=14
align=absMiddle> 我的自助网站</TD>
</TR>
<TBODY id=table4 style="DISPLAY: none">
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../corporation/webmod.asp">网站模板选择</A></TD>
</TR>
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../corporation/cimg_add.asp?id=<%=session("id")%>">上传公司图片</A> </TD>
</TR>
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../feedback/contact_edit.asp?id=<%=session("id")%>">客户反馈管理</A></TD>
</TR>
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../work/work.asp">发布招聘信息</A></TD>
</TR>
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../work/edit.asp">管理招聘信息</A></TD>
</TR>
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../../companyweb.asp">浏览我的网站</A></TD>
</TR></TBODY>
<TBODY>
<TR>
<TD class=leftmenu1
onclick="javascript:window.open('../../help/index.html')"><IMG
id=img5 src="../images/leftmenu_help.gif"
align=absMiddle> 帮助</TD></TR></TBODY></TABLE>
<IMG height=6
src="../images/leftmanu_bottom.gif" width=150><BR><BR>
<!--#include file="../guestsubmit.asp"-->
<BR><BR></TD></TR>
</TABLE><BR><BR><BR></TD>
<TD
style="BACKGROUND-POSITION: right 50%; BACKGROUND-IMAGE: url(i../mages/bg1.gif); BACKGROUND-REPEAT: repeat-y; BACKGROUND-COLOR: #ffffff"
vAlign=top align=middle width=628>
<TABLE cellSpacing=0 cellPadding=0 width=628 border=0>
<TBODY>
<TR>
<TD width=459><IMG height=30
src="../images/leftmanu_top1.gif" width=459></TD>
<TD vAlign=top width=141
background=../images/top_nav_bg2.gif></TD>
<TD width=28><IMG height=30 src="../images/top_nav_5.gif"
width=28></TD></TR></TBODY></TABLE><BR>
<TABLE cellSpacing=0 cellPadding=0 width=578 border=0>
<TBODY>
<TR>
<TD><IMG height=32 src="../images/myfriend.gif" width=578
border=0></TD>
</TR></TBODY></TABLE>
<TABLE class=content_border cellSpacing=0 cellPadding=0 width=578
border=0>
<TBODY>
<TR>
<TD align=middle><BR>
<BR>
<TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD class=M>恭喜您！邀请商业伙伴邀请信发送成功！ </TD></TR></TBODY></TABLE><BR>
<TABLE class=bdr3 cellSpacing=0 cellPadding=0 width="95%"
border=0><TBODY>
<TR>
<TD class=tbg1>现在您可以：</TD></TR>
<TR>
<TD class=lh15>
<UL>
<TABLE cellSpacing=0 cellPadding=9 width="95%" border=0>
<TBODY>
<TR>
<TD class=C>
<LI><SPAN class=C><A
href="index.asp">回到“我的商业伙伴”</A></SPAN></LI></TD></TR></TBODY></TABLE></UL></TD></TR></TBODY></TABLE><BR><BR>
<A
href="../../index.asp" target="_blank"><B>返回首页</B></A> <BR>
<BR></TD></TR></TBODY></TABLE>
<BR><BR>
</TABLE><IMG
height=10 src="../images/bottom.gif" width=778><BR>
<!--#include file="../end.asp"-->⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?