📄 dictinfo.asp

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

💻 ASP

字号:

<!-- #include file = "../../include/asphead.asp" -->
<!-- #include file = "../../include/function.asp" -->
<%CheckUser()%>
<link href="../../include/main.css" rel="stylesheet" type="text/css">
<%

	dim WExcel
	set WExcel=server.CreateObject("WExcel.System")
	
	dim Success
	dim DictID,BodyStr,Caption
	DictID=Request.Form("DictID")
	dim Exist
	Exist=WExcel.DictExist(cint(UserID),cint(DictID))
	CheckErr
	if Exist=false then
		Response.Redirect "/hcgis/notfound.asp?Name=选项字典&Depth=0"
	end if
	Success=WExcel.GetDictStatistics(cint(UserID),cint(DictID),Caption,BodyStr)
	CheckErr
%>

<HTML>
	<head>
		<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
	</head>
	<BODY>
		<TABLE WIDTH=60% align=center BORDER=0 CELLSPACING="2" CELLPADDING=0>
			<TR height=50 valign=center>
				<TD colspan=3>
					<%=Caption%>的相关数据统计
				</TD>
			</TR>
			<TR>
				<TD bgcolor="#e0e0e0" width="30%">
					数据表
				</TD>
				<TD bgcolor="#e0e0e0" width="30%">
					字段
				</TD>
				<TD bgcolor="#e0e0e0" width="40%">
					填有数据的记录数
				</TD>
				<%=BodyStr%>
			</TR>
		</TABLE>
	</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -