xccdonts.asp

这是ASP使用的经典例子,非常适合于学习使用

<%'*******************************************************************************
  '* Copyright 1999 Xcent, Inc. www.xcent.com                                    *
  '*******************************************************************************

If Request.Form.Count = 0 Then
   %> <H1>CDONTS Test Submission Form</H1><FORM METHOD="POST" ACTION="XcCDONTS.asp">
      <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0">
      <TR><TD>To:&nbsp;</TD><TD><INPUT TYPE="TEXT" NAME="TO" SIZE="30"></TD></TR>
      <TR><TD>From:&nbsp;</TD><TD><INPUT TYPE="TEXT" NAME="FROM" SIZE="30" VALUE="[e-mail]"></TD></TR>
      <TR><TD>Subject:&nbsp;</TD><TD><INPUT TYPE="TEXT" NAME="SUBJECT" SIZE="40"></TD></TR>
      <TR><TD VALIGN="TOP">Body:&nbsp;</TD><TD><TEXTAREA NAME="BODY" ROWS="5" COLS="40"></TEXTAREA></TD></TR>
      <TR><TD>&nbsp;</TD><TD><INPUT TYPE="SUBMIT" VALUE="Send Message">&nbsp;</FORM></TD></TR>
      </TABLE>
   <%
Else
   Dim objCDO
   On Error Resume Next
   Set objCDO = Server.CreateObject("CDONTS.NewMail")
   If Err.Number = 0 Then
      objCDO.To = Request.Form("TO")
      objCDO.From = Request.Form("FROM")
      objCDO.Subject = Request.Form("SUBJECT")
      objCDO.Body = Request.Form("BODY")
      objCDO.AttachFile( Server.MapPath(".\TestFile.txt") )
      objCDO.Send
      Set objCDO = Nothing
      %><H1>Message Sent</H1>
        <B>To: </B> <% = Server.HTMLEncode(Request.Form("TO")) %><BR>
        <B>From: </B> <% = Server.HTMLEncode(Request.Form("FROM")) %><BR>
        <B>Subject: </B> <% = Server.HTMLEncode(Request.Form("SUBJECT")) %><BR>
        <HR> <% = Server.HTMLEncode(Request.Form("BODY")) %><HR><BR>
        <A HREF="XcCDONTS.asp">Send another message</A><P>
      <%
   Else
      Response.Write "<H1>Attention</H1>The CDONTS object could not be created."
   End If
End If
%>
<FONT SIZE="1"><EM>Transmitted: <% = Now %><BR></EM></FONT>
<FONT SIZE="2"><CENTER><A HREF="http://www.xcent.com">Copyright 1999 Xcent, Inc. All rights reserved.</A></CENTER></FONT>