应用开发与实践第10章邮件收发组件课案.pptVIP

msg.Body = Request.Form(mailbody) 信件正文 msg.Send (Request.Form(smtpaddress)) SMTP服务器地址（企业邮局地址） msg.close() 关闭Message对象 set msg = nothing 释放Message对象所占用资源 If err0 Then 如果程序执行过程中，出现错误则弹出警告对话框 Response.Write(script language=JavaScriptalert(邮件发送失败,请核实输入内容是否准确!);history.back(); /script) Else 如果未见异常，则弹出发送成功的对话框 Response.Write(script language=JavaScriptalert(使用Jmail组件发送邮件成功!);window.location. href= jmail.asp;/script) End If End If % 注意： 如果在本机安装了POP3服务器，进行本地测试时应将以上代码中的msg.MailServerPassword = request.Form(mima)注释掉（即无须输入邮箱的登录密码），否则程序将不能正常运行。 10.3 综合实例——使用Jmai