list.asp

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

<!-- #include file = "../include/asphead.asp" -->
<!-- #include file = "../include/function.asp" -->
<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 View(SheetID,RowID) {
	if(window.showModalDialog ("viewframe.asp?Target=view.asp?SheetAndRowID="+SheetID+JoinChar+RowID+JoinChar+RowIDs.value,"","dialogwidth:640px;dialogheight:480px;Status:0;center:1;resizable=1;")==true)
	{
		window.navigate("list.asp");
	}
}

function ViewRef(SheetID,FieldID,FieldValue) {
	var RefString;
	RefString=SheetID+JoinChar+FieldID+JoinChar+FieldValue;
	window.showModalDialog ("viewframe3.asp?Target=viewref.asp?RefString="+RefString,"","dialogwidth:640px;dialogheight:480px;Status:0;center:1;resizable=1;");
}

function window_onload() {
	window.parent.RightHead.frmData.CurPage.value=CurPage.value;
	window.parent.RightHead.PageNavigate.innerHTML=PageNavigate.value;
	try
	{
		parent.MainFrame.rows=parent.RightHead.RightHeadTable.clientHeight + ",*";
	}
	catch(e)
	{
	}
}

//-->
</script>
<%
	
	dim WExcel
	set WExcel=server.CreateObject("WExcel.Sheet")
	
	dim strWhere,strWhereDesc,strOrderBy,FromSearch
	dim CurPage,NoField,PageCount,RecordCount,CurFromRecord,CurToRecord,PageNavigate,RowIDs,CanDeleteRowIDs,SummaryLine
	dim SheetID,FilterID
	dim SheetData
	dim FirstAddRowID
	dim AddMode

	SheetID=Request.Cookies("Temp")("PublishSheetID")
	FromSearch=0	'不作为真正的查询动作，不需记log
	AddMode=0
	strWhere=""
	strWhereDesc=""
	if instr(1,Request.ServerVariables("HTTP_REFERER"),"listhead.asp")>0 then
		if Trim(Request.Form("Search"))="1" then
			'来自于查询操作
			CurPage=1
			strOrderBy=Request.Cookies("Sheet")("OrderBy" & CoID & "-" & SheetID)
			if isnumeric(Request.Form("SelectFilter")) then
				FilterID=Request.Form("SelectFilter")
			else
				FilterID=0
			end if
			Response.Cookies("Sheet")("FilterSelect" & SheetID)=FilterID
			Response.Cookies("Sheet").Expires = CookieLife
			WExcel.GetPublishSheetData cint(SheetID),cint(FilterID),cint(FromSearch),cint(AddMode),cstr(strWhere),cstr(strWhereDesc),strOrderBy,CurPage,NoField,PageCount,RecordCount,CurFromRecord,CurToRecord,PageNavigate,RowIDs,CanDeleteRowIDs,SummaryLine,SheetData
			Response.Cookies("Temp")("CurPage" & SheetID)=CurPage
		else
			'来自于排序、翻页操作
			CurPage=Request.Form("CurPage")
			strOrderBy=Request.Form("OrderBy")
			FilterID=Request.Cookies("Sheet")("FilterSelect" & SheetID)
			if FilterID="" then
				FilterID=0
			end if
			WExcel.GetPublishSheetData cint(SheetID),cint(FilterID),cint(FromSearch),cint(AddMode),cstr(strWhere),cstr(strWhereDesc),strOrderBy,CurPage,NoField,PageCount,RecordCount,CurFromRecord,CurToRecord,PageNavigate,RowIDs,CanDeleteRowIDs,SummaryLine,SheetData
			Response.Cookies("Temp")("CurPage" & SheetID)=CurPage
			Response.Cookies("Sheet")("OrderBy" & CoID & "-" & SheetID)=strOrderBy
			Response.Cookies("Sheet").Expires = CookieLife
		end if
	else
		if Trim(Request.QueryString("SelectFilterForSearch"))<>"" then
			'最初进入此页面时，来自于listhead 的 navigate
			CurPage=1
			strOrderBy=Request.Cookies("Sheet")("OrderBy" & CoID & "-" & SheetID)
			if isnumeric(Request.QueryString("SelectFilterForSearch")) then
				FilterID=Request.QueryString("SelectFilterForSearch")
			else
				FilterID=0
			end if
			Response.Cookies("Sheet")("FilterSelect" & SheetID)=FilterID
			Response.Cookies("Sheet").Expires = CookieLife
			WExcel.GetPublishSheetData cint(SheetID),cint(FilterID),cint(FromSearch),cint(AddMode),cstr(strWhere),cstr(strWhereDesc),strOrderBy,CurPage,NoField,PageCount,RecordCount,CurFromRecord,CurToRecord,PageNavigate,RowIDs,CanDeleteRowIDs,SummaryLine,SheetData
			Response.Cookies("Temp")("CurPage" & SheetID)=CurPage
		else
			'来自于自动查询
			CurPage=Request.Cookies("Temp")("CurPage" & SheetID)
			strOrderBy=Request.Cookies("Sheet")("OrderBy" & CoID & "-" & SheetID)
			FilterID=Request.Cookies("Sheet")("FilterSelect" & SheetID)
			if FilterID="" then
				FilterID=0
			end if
			WExcel.GetPublishSheetData cint(SheetID),cint(FilterID),cint(FromSearch),cint(AddMode),cstr(strWhere),cstr(strWhereDesc),strOrderBy,CurPage,NoField,PageCount,RecordCount,CurFromRecord,CurToRecord,PageNavigate,RowIDs,CanDeleteRowIDs,SummaryLine,SheetData
		end if
	end if
	CheckErr
	dim Count
	Count=ubound(SheetData)
%>
<html>
	<head>
		<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
	</head>
	<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" LANGUAGE="javascript" onload="return window_onload()">
		<%if RecordCount<=0 and AddMode=0 then%>
			<table width=100%>
				<TR height=230 valign="center">
					<TD align=center>
						没有符合条件的数据。
					</TD>
				</TR>
			</table>
		<%else%>
			<%for i=1 to Count:Response.Write SheetData(i-1):next%>
		<%end if%>
		<input TYPE="hidden" NAME="RecordCount" value="<%=RecordCount%>">
		<input TYPE="hidden" NAME="CurPage" value="<%=CurPage%>">
		<input TYPE="hidden" NAME="NoField" value="<%=NoField%>">
		<input TYPE="hidden" NAME="PageNavigate" value="<%=PageNavigate%>">
		<input TYPE="hidden" NAME="RowIDs" value="<%Count=ubound(RowIDs):for i=1 to Count:IF i=1 then Response.Write RowIDs(i-1) else Response.Write "," & RowIDs(i-1):end if:next%>">
		<input TYPE="hidden" NAME="CanDeleteRowIDs" value="<%Count=ubound(CanDeleteRowIDs):for i=1 to Count:IF i=1 then Response.Write CanDeleteRowIDs(i-1) else Response.Write "," & CanDeleteRowIDs(i-1):end if:next%>">
		<input TYPE="hidden" NAME="SummaryLine" value="<%=SummaryLine%>">
	</body>                                                                                                           
</html>