save.asp

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

ASP
51 行
字号 
<!-- #include file = "../../include/function.asp" -->
<%CheckUser()%>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function window_onload() {
	if (Exist.value=="1")
	{
		alert("数据表名重名。系统中已有相同名称的数据表，请更改后再保存。");
	}
	else
	{
		if (Result.value==0)
			window.parent.parent.close()
		else if (Result.value==3)
			alert("数据表太多，已超出 200 个，无法创建新数据表。");
		else
			alert("保存失败。");
	}
	window.parent.EnableButton();
	
}
//-->
</SCRIPT>
<HTML>
	<head>
	</head>
	<BODY LANGUAGE=javascript onload="return window_onload()">
	<%
		dim WExcel
		set WExcel=server.CreateObject("WExcel.System")
		NewRecord=Request.Form("NewRecord")
		dim Exist,Result
		if NewRecord<>"1" then
			RowID=Request.Form("RowID")
			Exist=WExcel.CheckSheetExist(cstr(NewRecord),clng(RowID))
			if Exist<>"1" then
				Result=WExcel.SaveSheetCaption(cint(UserID),cstr(NewRecord),clng(RowID))
			end if
		else
			Exist=WExcel.CheckSheetExist(cstr(NewRecord))
			if Exist<>"1" then
				Result=WExcel.SaveSheetCaption(cint(UserID),cstr(NewRecord))
			end if
		end if
		CheckErr
	%>
		<input TYPE="hidden" NAME="Exist" value="<%=Exist%>">
		<input TYPE="hidden" NAME="Result" value="<%=Result%>">
	</BODY>
</HTML>

save.asp - 源码说明

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

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

⌨️ 快捷键说明

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