📄 save.asp

📁 学生档案与成绩管理（1）学生档案管理：记录每个学生的档案信息

💻 ASP

字号:

<!-- #include file = "../../../include/function.asp" -->
<%CheckUser()%>
<HTML>
<HEAD>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function window_onload() {
	if (DictExist.value!="1")
		alert("保存失败。选项字典不存在，可能被其他人删除掉了，请检查。");
	else
	{
		if (Exist.value=="1")
		{
			alert("项目名重名。选项字典中已有相同名称的项目，请更改后再保存。");
		}
		else
		{
			if (Result.value==0)
				window.parent.parent.close()
			else if (Result.value==2)
				alert("字典项目过多，同一类的选项最多容纳 900 个。")
			else
				alert("保存失败。")
		}
	}
	window.parent.EnableButton();
}
//-->
</SCRIPT>
</HEAD>
<BODY LANGUAGE=javascript onload="return window_onload()">
<%
	dim WExcel
	set WExcel=server.CreateObject("WExcel.System")

	dim Exist,Result
	NewRecord=Request.Form("NewRecord")
	DictID=Request.Cookies("System")("DictID")
	dim DictExist
	DictExist=WExcel.DictExist(cint(UserID),cint(DictID))
	if DictExist=false then
		DictExist="0"
	else
		DictExist="1"
		if NewRecord<>"1" then
			RowID=Request.Form("RowID")
			Exist=WExcel.CheckDictItemExist(cint(DictID),cstr(NewRecord),clng(RowID))
			if Exist<>"1" then
				Result=WExcel.SaveDictItem(cint(UserID),cint(DictID),cstr(NewRecord),clng(RowID))
			end if
		else
			Exist=WExcel.CheckDictItemExist(cint(DictID),cstr(NewRecord))
			if Exist<>"1" then
				Result=WExcel.SaveDictItem(cint(UserID),cint(DictID),cstr(NewRecord))
			end if
		end if
	end if
	CheckErr
%>
	<input TYPE="hidden" NAME="DictExist" value="<%=DictExist%>">
	<input TYPE="hidden" NAME="Exist" value="<%=Exist%>">
	<input TYPE="hidden" NAME="Result" value="<%=Result%>">
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -