说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

当把htm页群发邮件,如何能实现对方用文本格式浏览什么都不显示,只有超文本才正常显示?

编辑:说三道四文库 发布时间:2018-04-20 05:38
HTML文档下载 WORD文档下载 PDF文档下载
mailsend.asp

<html>
<head>
<title>发送邮件</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%  xx=request("picmem")
if xx="" then 
response.write "请先上传您的会员专刊,然后发送"
response.end 
end if 
Dim m_fso, m_tf
Dim m_strHTML
response.write xx
'on error resume next
Set m_fso = Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT")
mail=server.mappath("../../images/e/"&xx)
'response.write mail
Set m_tf = m_fso.OpenTextFile(mail, 1)
m_strHTML = m_tf.ReadAll

Set m_tf = Nothing
Set m_fso = Nothing  
'response.write m_strHTML
  sql="select * from tolo_user "
    rs.open sql,conn,1,3
  if not rs.eof  then 
     totalcount=rs.recordcount 
   while not rs.eof 
   emails=rs("email")
   Dim objMail
            Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
             With objMail
.From ="service@loogoo.com"
            .To = emails
            .Subject = "乐购会员周刊"
            .Body = m_strHTML
    .MailFormat=0
            .BodyFormat=0
.Send
            End With
            Set objMail = Nothing
    '   rs("counts")=rs("counts")+1
   rs.update
   rs.movenext
   wend 
   rs.close
  end if
  set rs=nothing
   response.write"<SCRIPT language=JavaScript>alert('成功发送邮件"&totalcount&"封!');"
       response.write"this.location.href='sub_manage.asp';</SCRIPT>"
  %>
</body>
</html>
有经验的朋友帮帮忙吧
关注
我看到别人发送的邮件当用foxmail接受,普通状态下是什么都没有,只有超文本才正常显示
是不是需要编辑CDONTS.dll这个动态链接库?
为什么没人理我?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘