📄 xsfl.asp
字号:
<!--#include file="tsgl_conn.inc" -->
<!--#include file="flk_rs.inc" -->
<HTML>
<HEAD><TITLE>显示图书分类</TITLE></HEAD>
<BODY bgcolor="#C0C0C0">
<H3 align=center>
显示图书分类名称和代码
</H3>
<center>
<TABLE BORDER=1>
<TR><td>序号</td><td>分类代码</td><td>分类名称</td><td>册数</td></tr>
<%
flk_rs.movefirst
i=0
j=1
Do While Not flk_rs.EOF %>
<tr>
<td><%=j%></td>
<td>
<% Response.Write flk_rs("fldm")%>
</td>
<td><%response.write flk_rs("flmc")%></td>
<td><%response.write flk_rs("cs")%></td>
</tr>
<%
i=i+flk_rs("cs")
flk_rs.MoveNext
j=j+1
Loop
%>
<tr>
<td colspan=2>合计</td><td>总册数 </td><td><%=i%></td>
</tr>
</table><p>
<a href="tsgl.htm">返回</a>
</center>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -