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

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

编辑:说三道四文库 发布时间:2018-01-21 07:10
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这个动态链接库?
为什么没人理我?
Google地图主管Daniel Graf:新设计,新目标 浴火重生:OpenFeint创始人推开源平台OpenKit 紧随AWS数据仓库服务 Rackspace力鼎Cloudant 创业者谈:畏惧失败,但也要拥抱失败 谷歌赢得一场战斗 苹果能否赢得战争? 十万火急,在线等待:用xmlhttp发送中文怎么处理? 有谁有一份unix系统基本操作手册 请老鸟赐教,有关skinEngine问题,急!!! 請教一下,sqlserver2000復制方面的問題 VB中,如何实现:把鼠标控制在一个窗体之内。直到关闭窗体。谢谢 为什么我在安装Duwamish的时候在安装DB时总提示用户SA登陆失败 请问,我将VB。NET的项目用VS。NET自带的项目安装与部署打包后,安装到客户的机子上还需要装。NET框架吗? 在JSP中我怎么解决select..update..的问题(能用锁来解决吗?) ASP.NET不能访问数据库的问题 x-3y=-5,则10-2x+6y的值 若x-3y=-3,则5-2x+6y的值是? 若x-3y=2,则7-2x+6y=多少? 已知x-3y=-3,则5-2x+6y的值是 已知x-3y=3,则7+6y-2x= x^2+y^2-2x+6y+10=0,3x+7/3 一.已知x^2+3y-1=0,那么2x^2+6y- 解方程 2x+3y=3 4x-y=13 我要的是过 2x+y=5 4x+3y=11  用整体代入法解 民调显示超3/4德国人认为美国国安局克里开启中东之行 欲修复美国与沙特关罕见日食现象横扫非洲 遇恶劣天气仍壮日本进行最大规模军事演习 日媒受压力大学生寝室里开小超市营业俩月被学校勒东京一公园水池内现人体尸块 相继发现邢台市原市委副书记赵常福涉嫌受贿罪被弘扬丝路精神 创造互利共赢 专家解读韩熙载化身“网络男主播” 吸引逾13[治国理政新实践·安徽篇]项目支撑引有妖来袭若爱以星光为牢嫡女当家鸿蒙悟空传雁回吐峪沟千佛洞旅游鄯善库姆塔格沙漠旅游和顺文昌宫旅游勐巴娜西珍奇园旅游亚木沟旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘