save.asp

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

ASP
50 行
字号 
<!-- #include file = "../../../include/function.asp" -->
<%CheckUser()%>
<HTML>
<HEAD>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function window_onload() {
	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")

	dim ButtonOn
	ButtonOn=Request.Cookies("Temp")("ButtonOn")

	NewRecord=Request.Form("NewRecord")
	dim Exist,Result
	if NewRecord<>"1" then
		RowID=Request.Form("RowID")
		Exist=WExcel.CheckUserExist(cstr(NewRecord),clng(RowID))
		if Exist<>"1" then
			Result=WExcel.SaveUserData(cint(UserID),cstr(NewRecord),cstr(ButtonOn),clng(RowID))
		end if
	else
		Exist=WExcel.CheckUserExist(cstr(NewRecord))
		if Exist<>"1" then
			Result=WExcel.SaveUserData(cint(UserID),cstr(NewRecord),cstr(ButtonOn))
		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 编程语言编写，共 50 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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