在ASP中,我想实现如本论坛的自动回复功能应该怎样实现?(100分)

  • 主题发起人 主题发起人 delphi_learn
  • 开始时间 开始时间
D

delphi_learn

Unregistered / Unconfirmed
GUEST, unregistred user!
如果有人回答的问题,然后自动给发言者发Email功能是怎样实现,请各位大虾指点!
 
呵呵,如果是SQL SERVER的话,写个触发器,用SQL MAIL,就搞点了
 
不用触发器的方法有么?
 

1.IIS4的SMTP.SMTP服务安装后,在你的system32目录
下会有一个文件叫CDONTS.DLL。请参考下面的源代码:
<%
Dim MailObject
Set MailObject = Server.CreateObject("CDONTS.NewMail")
att_file="c:/attachments/StandardPolicy.txt"
f_name="Policy.txt"
MailObject.From="stelede@ozemail.com.au"
MailObject.To="j_smith@zentus.com"
MailObject.Subject="Subject Text Here"
MailObject.Body="Body Text Here"
MailObject.AttachFile att_file,f_name
MailObject.Send
set MailObject = nothing
%>

<%Set objNewMail = CreateObject("CDONTS.NewMail")
'添加附件
objNewMail.AttachFile("//server/schedule/sched.xls", "SCHED.XLS")
objNewMail.Send("me@company.com", "you@company.com", "Hello", _
"I sent this in 3 statements!", 0) ' low importance
Set objNewMail = Nothing ' canNOT reuse it for another message
%>
给分把
 
用CDO,8行字搞定
 
在CDONTS.DLL中,包含了一个Email发送功能的对象,你可以想使用ASP的内置对象一样的使用它,
发送Email是非常Easy的事情,看看"ASP揭密"这本书吧!当然使用其它的第三方空间也可以实现
此功能,比如ASPMail
 
在提交后的页面加上下面的代码:
<%
dim mail=Server.CreateObject("CDONTS.newmail")
mail.from="发信人的E-MAIL"
mail.to="收件人的E-MAIL"
mail.subject="主题"
mail.body="要发过去的内容"
mail.send
set mail=nothing
%>
你要把收件人的E-MAIL从上个页面传过来,然后用一个循环语句把这些E-MAIL加到上面代码
中的“mail.to”中即可。
 
各位大虾:能否可以举个实例,让俺更清楚!
 
把下面的各变量替换为你的值就可以了:
set nm = Server.CreateObject("CDONTS.NewMail")
nm.MailFormat = 0 '是否使用MIME格式
nm.BodyFormat = 0 '是否可包含HTML
nm.From = sFrom
nm.To = sTo
nm.Cc = sCc
nm.Subject = sSubject
nm.Body = sBody
nm.Send
set nm = nothing
 
delphi_learn:如果还想接着讨论请定期提前自己的帖子,如果不想继续讨论请结束帖子。
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部