📄 mainframe.asp
字号:
<!-- #include file = "../include/asphead.asp" -->
<!-- #include file = "../include/function.asp" -->
<%CheckUser()%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=AppTitle%></title>
</head>
<%
dim WExcel
set WExcel=server.CreateObject("WExcel.Sheet")
Response.Cookies("Temp")("ButtonOn")="report"
dim SheetID
dim SheetCount,ID
'获得可以进入的SheetList
WExcel.GetAllSheetListInReport cint(UserID),SheetCount,ID
if SheetCount<=0 then
%>
<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="../report/nosheetprompt.htm" NORESIZE>
<frame name="IntMsg" scrolling="no" marginWidth="0" marginHeight="0" src="../myfold/msg/checknewmsg.asp" NORESIZE>
</frameset>
<%
else
'判断是否指定到达某Sheet
SheetID=Request.QueryString ("SheetID")
if SheetID="" then
'未指定，则需要决定进入哪个sheet
if SheetCount>0 then
'优先进入cookie中存有SheetID，否则进入第一个sheet
SheetID=Request.Cookies("Report")("SheetID")
if SheetID="" then
SheetID=ID(0)
end if
end if
end if
'判断cookie中的SheetID是否还在SheetList中
if GetIndex(cint(SheetID),ID)<0 then
'不存在，可能的原因是该Sheet已被删除，或者你被剥夺访问权限。进入可以进入的第一个sheet
SheetID=ID(0)
end if
Response.Cookies("Report")("SheetID")=SheetID
Response.Cookies("Report").Expires = CookieLife
dim ViewFields
ViewFields=WExcel.GetListSearchFields(cint(UserID), cint(SheetID))
if ViewFields="" 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="sheetmenu.asp" NORESIZE>
<frame name="Menu" scrolling="no" marginWidth="0" marginHeight="0" src="../report/nofieldprompt.htm" NORESIZE>
<frame name="IntMsg" scrolling="no" marginWidth="0" marginHeight="0" src="../myfold/msg/checknewmsg.asp" NORESIZE>
</frameset>
<%
else
dim ReportID,SelectedID,ReportList
dim WExcel2
set WExcel2=server.CreateObject("WExcel.Report")
ReportID=0
WExcel2.GetReportOption cint(UserID),cint(SheetID),cint(ReportID),SelectedID,ReportList
if ReportList="" 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="sheetmenu.asp" NORESIZE>
<frame name="Menu" scrolling="no" marginWidth="0" marginHeight="0" src="noreportprompt.htm" NORESIZE>
<frame name="IntMsg" scrolling="no" marginWidth="0" marginHeight="0" src="../myfold/msg/checknewmsg.asp" NORESIZE>
</frameset>
<%
else
%>
<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="sheetmenu.asp" NORESIZE>
<frameset name="Content" cols="215,1,*" frameborder="0">
<frame name="Search" scrolling="auto" marginWidth="0" marginHeight="0" src="search.asp" NORESIZE>
<frame name="SplitLine" scrolling="auto" marginWidth="0" marginHeight="0" src frameborder="1" NORESIZE>
<frameset name="RightPanel" rows="77,*" frameborder="0" NORESIZE>
<frame name="RightHead" scrolling="auto" marginWidth="0" marginHeight="0" src="listhead.asp" NORESIZE>
<frame name="RightData" scrolling="auto" marginWidth="0" marginHeight="0" src="searchprompt.htm" NORESIZE>
</frameset>
</frameset>
<frame name="IntMsg" scrolling="no" marginWidth="0" marginHeight="0" src="../myfold/msg/checknewmsg.asp" NORESIZE>
</frameset>
<%
end if
end if
%>
</html>
<%
end if
CheckErr
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -