deldetail.asp

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

ASP
43 行
字号 
<!-- #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 (RetDesc.value!="")
		alert(RetDesc.value);
	else
		window.parent.navigate(window.parent.location);
}

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

	dim SheetID
	dim RowSelect	
	SheetID=Request.Form("SubSheetID")
	RowSelect=Request.Form("RowSelect")

	dim Ret,RetDesc,LockRowID,LockMainSheet
	Ret=WExcel.CheckMainForDel(cint(UserID),cint(SheetID),cstr(RowSelect),LockRowID,LockMainSheet)
	if Ret=true then
		RetDesc=""
		WExcel.DelSheetData cint(UserID),cint(SheetID),cstr(RowSelect)
	else
		RetDesc="不允许删除。"
		RetDesc=RetDesc & "记录号" & LockRowID & "所对应的主表记录(" & LockMainSheet & ")已锁定修改权限，系统自动锁定子记录的删除权限。"
	end if
	CheckErr
%>
	<input TYPE="hidden" NAME="RetDesc" value="<%=RetDesc%>">
</BODY>
</HTML>

deldetail.asp - 源码说明

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

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

⌨️ 快捷键说明

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