📄 dictinfo.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 + -