ASP发送email程序

teacheng

下面是刚刚才写好的用asp程序来发送email,用到了jmail


返回上一页"
response.end
end if
mailbody=mailbody &"A:visited { TEXT-DECORATION: none }"
mailbody=mailbody &"A:active  { TEXT-DECORATION: none }"
mailbody=mailbody &"A:hover   { TEXT-DECORATION: underline }"
mailbody=mailbody &"A:link    { text-decoration: none;}"
mailbody=mailbody &"BODY   { FONT-FAMILY: 宋体; FONT-SIZE: 9pt;}"
mailbody=mailbody &"TD    { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }"
mailbody=mailbody &""
mailbody=mailbody &"(此点击来自MACD)
"
mailbody=mailbody &"姓名："&sendname&"
"
    mailbody=mailbody &"来自："&topic&"
"
mailbody=mailbody &"电话："&tel&"
"
mailbody=mailbody &"地址："&add&"
"
mailbody=mailbody &"地址："&email&"
"
mailbody=mailbody &"投资经验："&body&"
"
mailbody=mailbody &"*************************************************************************************"
mailbody=mailbody &"
请意注：此邮件由teacheng（
www.teacheng.cn
）在线邮件系统发送，请勿直接回复此邮件！
"
mailbody=mailbody &"如果需要回复，请发邮件至"&email&"，切记！本站对邮件的内容不负任何法律责任！
"
mailbody=mailbody &"*************************************************************************************"
mailbody=mailbody &""
if sendname  "" and email  "" then
set jmail= server.CreateObject ("jmail.message")
jmail.Silent = true
jmail.Charset = "gb2312"
JMail.ContentType = "text/html"
jmail.From = smtpemail
jmail.FromName = sendname
jmail.ReplyTo = email
jmail.Subject = topic
jmail.AddRecipient myemail
jmail.Body = mailbody
jmail.MailServerUserName = smtpuser
jmail.MailServerPassWord = smtppwd
isgo = jmail.Send(smtpserver)
if isgo then
msg="邮件发送成功！谢谢你的支持。"
else
msg = "邮件发送失败！请检查您的参数设置是否正确！"
end if
jmail.Close
set jmail = nothing
end if
end if
%>
BODY
{SCROLLBAR-ARROW-dCOLOR:#ff0000; SCROLLBAR-BASE-COLOR:#b8c8d8;background:#CAD7F7; FONT-SIZE: 9pt; COLOR: #000000; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif, 宋体}
A {text-decoration: none; font-size: 9pt;}
A:visited {TEXT-DECORATION: none; color: #555555;}
A:active {TEXT-DECORATION: none; color: #000000;}
A:hover {COLOR: #0099cc; TEXT-DECORATION: underline; TEXT-DECORATION:none; position:relative; left: 1px; top: 1px}
A:link {text-decoration: none; color: #0000A0;}
.t{LINE-HEIGHT: 1.4;}
P {FONT-SIZE:9pt; LINE-HEIGHT: 12pt;}
TD{font-size: 9pt; LINE-HEIGHT: 12pt;}
div {font-size: 9pt;}
input {font-family: "Tahoma", "Verdana"; font-size: 9pt;}
AFA Markets
"" then%>
返回上一页
  
  
   
      您的姓名：
      
      *
   
   
      您的电话：
      
      *
   
   
      您的地址：
      
        *
   
   
      你的E-mail：
      
      *
   
   
      来自：
      
                        上海
       北京
                        天津
                        四川
                        吉林
                        云南
                        重庆
                        贵州
                        新疆
                        黑龙江
                        辽宁
                        浙江
                        江苏
                        江西
                        新疆
                        甘肃
                        安徽
                        山西
                        西藏
                        湖北
                        湖南
                        河北
                        广东
                        福建
                        广西
                        内蒙古
                        海南岛
                        香港
                        澳门
                        台湾
                        重庆
                        四川
                        贵州
                        云南
                        西藏
                        陕西
                        宁夏
                        青海
                        河南
                        山东
      其他
                     
      *
   
   
      投资经验：
      
      *
   
   
      
      
        
 
        
      
   
  


本文来自ChinaUnix博客，如果查看原文请点：http://blog.chinaunix.net/u/15427/showart_325185.html