dictinfo.asp

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

ASP
50
字号
<!-- #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 + =
减小字号Ctrl + -
显示快捷键?