我在学习ASP,照相关资料写了一个关于自动寄信的页子,运行时未出现报错,可是在信箱中就是收不到东西,请大家帮忙看看错误在哪里?
<% @LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>
自动寄信服务<%
Dim ToWho,ToMail,FromWho,FromMail,Subject,Content
ToWho=Request("ToWho")
ToMail=Request("ToMail")
FromWho=Request("FromWho")
FromMail=Request("FromMail")
Subject=Request("Subject")
Content=Request("Content")
Dim objMail
Set objMail=Server.CreateObject("CDONTS.NewMail")
objMail.To=ToMail
objMail.From=FromMail
objMail.Subject=Subject
objMail.Body=Content
objMail.BodyFormat=0
objMail.MailFormat=0
objMail.Send
Response.Write "您的邮件已经寄出去了。
<<< 单击这里返回 >>>"
Set objMail=Nothing
%>