用ASP程序发送HTML格式邮件的问题!

原创 2005年05月28日 22:21:00
用ASP程序发送HTML格式邮件的问题! [本页面推荐在1024x768分辩率下浏览] 文章类别:Javascript技术讨论 网站目录: 网站首页 —> Javascript技术讨论 转载自:www.51js.com -------------------------------------------------------------------------------- 作者: 盗帅留香 时间: 2003-7-2 19:58 标题: 用ASP程序发送HTML格式邮件的问题! 我用WebEasyMail的组件发送HTML格式邮件(其实什么组件不重要) mailsend.EM_HTML_Text = "…………" "…………"这一段是邮件正文,有好长的一段,而且其中除了有HTML代码外还有ASP代码,请问各路高手怎么样才能在里面加入ASP代码? 或者怎么样读取另一页的源代码作为邮件的内容来发送? -------------------------------------------------------------------------------- 作者: netasp 时间: 2003-7-2 21:16 你是说发送用邮件ASP代码,而不是ASP执行后生成的HTML代码? ASP代码中的<%不能直接赋给变量或对象的属性,得变个方法,比如 mailsend.EM_HTML_Text = "<" & "%" &vbcrlf & "ASP代码" & "%" & ">" 也就是说要把<%和%>拆开才行,其他的就没什么特别的了,跟普通的字符串赋值没什么区别。 -------------------------------------------------------------------------------- 作者: 盗帅留香 时间: 2003-7-3 08:13 如果这样的话,那里面的ASP语句还能运行吗?比如里面有这么一段: <% if not rs.eof then pro_name = request.cookies("pro_name") else response.write "Nothing!!!" end if %> -------------------------------------------------------------------------------- 作者: netasp 时间: 2003-7-3 10:29 我是说如果你要以邮件方式发送ASP的代码,不是让ASP代码执行才那么做,自然其中的代码不会执行。 -------------------------------------------------------------------------------- 作者: 盗帅留香 时间: 2003-7-3 12:39 那怎么读取网页的源文件呢? -------------------------------------------------------------------------------- 作者: netasp 时间: 2003-7-3 13:53 如果要读取的网页存放在本地服务器上,可以用FSO来读文件。 dim fso,content set fso=server.createobject("scripting.filesystemobject") set f=fso.opentextfile(server.mappath("xxx.htm"),1) content=f.readall() f.close set f=nothing set fso=nothing 如果在远程,可以用XMLHTTP来读(实际上是抓或者偷),两个函数: function GetSourceInfo(byval url) dim xmlhttp,xmlget,bgpos,endpos Set xmlhttp = CreateObject("Msxml2.ServerXMLHTTP") With xmlhttp .Open "GET", url, False .Send if .status<>200 then xmlget="error" else xmlget = bin2str(.responseBody) end if End With set xmlhttp = nothing GetSourceInfo=xmlget end function Function bin2str(binstr) Const adTypeBinary = 1 Const adTypeText = 2 Dim BytesStream,StringReturn Set BytesStream = Server.CreateObject("ADODB.Stream") '建立一个流对象 With BytesStream .Type = adTypeText .Open .WriteText binstr .Position = 0 .Charset = "GB2312" .Position = 2 StringReturn = .ReadText .close End With Set BytesStream = Nothing bin2str = StringReturn End Function 假设要取http://www.abc.com/index.htm的内容,那就用 dim content content=GetSourceInfo("http://www.abc.com/index.htm") 就可以了。 -------------------------------------------------------------------------------- 作者: 盗帅留香 时间: 2003-7-3 15:00 我想应该可以解决我的问题了,只不过烦琐一点而已。谢谢! -------------------------------------------------------------------------------- 作者: 盗帅留香 时间: 2003-7-3 17:49 引用: netasp 于 2003-7-3 01:53 PM 写道: 如果要读取的网页存放在本地服务器上,可以用FSO来读文件。 dim fso,content set fso=server.createobject("scripting.filesystemobject") set f=fso.opentextfile(server.mappath("xxx.htm&qu ... 问题又来了!!! ASP文件运行后,所有的ASP代码应该编译为HTML格式才对,我用上面的函数来读,竟然读到是未编译的原文件!!!但是读取远程的ASP文件就是编译后的。 有什么办法可以读到编译后的源代码? 注:我将上面的XXX.htm换成了XXX.asp -------------------------------------------------------------------------------- 作者: netasp 时间: 2003-7-3 18:57 不要用FSO,用第二种方式取即可。 -------------------------------------------------------------------------------- 作者: 盗帅留香 时间: 2003-7-3 19:25 用第二种方法提示“第六行出错!” 第六行是: .Open "GET", url, False -------------------------------------------------------------------------------- 作者: 盗帅留香 时间: 2003-7-3 19:33 在content=GetSourceInfo("http://www.abc.com/index.htm")里填写完整地址后,又提示第七行出错—无法与服务器建立连接! -------------------------------------------------------------------------------- 作者: 盗帅留香 时间: 2003-7-3 19:36 只填写index.asp就提示: msxml3.dll 错误 '80072ee6' URL 未使用可识别的协议 /product/sub_send.asp,行6 第六行是: .Open "GET", url, False 第七行是:.Send -------------------------------------------------------------------------------- 作者: netasp 时间: 2003-7-3 19:40 用完整地址没有问题啊,我刚刚才测试过的。是不是你的服务器有问题? -------------------------------------------------------------------------------- 作者: netasp 时间: 2003-7-3 19:42 如下地址是测试结果: http://www.98062.com/test/k.asp k.asp抓的是k2.asp的内容,k2.asp代码为: <% response.write "ssssssssssssssssssss" %> -------------------------------------------------------------------------------- 作者: 盗帅留香 时间: 2003-7-3 19:43 服务器系统是 2000 ADV SERVER,应该没问题吧? -------------------------------------------------------------------------------- 作者: 盗帅留香 时间: 2003-7-3 19:44 k.ap 和 k2.asp是放在同一个地方吗? -------------------------------------------------------------------------------- 作者: 盗帅留香 时间: 2003-7-3 19:46 可以将k.asp的代码贴出来看看吗? 你的k.asp和k2.asp是一个什么样的关系? 是运行k2.asp的同时就弹出k.asp来读吗? [ 本贴由 盗帅留香 于 2003-7-3 19:51 最后编辑 ] -------------------------------------------------------------------------------- 作者: netasp 时间: 2003-7-3 20:45 两个文件放在同一个目录下,你可以分别查看: [url]http://www.98062.com/test/k.asp[url] [url]http://www.98062.com/test/k2.asp[url] k.asp代码: <% function GetSourceInfo(byval url) dim xmlhttp,xmlget,bgpos,endpos Set xmlhttp = CreateObject("Msxml2.ServerXMLHTTP") With xmlhttp .Open "GET", url, False .Send if .status<>200 then xmlget="error" else xmlget = bin2str(.responseBody) end if End With set xmlhttp = nothing GetSourceIn 验证码确认确认验证码 请输入图片上的 6 位数字.

使用Formail发送html格式的中文主题邮件,解决乱码问题等

查了很多资料都没有很好的解决发送中文主题的html格式的邮件,要解决的乱码问题,经过摸索,最后终于搞定,且可使用shell脚本,实现多收件人发送相对比较简单。使用formail发送html格式的邮件,...

asp.net 发送HTML格式邮件及发送Html模版邮件

今天闲来无事,动手用asp.net做了个发送HTML格式邮件及发送Html模版邮件的小程序 用的是网易126邮箱的smtp服务器,在126邮箱中可以设置,不过一般已经默认开通了 为了编码的简洁与程...

PHP邮件一键发送支持HTML格式

  • 2017年11月07日 15:35
  • 12KB
  • 下载

发送HTML格式的邮件

  • 2008年11月19日 16:26
  • 11.41MB
  • 下载

如何使用 LotusScript 代理来发送 HTML 格式的邮件

Technote (troubleshooting) 问题 如何使用 LotusScript 来发送 HTML 格式的邮件消息? 在 Notes 和 Domino Designer 6...

如何使用LotusScript代理来发送HTML格式的邮件

产品:Lotus Domino 平台:AIX, HP-UX, i5/OS, Linux, Solaris, Windows, z/OS 软件版本:6.0, 6.5 问题描述: 如何使用...
  • hanle18
  • hanle18
  • 2011年10月17日 14:03
  • 515

Linux自动下发送HTML格式并带附件的邮件

引: 进入BEIDOU组的第一个项目就是实现一个统计报表自动发送邮件的应用,利用Shell脚本来做,期间回顾了awk,sed等文本过滤工具,crontab计划任务,还学会了在Linux下发送HT...
  • wisgood
  • wisgood
  • 2014年03月18日 15:55
  • 2673
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用ASP程序发送HTML格式邮件的问题!
举报原因:
原因补充:

(最多只允许输入30个字)