fieldmap.asp

学生档案与成绩管理（1）学生档案管理：记录每个学生的档案信息

<!-- #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()
	{
		if(ExcelColCount>0)
		{
			for(var i=1;i<=ExcelColCount;i++)
			{
				var Field
				eval("Field=frmData.Field"+i);
				SetFieldInfo(Field,i)
			}
		}
		
		if(MapResult.value=='0')
		{
			window.parent.document.all['btnNext'].disabled =false;
		}
	}

	function FieldChange(Colnumber) 
	{
		SetFieldInfo(window.event.srcElement,Colnumber);
	}

	function SetFieldInfo(Field,Colnumber) 
	{
		var Index,NotNull;
		Index=Field.selectedIndex-1;
		if(Index>=0)
		{
			ExeStr="DataType"+Colnumber+".innerHTML=FieldType["+Index+"]";
			eval(ExeStr);
			ExeStr="NotNull=FieldNotNull["+Index+"]";
			eval(ExeStr);
			if(NotNull=='1')
				ExeStr="NotNull"+Colnumber+".innerHTML='是'";
			else
				ExeStr="NotNull"+Colnumber+".innerHTML=''";
			eval(ExeStr);
			ExeStr="FormatDesc"+Colnumber+".innerHTML=FieldFormatDesc["+Index+"]";
			eval(ExeStr);
			ExeStr="frmData.chk"+Colnumber+".status=true";
			eval(ExeStr);
		}
		else
		{
			ExeStr="DataType"+Colnumber+".innerHTML=''";
			eval(ExeStr);
			ExeStr="NotNull"+Colnumber+".innerHTML=''";
			eval(ExeStr);
			ExeStr="FormatDesc"+Colnumber+".innerHTML=''";
			eval(ExeStr);
			ExeStr="frmData.chk"+Colnumber+".status=false";
			eval(ExeStr);
		}
	}

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

	function LocalDC()
	{
		var AllFields,curField
		AllFields=""

		//需要导入的（打勾）必须选择了对应的字段
		if(ExcelColCount>0)
		{
			for(var i=1;i<=ExcelColCount;i++)
			{
				var NeedImport,Field,ExcelCaption;
				eval("NeedImport=frmData.chk"+i+".status");
				eval("Field=frmData.Field"+i);
				eval("ExcelCaption=frmData.Caption"+i+".value");
				if(NeedImport==true)
				{
					if(Field.selectedIndex==0)
					{
						alert(ExcelCaption+"未选择对应的字段，请选择。")
						return(false);
					}
					//目标字段不得重复
					curField=FieldID[Field.selectedIndex-1]
					curField="["+curField+"]"
					if(AllFields.indexOf(curField)>=0)
					{
						alert("有多个列的对应字段为"+FieldCaption[Field.selectedIndex-1]+"，这是不允许的，请更改。")
						return(false);
					}
					else
						AllFields=AllFields+"["+FieldID[Field.selectedIndex-1]+"]";
				}
			}
		}
		
		//必填的字段必须已被选择
		if(FieldCount>0)
		{
			for(var i=1;i<=FieldCount;i++)
			{
				if(FieldNotNull[i-1]=='1')
				{
					curField=FieldID[i-1]
					curField="["+curField+"]"
					if(AllFields.indexOf(curField)<0)
					{
						alert(FieldCaption[i-1]+"是必填的。\n数据导入的实质就是录入数据，必填字段应该有相应的数据列去填充，请更正。")
						return(false);
					}
				}
			}
		}
		
		//至少要选择一个字段
		if(AllFields=='')
		{
			alert("未选择任何 Excel 列，请选择。")
			return(false);
		}

		return true;

	}

	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,DictID,ExcelSheet,Head,MapPage,ArrayData
	dim strResult,MapResult

	strResult=""
	ExcelSheet=Request.Cookies("ImExport")("ExcelSheet")
	Head=Request.Cookies("ImExport")("Head")
	if Request.Cookies("Temp")("ImportFor")="dictitem" then
		DictID=Request.Cookies("System")("DictID")
		MapResult=WExcel.GetFieldMapPageForDict (cint(UserID),cint(DictID),cstr(ExcelSheet),cint(Head),MapPage,ArrayData)
	elseif Request.Cookies("Temp")("ImportFor")="useraccount" then
		MapResult=WExcel.GetFieldMapPageForUserAccount (cint(UserID),cstr(ExcelSheet),cint(Head),MapPage,ArrayData)
	else
		SheetID=Request.Cookies("Temp")("SheetID")
		MapResult=WExcel.GetFieldMapPage (cint(UserID),cint(SheetID),cstr(ExcelSheet),cint(Head),MapPage,ArrayData)
	end if

	if MapResult<>0 then
		strResult="系统未授予您录入权限，数据导入的实质就是录入数据。"
	else
		Response.Write ArrayData
	end if
	CheckErr
%>

<HTML>
<HEAD>
	<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<%if MapResult<>0 then%>
	<BODY>
		<table align=center width="60%" border=0 CELLSPACING="1" CELLPADDING="0">
			<tr>
				<td>
					<p align=center><%=strResult%></p>
				</td>
			</tr>
		</table>
	</BODY>
<%else%>
	<BODY LANGUAGE=javascript onload="return Init()">
		<form METHOD="post" name="frmData">
			<table width="100%" border=0 CELLSPACING="1" CELLPADDING="0" bgcolor=999999>
				<tr>
					<td bgcolor=white colspan=2>Excel 数据源</td>
					<%if Request.Cookies("Temp")("ImportFor")="dictitem" then%>
						<td bgcolor=white colspan=4>导入至选项字典</td>
					<%elseif Request.Cookies("Temp")("ImportFor")="useraccount" then%>
						<td bgcolor=white colspan=4>导入至用户帐号</td>
					<%else%>
						<td bgcolor=white colspan=4>导入至数据表</td>
					<%end if%>
				</tr>
				<tr>
					<td bgcolor=white width=8%>选择</td>
					<td bgcolor=white width=18%>列标题</td>
					<td bgcolor=white width=22%>对应字段</td>
					<td bgcolor=white width=15%>数据类型</td>
					<td bgcolor=white width=8%>必填</td>
					<td bgcolor=white width=29%>格式说明</td>
				</tr>
				<%=MapPage%>
			</table>
			<iframe id="SaveArea" name="SaveArea" style="visibility:hidden" width="0" height="0" frameborder="0" src="">
			</iframe>
		</form>
		<input TYPE="hidden" NAME="MapResult" value="<%=MapResult%>">
	</BODY>
<%end if%>
</HTML>