<%
if Cint(request("send"))=1 then
on error resume next
set mymail=server.CreateObject ("CDONTS.Newmail")
mymail.mailformat=0
mymail.bodyformat=0
mymail.from =request("from")
mymail.to =request("to")
mymail.BCC =request("bbc")
mymail.subject =request("subject")
mymail.body =request("body")
mymail.send
if err.number<>0 then
response.write err.description
response.end
end if
set mymail=Nothing
response.write "邮件已成功发送到"+request("to")
response.end
end if
%>
<html>
<body>
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#6699FF">
<form method="post">
<tr bgcolor="#E7E7CB">
<td width="20%" height="26">发件人：</td>
<td width="80%"><input name="from" type="text"></td>
</tr>
<tr bgcolor="#E7E7CB">
<td height="25">收件人：</td>
<td><input name="to" type="text"></td>
</tr>
<tr bgcolor="#E7E7CB">
<td height="23">密送地址：</td>
<td><input name="bbc" type="text"></td>
</tr>
<tr bgcolor="#E7E7CB">
<td height="24">邮件标题：</td>
<td><input name="subject" type="text" size="50"></td>
</tr>
<tr bgcolor="#E7E7CB">
<td height="27">邮件内容：</td>
<td><textarea name="body" cols="60" rows="10"></textarea></td>
</tr>
<tr bgcolor="#E7E7CB">
<td height="28"> </td>
<td>
<input type="hidden" value="1" name="send">
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置"></td>
</tr>
</form>
</table>
</body>
</html>
if Cint(request("send"))=1 then
on error resume next
set mymail=server.CreateObject ("CDONTS.Newmail")
mymail.mailformat=0
mymail.bodyformat=0
mymail.from =request("from")
mymail.to =request("to")
mymail.BCC =request("bbc")
mymail.subject =request("subject")
mymail.body =request("body")
mymail.send
if err.number<>0 then
response.write err.description
response.end
end if
set mymail=Nothing
response.write "邮件已成功发送到"+request("to")
response.end
end if
%>
<html>
<body>
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#6699FF">
<form method="post">
<tr bgcolor="#E7E7CB">
<td width="20%" height="26">发件人：</td>
<td width="80%"><input name="from" type="text"></td>
</tr>
<tr bgcolor="#E7E7CB">
<td height="25">收件人：</td>
<td><input name="to" type="text"></td>
</tr>
<tr bgcolor="#E7E7CB">
<td height="23">密送地址：</td>
<td><input name="bbc" type="text"></td>
</tr>
<tr bgcolor="#E7E7CB">
<td height="24">邮件标题：</td>
<td><input name="subject" type="text" size="50"></td>
</tr>
<tr bgcolor="#E7E7CB">
<td height="27">邮件内容：</td>
<td><textarea name="body" cols="60" rows="10"></textarea></td>
</tr>
<tr bgcolor="#E7E7CB">
<td height="28"> </td>
<td>
<input type="hidden" value="1" name="send">
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置"></td>
</tr>
</form>
</table>
</body>
</html>
