⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 popselect.asp

📁 学生档案与成绩管理（1）学生档案管理：记录每个学生的档案信息
💻 ASP
字号:
🔍 
<!-- #include file = "../../../include/asphead.asp" -->
<!-- #include file = "../../../include/function.asp" -->
<%CheckUser()%>
<link href="../../../include/main.css" rel="stylesheet" type="text/css">
<script src="../../../include/function.js" type="text/javascript"></script>

<script ID="clientEventHandlersJS" LANGUAGE="javascript">
<!--

var HasChanged;

function Save() {
	parent.window.returnValue = "1," + GetItems();
	parent.window.close();
}

function HasChange() {
//	HasChanged=true;	//pop式窗口，没必要提示保存
}

function SetAllUser()
{
	var IndividualDisabled;
	if(frmData.optAllUser[0].status==true)
	{
		IndividualDisabled="true";
	}
	else
	{
		IndividualDisabled="false";
	}
	if(ItemCount>0)
	{
		for (i = 0; i <= ItemCount-1; i++)
		{
			if(ItemID[i].substr(0,4)=="User")
			{
				eval("chk=frmData."+JTrim(ItemID[i])+".disabled=" + IndividualDisabled);
			}
		}
	}
}

function GetItems() 
{
	var Items,Captions;
	var chk;
	Items=""
	Captions=""
	if(ItemCount>0)
	{
		//首先处理数据行的字段中填写的用户
		for (i = 0; i <= ItemCount-1; i++)
		{
			if(ItemID[i].substr(0,4)!="User")
			{
				eval("chk=frmData."+JTrim(ItemID[i])+".status");
				if(chk==true)
				{
					Items=Items + "," + JTrim(ItemID[i]);
					Captions=Captions + ";" + JTrim(ItemName[i]);
				}
			}
		}
		//再处理系统所包含的用户
		if(frmData.optAllUser[0].status==true)
		{
			Items=Items + ",User" + JTrim(AllUser_ID);
			Captions=Captions + ";" + JTrim(AllUser_Caption);
		}
		else
		{
			for (i = 0; i <= ItemCount-1; i++)
			{
				if(ItemID[i].substr(0,4)=="User")
				{
					eval("chk=frmData."+JTrim(ItemID[i])+".status");
					if(chk==true)
					{
						Items=Items + "," + JTrim(ItemID[i]);
						Captions=Captions + ";" + JTrim(ItemName[i]);
					}
				}
			}
		}
		if(Items.length>0)
			Items=Items.substr(1,Items.length-1);
		if(Captions.length>0)
			Captions=Captions.substr(1,Captions.length-1);
	}
	return(Items + "|" + Captions);
}

//-->
</script>
<%
	dim WExcel
	set WExcel=server.CreateObject("WExcel.System")
	dim SheetID,CurItems
	CurItems=Request.QueryString  ("CurItems")
	dim Success,strBody,strScript
	SheetID=Request.Cookies("System")("MailSheetID")
	Success=WExcel.SelectUserForSetRemind(cint(UserID),cint(SheetID),cstr(CurItems),strBody,strScript)
	CheckErr
	Response.Write strScript
%>

<html>
	<head>
		<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
	</head>
	<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
		<form METHOD="post" name="frmData">
			<table width="100%" border=0 align="center">
				<tr>
					<%=strBody%>
				</tr>
			</table>
		</form>
	</body>                                                                                                           
</html>

⌨️ 快捷键说明

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