IIS中有一个组件CDONTS（Collaboration Data Objects for Windows NT server）可以用来发送邮件。ASP编写程序如下：

1

2

3

4

5 发邮件

6

7

8 <%

9 dim strname,strsubject,strquery,strsender,strfile

10 strname=trim(request.form("recivename"))

11 strsubject=trim(request.form("subject"))

12 strquery=trim(request.form("message"))

13 strsender=trim(request.form("sender"))

14 strfile=trim(request.form("file"))

15 if (strname""and strsubject"" and strquery"" and strsender"") then

16 dim objmail

17 set objmail=server.createobject("cdonts.newmail")

18 objmail.from=strsender

19 objmail.to=strname

20 objmail.subject=strsubject

21 objmail.body=strquery

22 if strfile"" then

23 objmail.attachfile strfile

24 end if

25 objmail.send

26 response.write "successful, thank you!"

27 set objmail=nothing

28 else

29 %>

30 发邮件

31