UC知道看看下面这个自动寄信服务的网页代码为什么不能运行?
来源：百度知道 编辑：UC知道 时间：2024/05/21 12:25:18
输入页:
<HTML>
<HEAD>
<TITLE>自动寄信服务</TITLE>
<META HTTP-EQUIV="CONTENT-TYPE" CONTENT="TEXT/HTML; CHARSET=gb2312">
</HEAD>
<SCRIPT LANGUAGE = "VBSCRIPT">
<!--
Sub CheckData()
If AutoTransfer.FromWho.Value = Empty Then
Window.Alert "您忘了填写“寄件人姓名”。"
Exit Sub
End if
If AutoTransfer.FromMail.Value = Empty Then
Window.Alert "您忘了填写“寄件人电子邮件信箱”。"
Exit Sub
End if
If AutoTransfer.ToWho.Value = Empty Then
Window.Alert "您忘了填写“收件人姓名”。"
Exit Sub
End if
If AutoTransfer.ToMail.Value = Empty Then
Window.Alert "您忘了填写“收件人电子邮件信箱"
Exit Sub
End if
If AutoTransfer.Subject.Value = Empty Then
Window.Alert "邮件没有标题。"
<HTML>
<HEAD>
<TITLE>自动寄信服务</TITLE>
<META HTTP-EQUIV="CONTENT-TYPE" CONTENT="TEXT/HTML; CHARSET=gb2312">
</HEAD>
<SCRIPT LANGUAGE = "VBSCRIPT">
<!--
Sub CheckData()
If AutoTransfer.FromWho.Value = Empty Then
Window.Alert "您忘了填写“寄件人姓名”。"
Exit Sub
End if
If AutoTransfer.FromMail.Value = Empty Then
Window.Alert "您忘了填写“寄件人电子邮件信箱”。"
Exit Sub
End if
If AutoTransfer.ToWho.Value = Empty Then
Window.Alert "您忘了填写“收件人姓名”。"
Exit Sub
End if
If AutoTransfer.ToMail.Value = Empty Then
Window.Alert "您忘了填写“收件人电子邮件信箱"
Exit Sub
End if
If AutoTransfer.Subject.Value = Empty Then
Window.Alert "邮件没有标题。"
上面的问题一下子写不完.在这里补充一下,共分两个页,上面的是显示页,下面的是调用页:
调用页:
<%
'取得Index.htm网页中的表单数据
FromWho = Request("FromWho")
FromMail = Request("FromMail")
ToWho = Request("ToWho")
ToMail = Request("ToMail")
Subject = Request("Subject")
Content = Request("Content")
'建立一个CDONTS.NewMail对象
Set objMail = Server.CreateObject("CDONTS.NewMail")
'设置寄件人
objMail.From = FromWho & "<" & FromMail & ">"
'设置收件人
objMail.To = ToWho & "<" & ToMail & ">"
'设置邮件主题
objMail.Subject = Subject
'设置邮件内容
objMail.Body = Content
'将邮件格式设成HTML，若这两行省略，则使用默认的TXT格式。
objMail.BodyFormat = 0
objMail.MailFormat = 0
'寄出邮件
objMail.Send
Response.Write "您的邮件已经寄出去了。"
%>
请知道为什么不能运行的朋友告之:
看了，为什么