managemail.asp

来自「一套完整的学生课程管理系统」· ASP 代码 · 共 48 行

<!-- #include file="utility/check.asp" -->
<!-- #include file="utility/JMail.asp" -->

<%
	'****************************************
	'目的：			发送邮件
	'开始时间：		2005-6-8 9:16
	'最后修改时间：	2005-6-8 9:16
	'编写人：		某某某
	'****************************************
		
	'首先检查是否有权限
	'也就是用户是否通过审核
	CheckFlag(1)
	
	'定义相关变量
	dim mailSubject
	dim mailTo
	dim mailContent
	
	mailSubject = Request.Form("mailSubject")
	mailTo = Request.Form("mailTo")
	mainContent = Request.Form("mailContent")
	
	'检查内容是否填充完整
	if(mailSubject = "") then
		Alert("请填写邮件主题！")
		GoBack()
		Response.end
	elseif(mailTo = "") then
		Alert("请填写收件人地址")
		GoBack()
		Response.end
	elseif(mailContent ="") then
		Alert("请填写邮件内容")
		GoBack()
		Response.End		
	end if
		
	'过滤Html字符
	mailContent = HtmlEncode2(mailContent)
	
	'调用发送邮件过程
	SendMail(mailTo,mailSubject,mailContent)
	Alert("邮件发送成功，请继续其他操作！")
	Go("welcome.htm")
	
%>