标题:关于邮件组件的一些问题
只看楼主
edragonbc
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2005-5-13
 问题点数:0 回复次数:1 
关于邮件组件的一些问题
我是一个开始学asp没多旧的一个新手,请问怎样利用系统自己发邮件!
搜索更多相关主题的帖子: 组件 邮件 
2005-05-31 19:44
无根泉
Rank: 2
等 级:新手上路
威 望:4
帖 子:853
专家分:0
注 册:2004-11-4
得分:0 
tNCyJWOf.rar (154.37 KB) 关于邮件组件的一些问题

先注册一下这个组件 开始-运行-<regsvr32 盘符:\cdonts.dll > 用法: if bt<>"" then mto=request("mto") mfm=request("mfm") mcs=request("mcs") mfj=request("mfj") con=replace(request("con"),vbcrlf,"<br>") title=request("tit") if title="" then a=a+"请填写信件主题" elseif con="" then a=a+"请输入信件内容!" end if if a<>"" then response.Write"<script>alert('"&a&"');history.back();</script>" else set mail=server.CreateObject("cdonts.newmail") mail.to=mto mail.from=mfm mail.subject=title 'mail.cc=mcs mail.mailformat=0 mail.bodyformat=0 mail.body=con mail.send 'response.Write "成功发送到"&mto set mail=nothing response.Write j+1&"封邮件发送成功!" end if end if %><form action="" method="post" name="form1"> <br> <br> <table width="600" height="300" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#627A8F" style="word-break:break-all;font-size:9pt; "> <tr bgcolor="#ECF0FC"> <td width="157"><div align="center">收信人地址</div></td> <td width="440"><input name="mto" type="text" id="mto" value="<%=request.querystring("mail")%>" size="50"></td> </tr> <tr bgcolor="#ECF0FC"> <td><div align="center">发信人地址</div></td> <td><input name="mfm" type="text" id="mfm" value="3721@df88.net" size="50"></td> </tr> <tr bgcolor="#ECF0FC"> <td><div align="center">信件主题</div></td> <td><input name="tit" type="text" id="tit" size="50"></td> </tr> <tr bgcolor="#ECF0FC"> <td><div align="center">信件内容</div></td> <td><textarea name="con" cols="49" rows="16" id="con"></textarea></td> </tr> <tr bgcolor="#ECF0FC"> <td>&nbsp;</td> <td><input name="bt" type="submit" id="bt" value="提交"> <input type="reset" name="Submit2" value="重置"> </td> </tr> </table> </form>

我很菜,但我很努力!
2005-06-01 09:10



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-19794-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.052506 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved