代码如下：
<%
'email.asp
sub sendmail(fromwho,towho,subject,body)
dim mymail
set mymail=server.createobject("CDONTS.Newmail")
mymail.from=fromwho
mymail.to=towho
mymail.subject=subject
mymail.body=body
mymail.send
set mymail=nothing
end sub
fromwho=trim(request.form("fromwho"))
towho=trim(request.form("towho"))
subject=trim(request.form("subject"))
body=trim(request.form("body"))
if towho<>"" then
sendmail fromwho,towho,subject,body
end if
%>
<html>
<head><title>email</title></head>
<body>
<form method=post action="<%=request.servervariables("SCRIPT_NAME")%>">
<br>To:<input name=towho size=40>
<br>From:<input name=fromwho size=40>
<br>Subject:<input name=subjectt size=40>
<br><textarea name=body cols=40 rows=5></textarea>
<br><input type=submit value=SendMail>
</form>
</body></html>
