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

📄 fieldselect.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">
<!--

	function Init()
	{
		window.parent.document.all['btnNext'].disabled =false;
	}
	
	function LocalDC()
	{
		var Fields;
		var FieldName,chk;
		var SelectedCount;
		if(isEmpty(AllFields.value))
		{
			alert("无字段可选。")
			return(false);
		}
		else
		{
			Fields=AllFields.value.split(",");
			SelectedCount=0;
			if(Fields.length>0)
			{
				for (i = 1; i <= Fields.length; i++)
				{
					FieldName=JTrim(Fields[i-1]);
					if(FieldName.indexOf("Sheet"+SheetID.value+"Fld")>=0)
					{
						eval("chk=frmData."+FieldName+".status");
						if(chk==true)
						{
							SelectedCount=SelectedCount+1;
						}
					}
				}
			}
		}

		if(SelectedCount<=0)
		{
			alert("您未选择任何字段,请选择。")
			return(false);
		}
		return(true);
	}

	function Next()
	{
		if(LocalDC()==true)
		{
			DisableButton();
			document.frmData.target ="SaveArea";
			document.frmData.action="savefieldselect.asp";
			document.frmData.submit();
		}
	}

	function DisableButton() 
	{
		window.parent.document.all['btnCancel'].disabled =true;
		window.parent.document.all['btnPre'].disabled =true;
		window.parent.document.all['btnNext'].disabled =true;
	}

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

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

	dim ExportFormat,SheetTableID,ExportRefDetail
	ExportFormat=Request.Cookies("ImExport")("ExportFormat")
	SheetTableID=Request.Cookies("ImExport")("SheetTableID")
	ExportRefDetail=Request.Cookies("ImExport")("ExportRefDetail")

	dim AllFields,SelectPage
	if ExportFormat=3 then
		WExcel.GetActiveFieldSelectPage cint(UserID),cint(SheetID),cint(SheetTableID),AllFields,SelectPage
	else
		WExcel.GetAllFieldSelectPage cint(UserID),cint(SheetID),cint(ExportRefDetail),AllFields,SelectPage
	end if
	CheckErr
%>

<HTML>
<HEAD>
	<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY LANGUAGE=javascript onload="return Init()">
	<form METHOD="post" name="frmData">
		<table width="60%" align="center" CELLSPACING="1" CELLPADDING="0" bgcolor=999999>
			<tr>
				<td bgcolor="white" width="10%">
					选择
				</td>
				<td bgcolor="white" width="45%">
					字段名称
				</td>
				<td bgcolor="white" width="45%">
					数据类型
				</td>
			</tr>
			<%=SelectPage%>
		</table>
		<iframe id="SaveArea" name="SaveArea" style="visibility:hidden" width="0" height="0" frameborder="0" src="">
		</iframe>
	</form>
	<input TYPE="hidden" NAME="AllFields" value="<%=AllFields%>">
	<input TYPE="hidden" NAME="SheetID" value="<%=SheetID%>">
</BODY>
</HTML>

⌨️ 快捷键说明

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