各位兄弟帮帮忙啊,这段代码为什么上传使用没反应啊。还是发不出邮件啊

Rachel82 2003-10-16 04:40:48

<%
If Request("Send") <> Empty Then
Set mail = Server.CreateObject( "CDONTS.NewMail" )
mail.To = Request("To")
mail.From = Request("From")
mail.Subject = Request("Subject")
mail.Body = Request("Body")
mail.Send
Response.Write "邮件已送出! "
Else
mail = request("mail")
%>
<HTML>
<BODY>

<FORM Action=send_mail.asp Method=POST>
<TABLE Border=0 cellpadding="3" cellspacing="0" align="center">
<TR>
<TD>收件人:</TD>
<TD>
<INPUT Type=Text Name="To" Size=40 value="<%=mail%>">
</TD>
</TR>
<TR>
<TD>发件人:</TD>
<TD>
<INPUT Type=Text Name="From" Size=40>
</TD>
</TR>
<TR>
<TD>主题:</TD>
<TD>
<INPUT Type=Text Name="Subject" Size=40>
</TD>
</TR>
<TR>
<TD>内容:</TD>
<TD>
<TEXTAREA Name="Body" Rows=8 Cols=40></TEXTAREA>
</TD>
</TR>
<TR>
<TD colspan="2">
<div align="center">
<input type=Submit value=" 发 送 " name="Send">
</div>
</TD>
</TR>
</TABLE>
</FORM>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" align="center"><a href="http://www.k666.com">k666软件园</a></td>
</tr>

<%
End If
%>
</BODY>
</HTML>
...全文
32 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
happymingnan 2003-10-16
  • 打赏
  • 举报
回复
一些支持asp的空间,可能并不支持上面的CDONTS.NewMail,
他们是为了防止你利用 他们的服务,乱发垃圾邮件。
程序没有错,可不能发送。
Rachel82 2003-10-16
  • 打赏
  • 举报
回复
兄弟们,这上面有什么错误吗

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧