saveinputset.asp

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

ASP
57 行
字号 
<!-- #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["Prompt"].innerText="";
		window.parent.document.all["btnSave"].disabled=false;
		window.parent.document.all["btnCancel"].disabled=false;
		alert(ErrDesc.value);
	}
	else
		window.parent.parent.close()
}
//-->
</SCRIPT>
</head>
<%
	dim WExcel
	set WExcel=server.CreateObject("WExcel.Sheet")

	dim i,Result
	dim myRequest,Err,ErrDesc
	
	ErrDesc=""
	Result=WExcel.BuildUploadRequest(Request.BinaryRead(Request.TotalBytes),myRequest,Err)
	if Result<>0 then
		if ubound(Err)>0 then
			ErrDesc="附件不符合要求，"
			for i=1 to ubound(Err)
				ErrDesc=ErrDesc & Err(i-1)
			next
		else
			ErrDesc="保存失败。"
		end if
	else
		dim SheetID,Ret
		SheetID=Request.Cookies("Temp")("SheetID")
		Ret=WExcel.SaveInputSet(cint(UserID),cint(SheetID),myRequest)
		if Ret=2 then
			ErrDesc="保存失败。数据表不存在，可能被其他人删除掉了，请检查。"
		elseif Ret=4 then
			ErrDesc="保存失败。"	'其它不明原因的失败
		end if
	end if
	CheckErr
	%>
	<BODY LANGUAGE=javascript onload="window_onload()">
		<input TYPE="hidden" NAME="ErrDesc" value="<%=ErrDesc%>">
	</BODY>
</HTML>

saveinputset.asp - 源码说明

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

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

⌨️ 快捷键说明

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