listhead.asp

来自「学生档案与成绩管理（1）学生档案管理：记录每个学生的档案信息」· ASP 代码 · 共 119 行

ASP
119 行
字号 
<!-- #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:615px;dialogheight:550px;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>
<%
	if instr(1,Request.ServerVariables("HTTP_REFERER"),"sheettree.asp")>0 then
		'来自于数据表树
		dim WExcel
		set WExcel=server.CreateObject("WExcel.System")
		SheetID=Request.Form ("SheetID")
		dim Exist
		Exist=WExcel.SheetExist(cint(UserID),cint(SheetID))
		CheckErr
		if Exist=false then
			Response.Redirect "/hcgis/notfound.asp?Name=数据表&Depth=0"
		end if
		strWhere=""
		strOrderBy=Request.Cookies("System")("MailOrderBy")
		CurPage=1
		Response.Cookies("System")("MailSheetID")=SheetID
		Response.Cookies("System")("MailCurPage")=CurPage
		Response.Cookies("System").Expires = CookieLife
	end if
%>
<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=10% onClick=ChgOrder('MailID') title=按模板号排序>模板号</td>
							<td bgcolor=white style='cursor:hand' width=37% onClick=ChgOrder('Caption') title=按模板名称排序>模板名称</td>
							<td bgcolor=white style='cursor:hand' width=37% onClick=ChgOrder('Subject') title=按标题排序>标题</td>
							<td bgcolor=white style='cursor:hand' width=16% onClick=ChgOrder('Operation') 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")("MailOrderBy")%>">
				<input TYPE="hidden" NAME="CurPage">
				<input TYPE="hidden" NAME="RowSelect">
			</form>
		</table>
	</body>                                                                                                           
</html>

listhead.asp - 源码说明

本页面展示了「学生档案与成绩管理（1）学生档案管理：记录每个学生的档案信息」中的 listhead.asp 源码文件，采用 ASP 编程语言编写，共 119 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与记录相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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