📄 mainframe.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")="myfold"
MenuTo=Request.QueryString("MenuTo")
'判断是否指定到达某menu
if MenuTo="" then
'未指定
'判断是否cookie中存有MenuOn
MenuOn=Request.Cookies("MyFold")("MenuOn")
if MenuOn="" then
'没有，缺省进入info
MenuOn="info"
Response.Cookies("MyFold")("MenuOn")=MenuOn
Response.Cookies("MyFold").Expires = CookieLife
end if
else
'指定了
MenuOn=MenuTo
Response.Cookies("MyFold")("MenuOn")=MenuOn
Response.Cookies("MyFold").Expires = CookieLife
end if
dim ID(5),LeftPanel(5),RightHead(5),RightData(5),RightSplit(5)
dim ColsSpace,Index
ID(0)="info"
ID(1)="memo"
ID(2)="msg"
ID(3)="role"
ID(4)="log"
LeftPanel(0)=""
LeftPanel(1)=""
LeftPanel(2)="msg/funmenu.asp"
LeftPanel(3)=""
LeftPanel(4)="../system/log/search.asp"
RightHead(0)=""
RightHead(1)="memo/listhead.asp"
RightHead(2)="msg/listhead.asp"
RightHead(3)="role/listhead.asp"
RightHead(4)="../system/log/listhead.asp"
RightData(0)="info/info.asp"
RightData(1)="" '这里不需要显示list.asp，因为listhead会自动在RightData中刷新list.asp
RightData(2)=""
RightData(3)="role/list.asp"
RightData(4)="../system/log/prompt.asp"
RightSplit(0)="0,*"
RightSplit(1)="77,*"
RightSplit(2)="77,*"
RightSplit(3)="77,*"
RightSplit(4)="77,*"
if MenuOn=ID(2) then
ColsSpace="105,1,*"
elseif MenuOn=ID(4) then
ColsSpace="200,1,*"
else
ColsSpace="0,0,*"
end if
if MenuOn=ID(1) then
Response.Cookies("Temp")("SheetID")=MemoSheet_ID
end if
Index=GetIndex(MenuOn,ID)
if Index<0 then
Response.Cookies("MyFold")("MenuOn")=""
Response.Cookies("MyFold").Expires = CookieLife
Response.Write "URL 中输入了错误的参数，请直接 Click 屏幕上的功能按钮，尽量避免手工输入URL地址。"
Response.End
end if
CheckErr
%>
<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="../myfold/myfoldmenu.asp" NORESIZE>
<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="<%=RightSplit(Index)%>" 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>
<frame name="IntMsg" scrolling="no" marginWidth="0" marginHeight="0" src="../myfold/msg/checknewmsg.asp" NORESIZE>
</frameset>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -