📄 mainframe.asp

📁 学生档案与成绩管理（1）学生档案管理：记录每个学生的档案信息
💻 ASP
字号:
<!-- #include file = "../include/asphead.asp" -->
<!-- #include file = "../include/function.asp" -->
<%CheckUser()%>
<html>
<head>
	<title><%=AppTitle%></title>
	<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<%
	dim MenuTo,MenuOn

	Response.Cookies("Temp")("ButtonOn")="system"
	MenuTo=Request.QueryString("MenuTo")
	if Admin="2" then
		'数据表管理员，只能进入数据表管理
		MenuOn="sheet"
	else
		'判断是否指定到达某menu
		if	MenuTo="" then
			'未指定
			'判断是否cookie中存有MenuOn
			MenuOn=Request.Cookies("System")("MenuOn")
			if MenuOn="" then
				'没有，缺省进入数据表管理
				MenuOn="sheet"
			end if
		else
			'指定了
			MenuOn=MenuTo
		end if	
	end if
	Response.Cookies("System")("MenuOn")=MenuOn
	Response.Cookies("System").Expires = CookieLife

	dim ID(4),LeftPanel(4),RightHead(4),RightData(4)
	dim ColsSpace,Index

	ID(0)="user"
	ID(1)="sheet"
	ID(2)="dict"
	ID(3)="log"
	
	LeftPanel(0)="./user/funmenu.asp"
	LeftPanel(1)="./sheet/sheettree.asp"
	LeftPanel(2)="./dict/dicttree.asp"
	LeftPanel(3)="./log/search.asp"
	
	RightHead(0)=""
	RightHead(1)=""
	RightHead(2)=""
	RightHead(3)="./log/listhead.asp"

	RightData(0)=""	
	RightData(1)="./sheet/prompt.asp"
	RightData(2)="./dict/prompt.asp"
	RightData(3)="./log/prompt.asp"
	
	if MenuOn=ID(0) then
		ColsSpace="105,1,*"		'用户管理，稍微窄一点
	elseif MenuOn=ID(3) then
		ColsSpace="200,1,*"		'log查询条件中操作类型较长，需要留宽点
	else
		ColsSpace="155,1,*"
	end if
	Index=GetIndex(MenuOn,ID)
	if Index<0 then
		Response.Cookies("System")("MenuOn")=""
		Response.Cookies("System").Expires = CookieLife
		Response.Write "URL 中输入了错误的参数，请直接 Click 屏幕上的功能按钮，尽量避免手工输入URL地址。"
		Response.End 
	end if
	if Admin="1" or Admin="2" then
%>
		<frameset name="MainFrame" rows="40,24,*,0" frameborder="0" NORESIZE>
			<frame name="Head" scrolling="no" marginWidth="0" marginHeight="0" src="../include/head.asp" NORESIZE>
			<frame name="Menu" scrolling="no" marginWidth="0" marginHeight="0" src="../system/systemmenu.asp" NORESIZE>
			<%if Admin="2" then%>
			<%
				dim WExcel
				set WExcel=server.CreateObject("WExcel.System")
				dim BodyStr,SheetCount
				WExcel.GetSheetTreeForSheetAdmin cint(UserID),SheetCount,ReferencedSheetIDs,BodyStr
				if SheetCount<=0 then
			%>
					<frame name="Content" scrolling="no" marginWidth="0" marginHeight="0" src="nosheetadminprompt.htm" NORESIZE>
				<%else%>
					<frameset name="Content" cols="<%=ColsSpace%>" frameborder="0">
						<frame name="LeftPanel" scrolling="auto" marginWidth="0" marginHeight="0" src="<%=LeftPanel(Index)%>" NORESIZE>
						<frame name="SplitLine" scrolling="auto" marginWidth="0" marginHeight="0" src frameborder="1" NORESIZE>
						<frameset name="RightPanel" rows="60,*" frameborder="0" NORESIZE>
							<frame name="RightHead" scrolling="auto" marginWidth="0" marginHeight="0" src="<%=RightHead(Index)%>" NORESIZE>
							<frame name="RightData" scrolling="auto" marginWidth="0" marginHeight="0" src="<%=RightData(Index)%>" NORESIZE>
						</frameset>
					</frameset>
				<%end if%>
			<%else%>
				<frameset name="Content" cols="<%=ColsSpace%>" frameborder="0">
					<frame name="LeftPanel" scrolling="auto" marginWidth="0" marginHeight="0" src="<%=LeftPanel(Index)%>" NORESIZE>
					<frame name="SplitLine" scrolling="auto" marginWidth="0" marginHeight="0" src frameborder="1" NORESIZE>
					<frameset name="RightPanel" rows="60,*" frameborder="0" NORESIZE>
						<frame name="RightHead" scrolling="auto" marginWidth="0" marginHeight="0" src="<%=RightHead(Index)%>" NORESIZE>
						<frame name="RightData" scrolling="auto" marginWidth="0" marginHeight="0" src="<%=RightData(Index)%>" NORESIZE>
					</frameset>
				</frameset>
			<%end if%>
			<frame name="IntMsg" scrolling="no" marginWidth="0" marginHeight="0" src="../myfold/msg/checknewmsg.asp" NORESIZE>
		</frameset>
<%
else
%>
	<frameset name="MainFrame" rows="40,*,0" frameborder="0" NORESIZE>
		<frame name="Head" scrolling="no" marginWidth="0" marginHeight="0" src="../include/head.asp" NORESIZE>
		<frame name="Menu" scrolling="no" marginWidth="0" marginHeight="0" src="noauthprompt.htm" NORESIZE>
		<frame name="IntMsg" scrolling="no" marginWidth="0" marginHeight="0" src="../myfold/msg/checknewmsg.asp" NORESIZE>
	</frameset>
<%
end if
CheckErr
%>
</html>
⌨️ 快捷键说明

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