发送者信箱
<html>
<body>
<form method=post action=sendmail.asp>
输入发送者信箱：<input type="text" name="frommail">
<br>输入接受者信箱：<input type="text" name="tomail">
<!--输入抄送信箱：<input type="text" name="ccmail">
输入密件发送<input type="text" name="bbcmail">-->
<br>输入信件主题<input type="text" name="mailtitle">
<br>输入信件内容<textarea name="mailcontent"></textarea>
<br><input type="submit">
</form>
</body>
</html>
sendmail.asp
<%
Set Mymail = CreateObject("CDONTS.NewMail")
Mymail.From = request("frommail")
Mymail.To = request("tomail")
'Mymail.CC = request("ccmail")
'Mymail.BCC = request("bbcmail")
Mymail.Subject = request("mailtitle")
Mymail.Body = request("mailcontent")
Mymail.Importance = 2
Mymail.Send
Set Mymail = Nothing
response.write "success"
%>
<body>
<form method=post action=sendmail.asp>
输入发送者信箱：<input type="text" name="frommail">
<br>输入接受者信箱：<input type="text" name="tomail">
<!--输入抄送信箱：<input type="text" name="ccmail">
输入密件发送<input type="text" name="bbcmail">-->
<br>输入信件主题<input type="text" name="mailtitle">
<br>输入信件内容<textarea name="mailcontent"></textarea>
<br><input type="submit">
</form>
</body>
</html>
sendmail.asp
<%
Set Mymail = CreateObject("CDONTS.NewMail")
Mymail.From = request("frommail")
Mymail.To = request("tomail")
'Mymail.CC = request("ccmail")
'Mymail.BCC = request("bbcmail")
Mymail.Subject = request("mailtitle")
Mymail.Body = request("mailcontent")
Mymail.Importance = 2
Mymail.Send
Set Mymail = Nothing
response.write "success"
%>
