怎样能够发送以web页为正文的电子邮件（用asp程序写）

sharing 2003-11-19 10:01:02

快圣诞了，我正在做一个电子贺卡程序，想把制作完成的贺卡用邮件发送到好友的信箱里，可是我的网站空间很小，所以，想参照51job的个人简历发送，做一个打开邮件就能看见以正文形式出现的电子贺卡。
可是，我的水平有限。望各位高手不吝赐教。
有机会，我会请帮助我的高手吃饭。

...全文

120 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

sharing 2004-01-29

打赏
举报

<html>
<head>
<title>上传文件</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="site.css">
<script language=JavaScript>
function mysubmit(theform)
{
if(theform.image.value=="")
{
alert("请点击浏览按钮，选择您要上传的文件!")
theform.image.focus;
return (false);
}
else
{
str= theform.image.value;
strs=str.toLowerCase();
lens=strs.length;
extname=strs.substring(lens-4,lens);
if(extname!=".jpg" && extname!=".gif" && extname!=".swf" && extname!=".fla" && extname!=".psd" && extname!=".png" && extname!=".zip" && extname!=".rar")
{
alert("只能上传 JPG / GIF / SWF / FLA / PSD / PNG / ZIP / RAR 文件\n请选择正确的文件类型！");
return (false);
}
if (theform.image.size >100000)
{
alert("图片大小超过了限制!");
return (false);
}
}
return (true);
}
</script>
</head>
<body bgcolor="F2F2F2" leftmargin="0" topmargin="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<form method="post" action="imageupload.asp" enctype="multipart/form-data" name="loadimage" onSubmit="return mysubmit(this)">
<td><input type="file" name="image" class="editbox1"> <input type="submit" name="submit" value="上传" class="bottom">
　<span class="gray">类型：<font class="size">JPG GIF SWF FLA</font>，限制<font class="size">200K</font></span>
</td>
</form>
</tr>
</table>
</body>
</html>

dafei0320 2003-11-19

打赏
举报

内容直接写成HTML就行了

sharing 2003-11-19

打赏
举报

我马上试一下。谢谢各位的赐教。

好记忆不如烂笔头abc 2003-11-19

打赏
举报

各位大师，有没有办法调用:IE中“工具”/“邮件和新闻”/“发送网页”这项功能。

海鸥 2003-11-19

打赏
举报

楼主可以结帖了

lions911 2003-11-19

打赏
举报

各种邮件发送组件都有相应的属性来设定邮件发送的格式

通常有两种：纯文本和HTML

webdevelop 2003-11-19

打赏
举报

没错，内容直接写成HTML就行了

vivisogood 2003-11-19

打赏
举报

内容写成html就行了

海鸥 2003-11-19

打赏
举报

把邮件以HTML形式发出去,然后把你要显示的贺卡包含在正文中就行了
参考:

Set objCDO = Server.CreateObject("CDONTS.NewMail")
objcdo.MailFormat = 0
objcdo.BodyFormat = 0
objCDO.Importance = 0
objCDO.From = "master@hnci.com.cn"
objCDO.Subject = trim(replace(request.form("mailsubject"),"'","''"))
objCDO.Body = 这里为正文内容(可直接以HTML形式书写)
objCDO.To = rs("email")
objCDO.Send
Set objCDO = Nothing

sharing 2003-11-19