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

📄 fieldcopyselect2.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()
	{
		if(PermitNext.value==1)
		window.parent.document.all['btnNext'].disabled =false;
	}
	
	function LocalDC()
	{
		var Fields;
		var chk;
		var SelectedCount;
		Fields=AllFields.value.split(",");
		SelectedCount=0;
		if(Fields.length>0)
		{
			for (i = 1; i <= Fields.length; i++)
			{
				eval("chk=frmData."+JTrim(Fields[i-1])+".status");
				if(chk==true)
				{
					SelectedCount=SelectedCount+1;
					eval("chk=frmData."+JTrim(Fields[i-1])+"NoMatch.value");
					if(chk==1)
					{
						alert("无法复制,已勾择的目标字段没有可用的源字段。")
						return(false);
					}
					
					eval("chk=frmData."+JTrim(Fields[i-1])+"CopyFrom.value");
					if(chk==0)
					{
						alert("已勾择的目标字段未选择相应的源字段,请选择。")
						return(false);
					}
				}
			}
		}
		if(SelectedCount==0)
		{
			alert("您未选择任何字段,请选择。")
			return(false);
		}
		else if(SelectedCount>60)
		{
			alert("您选择的字段数超过60,请适当减少。")
			return(false);
		}
		return(true);
	}

	function Next()
	{
		if(LocalDC()==true)
		{
			DisableButton();
			document.frmData.target ="SaveArea";
			document.frmData.action="savefieldcopyselect.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 CopyTo
	CopyTo=Request.Cookies("ImExport")(SheetID & "CopyTo")

	dim Result,AllFields,SelectPage
	WExcel.GetFieldCopySelectPage2 cint(UserID),cint(SheetID),cint(CopyTo),Result,AllFields,SelectPage
	CheckErr
	
	dim PermitNext
	PermitNext=0
%>

<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="70%" align="center" CELLSPACING="1" CELLPADDING="0" bgcolor=999999>
		<%if Result=2 then%>
			<tr>
				<td bgcolor="white">
					您无权复制数据,复制数据实质上也是一种录入操作,但系统未授予您录入权限。
				</td>
			</tr>
		<%else%>
			<tr>
				<td bgcolor="white" width="10%">
					选择
				</td>
				<td bgcolor="white" width="45%">
					目标字段
				</td>
				<td bgcolor="white" width="45%">
					源字段
				</td>
			</tr>
			<%PermitNext=1%>
			<%=SelectPage%>
		<%end if%>
		</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="PermitNext" value="<%=PermitNext%>">
</BODY>
</HTML>

⌨️ 快捷键说明

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