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

📄 setlist.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() {
	frmData.ViewCaption.value=parent.ViewCaption.value;
	if(parent.PublicView[0].status==true)
	{
		frmData.PublicView.value="0"
	}
	else
	{
		frmData.PublicView.value="1"
	}
	frmData.PageSize.value=parent.PageSize.value;
	if(CaptionDC() && LocalDC() && PageSizeDC())
	{
		SavePrompt();
		parent.parent.window.returnValue = true;
		frmData.target ="SaveArea";
		frmData.action="savelist.asp";
		frmData.submit();
	}
}

function CaptionDC()
{
	var ViewCaption;
	ViewCaption=JTrim(frmData.ViewCaption.value);
	if(ViewCaption=='')
	{
		alert("未输入视图名称，请输入。");
		return(false);
	}
	else
		return(true);
}

function PageSizeDC()
{
	var PSize;
	PSize=JTrim(frmData.PageSize.value);
	if (!isEmpty(PSize))
		if(DataCheck("每页记录数",DataType_Number,PSize,"","")==false)
			return(false);
		else
		{
			if(PSize>MaxPageSize)
			{
				alert("每页记录数太大。资源有限，Web 页面不宜太大，请输入" + MaxPageSize + "以内的数。" );
				return(false);
			}
			else if(PSize<=0)
			{
				alert("每页记录数必须为正整数，请改正。" );
				return(false);
			}
			else			
			{
				return(true);
			}
		}
	else
	{
		alert("每页记录数未填写，请填写。");
		return(false);
	}
}

function HasChange() {
	SumTheChange();	//统计最新的结果
	window.parent.document.all['Count'].innerHTML="已选中 "+SelectedCount+" 个";
	window.parent.document.all['WidthAmount'].innerHTML=WidthAmount+" %";
	HasChanged=true;
}

function window_onload() {
	SumTheChange();	
	window.parent.document.all['Count'].innerHTML="已选中 "+SelectedCount+" 个";
	window.parent.document.all['WidthAmount'].innerHTML=WidthAmount+" %";
	window.parent.document.all['btnSave'].disabled =false;
	window.parent.document.all['btnCancel'].disabled =false;
}

//-->
</script>
<%
	dim WExcel
	set WExcel=server.CreateObject("WExcel.Sheet")

	dim i
	dim ListCount,ListData
	
	dim SheetID,ViewID
	dim strBody,strScript
	SheetID=Request.Cookies("Temp")("SheetID")
	ViewID=Request.Cookies("Sheet")("ViewSelect" & SheetID)
	if IsEmpty(ViewID) then
		ViewID="-1"		'表示未指定缺省视图，也未指定任何公共、私有视图
	end if
	WExcel.GetListSettingPage cint(UserID),cint(SheetID),cint(ViewID),strScript,ListCount,ListData
	Response.Write strScript
	CheckErr
%>

<html>
	<head>
		<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
	</head>
	<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" LANGUAGE=javascript onload="return window_onload()">
		<form METHOD="post" name="frmData">
			<table width="100%" border=0 align="center">
				<%
					for i=1 to ListCount
						Response.Write ListData(i-1)
					next
				%>
			</table>
			<input TYPE="hidden" NAME="ViewCaption">
			<input TYPE="hidden" NAME="PublicView">
			<input TYPE="hidden" NAME="PageSize">
		</form>
		<iframe id="SaveArea" name="SaveArea" style="visibility:hidden" width="0" height="0" frameborder="0" src="">
		</iframe>
	</body>                                                                                                           
</html>

⌨️ 快捷键说明

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