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

📄 listhead.asp

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

function window_onload(){
	btnAdd.disabled =false;
	SetRows();
	window.parent.RightData.navigate("list.asp");
}
function window_onresize() {
	SetRows();
}
function SetRows()
{
	parent.RightPanel.rows=RightHeadTable.clientHeight + ",*";
}
function AddRecord() {
	if(window.showModalDialog("frame.asp?target=new.asp", "","dialogwidth:520px;dialogheight:395px;Status:0;center:1;resizable=1;")==true)
	{
		window.parent.RightData.navigate("list.asp");
	}
}

function DelRecord() 
{
	var SelectedRow,BadRow;
	BadRow=window.parent.RightData.CheckDelAuth();
	if(BadRow!="")
	{
		alert("表间关系不能删除。\n" + "关系号:" + BadRow + ",此关系的数据表如果已有相互引用的字段,请首先处理好这些引用情况,然后再删除。")
	}
	else
	{
		SelectedRow=window.parent.RightData.RowSelect();
		if(SelectedRow=="")
		{
			alert("您要删除哪些表间关系?请选择。")
		}
		else
		{
			if(confirm("您确定要删除这些表间关系吗?")==true)
			{
				document.frmData.RowSelect.value =SelectedRow;
				document.frmData.target ="SaveArea";
				document.frmData.action="del.asp";
				document.frmData.submit();
			}	
		}
	}
}

//-->
</script>
<%
	dim WExcel
	set WExcel=server.CreateObject("WExcel.System")
	strWhere=""
	strOrderBy=Request.Cookies("System")("RelationOrderBy")
	CurPage=1
	Response.Cookies("System")("RelationCurPage")=CurPage
	Response.Cookies("System").Expires = CookieLife
%>
<html>
	<head>
		<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
	</head>
	<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onload="window_onload()" onresize="window_onresize()">
		<table id=RightHeadTable name=RightHeadTable width="100%" border="0" cellPadding=0 cellSpacing=0>
			<tr height=20>
				<td width="65%">
					<p align="left" id="PageNavigate">
					</p>
				</td>
				<td width="35%">
					<p align="right">
						<input type="button" name="btnAdd" disabled value="新增" style="cursor:hand; WIDTH: 50px; HEIGHT: 24px" LANGUAGE="javascript" onclick="return AddRecord()">
						<input type="button" name="btnDel" disabled value="删除"  style="cursor:hand; WIDTH: 50px; HEIGHT: 24px" LANGUAGE="javascript" onclick="return DelRecord()">
					</p>
				</td>
			</tr>
			<tr>
				<td colspan=2>
					<table width=100% cellspacing=1 bgcolor=999999>
						<tr>
							<td bgcolor='white' width=1% title='全选/全清'><INPUT name=chkAll onClick=SelectAll() type=checkbox></td>
							<td bgcolor=white style='cursor:hand' width=9% onClick=ChgOrder('RelationID') title=按关系号排序>关系号</td>
							<td bgcolor=white style='cursor:hand' width=23% onClick=ChgOrder('SheetID') title=按数据表号排序>主表名称</td>
							<td bgcolor=white style='cursor:hand' width=16% onClick=ChgOrder('FieldID') title=按字段号排序>关联字段</td>
							<td bgcolor=white style='cursor:hand' width=12% onClick=ChgOrder('MapType') title=按关联方式排序>关联方式</td>
							<td bgcolor=white style='cursor:hand' width=23% onClick=ChgOrder('RefSheetID') title=按关联表号排序>子表名称</td>
							<td bgcolor=white style='cursor:hand' width=16% onClick=ChgOrder('RefFieldID') title=按关联字段号排序>关联字段</td>
						</tr>
					</table>
				</td>
				<iframe id="SaveArea" name="SaveArea" style="visibility:hidden" width="0" height="0" frameborder="0" src="">
				</iframe>
			</tr>
			<form METHOD="post" name="frmData">
				<input TYPE="hidden" NAME="OrderBy" value="<%=Request.Cookies("System")("RelationOrderBy")%>">
				<input TYPE="hidden" NAME="CurPage">
				<input TYPE="hidden" NAME="RowSelect">
			</form>
		</table>
	</body>                                                                                                           
</html>

⌨️ 快捷键说明

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