mainframe.asp

来自「学生档案与成绩管理(1)学生档案管理:记录每个学生的档案信息」· ASP 代码 · 共 60 行

ASP
60
字号
<!-- #include file = "../include/asphead.asp" -->
<!-- #include file = "../include/function.asp" -->
<html>
<head>
	<title><%=AppTitle%></title>
	<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<%
	dim PublishCoID,PublishSheetID
	PublishCoID=Request.QueryString ("CoID")
	if PublishCoID="" then
		PublishCoID=0
	else
		if not isnumeric(PublishCoID) then
			PublishCoID=0
		end if
	end if
	PublishSheetID=Request.QueryString ("SheetID")
	if PublishSheetID="" then
		PublishSheetID=0
	else
		if not isnumeric(PublishSheetID) then
			PublishSheetID=0
		end if
	end if
	
	dim RequestOk
	RequestOk=false
	if SystemType=1 then
		if PublishSheetID>0 then
			RequestOk=true
		end if
	else
		if PublishCoID>0 and PublishSheetID>0 then
			RequestOk=true
		end if
	end if	
	if RequestOk=true then
		Response.Cookies("Temp")("PublishCoID")=PublishCoID
		Response.Cookies("Temp")("PublishSheetID")=PublishSheetID
%>
		<frameset name="MainFrame" 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" NORESIZE>
		</frameset>
<%
	else
%>
		<BODY>
			<TABLE WIDTH=40% align=center BORDER=0 CELLSPACING="2" CELLPADDING=0>
				<TR height=200 valign="center">
					<TD>输入的URL参数有错误。</TD>
				</TR>
			</TABLE>
		</BODY>
<%	
	end if
%>
</html>

⌨️ 快捷键说明

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