sendmail.asp

来自「学生档案与成绩管理（1）学生档案管理：记录每个学生的档案信息」· ASP 代码 · 共 41 行

ASP
41 行
字号 
<!-- #include file = "../include/asphead.asp" -->
<!-- #include file = "../include/function.asp" -->
<%CheckUser()%>
<link href="../include/main.css" rel="stylesheet" type="text/css">
<HTML>
<head>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function window_onload() {
	if (ErrDesc.value!="")
	{
		window.parent.document.all["btnSave"].disabled=false;
		window.parent.document.all["btnCancel"].disabled=false;
		alert(ErrDesc.value);
	}
	else
	{
		alert("已发送。");
		window.parent.parent.close()
	}
}
//-->
</SCRIPT>
</head>
<%
	dim WExcel
	set WExcel=server.CreateObject("WExcel.Sheet")

	dim Ret,ErrDesc
	ErrDesc=""
	Ret=WExcel.SendMail(cint(UserID),ErrDesc)
	if Ret=1 then
		ErrDesc="发送失败，请系统管理员检查发送邮件服务器是否正常运行、登录帐号是否正确等。" & ErrDesc
	end if
	CheckErr
	%>
	<BODY LANGUAGE=javascript onload="window_onload()">
		<input TYPE="hidden" NAME="ErrDesc" value="<%=ErrDesc%>">
	</BODY>
</HTML>

sendmail.asp - 源码说明

本页面展示了「学生档案与成绩管理（1）学生档案管理：记录每个学生的档案信息」中的 sendmail.asp 源码文件，采用 ASP 编程语言编写，共 41 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与记录相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?