saveref.asp

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

ASP
67 行
字号 
<!-- #include file = "../../../include/function.asp" -->
<%CheckUser()%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function window_onload() {
	if (SheetExist.value!="1")
		alert("保存失败。数据表不存在，可能被其他人删除掉了，请检查。");
	else
	{
		if (Exist.value=="1")
		{
			alert("字段名重名。数据表中已有相同字段名的字段，请更改后再保存。");
		}
		else
			if (Result.value==0)
				window.parent.parent.close()
			else
				alert("保存失败。");
	}	
	window.parent.EnableButton();

}
//-->
</SCRIPT>
</HEAD>
<BODY LANGUAGE=javascript onload="return window_onload()">
<%
	dim WExcel
	set WExcel=server.CreateObject("WExcel.System")

	NewRecord=Request.Form("NewRecord")
	RefSheetID=Request.Form("RefSheetID")
	RefFieldID=Request.Form("RefFieldID")
	SheetID=Request.Cookies("System")("StructureSheetID")
	dim SheetExist
	SheetExist=WExcel.SheetExist(cint(UserID),cint(SheetID))
	if SheetExist=false then
		SheetExist="0"
	else
		SheetExist="1"
		dim Exist,Result,LoopPath
		if NewRecord<>"1" then
			RowID=Request.Form("RowID")
			Exist=WExcel.CheckFieldExist(cint(SheetID),cstr(NewRecord),clng(RowID))
			if Exist<>"1" then
				'新增一个引用字段时永远不会造成循环引用，因为引用的表、引用的字段不能修改，只能新增，
				'所以它总是最高层的，不可能有其它字段调用它。因此存储前无须做循环检查
				Result=WExcel.SaveRefField(cint(UserID),cint(SheetID),cstr(NewRecord),clng(RowID))
			end if
		else
			Exist=WExcel.CheckFieldExist(cint(SheetID),cstr(NewRecord))
			if Exist<>"1" then
				Result=WExcel.SaveRefField(cint(UserID),cint(SheetID),cstr(NewRecord))
			end if
		end if
	end if
	CheckErr
%>
	<input TYPE="hidden" NAME="SheetExist" value="<%=SheetExist%>">
	<input TYPE="hidden" NAME="Exist" value="<%=Exist%>">
	<input TYPE="hidden" NAME="Result" value="<%=Result%>">
</BODY>
</HTML>

saveref.asp - 源码说明

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

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

⌨️ 快捷键说明

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