附件：sendmail.asp

<%@ LANGUAGE = "VBScript" %>
<%
If (Request.ServerVariables ("REQUEST_METHOD") = "POST") then
    From = Request.Form("from")
    To_ = Request.Form("to")
    Subject = Request.Form("subject")
    Body = Request.Form("body")
else
    ' Assume it is GET
    From = Request.QueryString("from")
    To_ = Request.QueryString("to")
    Subject = Request.QueryString("subject")
    Body = Request.QueryString("body")
end if
Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
objNewMail.Send From, To_, Subject, Body
Set objNewMail = Nothing
Response.Write "Message was sent"
%>