<!--
This sample script uses the CDO for NTS Library to
send email to a specific user.
Leon Braginski & Matt Powell (c)
Note: "To" is a reserved word, so we added an underscore to it.
-->
<%@ 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"
%>
设为主页
收藏本站
相关文章: