28,407
社区成员
发帖
与我相关
我的任务
分享发送电子邮件的程序哪里有错误
<html>
<head>
<title>发送电子邮件</title>
</head>
<body>
<h2 align="center">发送电子邮件</h2>
<center>
<table border="0" width=90%>
<form method="post" action="" name="form1">
<tr><td>收件人</td><td><input type="text" name="receipt" size="20">**</td></tr>
<tr><td>发件人</td><td><input type="text" name="sender" size="20">**</td></tr>
<tr><td>主题</td><td><input type="text" name="subject" size="35">**</td></tr>
<tr><td>内容</td><td><input type="text" name="body" rows="4" cols="60" wrap="soft"></textarea></td></tr>
<tr><td>附件</td><td><input type="file" name="file" size="25"></td></tr>
<tr><td></td><td><input type="submit" value="发送" size="20"></td></tr>
</form>
</table>
<%
Set cdomail = Server.CreateObject("CDONTS.NewMail") '建立邮件对象
cdomail.Subject =request.form("subject")
cdomail.From = request.form("sender") '发件人的地址
cdomail.To = request.form("receipt") '收件人的地址
cdomail.Body = request.form("body")
cdomail.Send '执行发送
%>
</center>
<head>
<title>发送电子邮件</title>
</head>
<body>
<h2 align="center">发送电子邮件</h2>
<center>
<table border="0" width=90%>
<form method="post" action="" name="form1">
<tr><td>收件人</td><td><input type="text" name="receipt" size="20">**</td></tr>
<tr><td>发件人</td><td><input type="text" name="sender" size="20">**</td></tr>
<tr><td>主题</td><td><input type="text" name="subject" size="35">**</td></tr>
<tr><td>内容</td><td><input type="text" name="body" rows="4" cols="60" wrap="soft"></textarea></td></tr>
<tr><td>附件</td><td><input type="file" name="file" size="25"></td></tr>
<tr><td></td><td><input type="submit" value="发送" size="20"></td></tr>
</form>
</table>
<%
Set cdomail = Server.CreateObject("CDONTS.NewMail") '建立邮件对象
cdomail.Subject =request.form("subject")
cdomail.From = request.form("sender") '发件人的地址
cdomail.To = request.form("receipt") '收件人的地址
cdomail.Body = request.form("body")
cdomail.Send '执行发送
%>
</center>
...全文
请发表友善的回复…
发表回复
