📄 jscs.asp
字号:
<!--#include file="pwd.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></tr>
<%
Set RS = Server.CreateObject("ADODB.RecordSet")
flk_rs.movefirst
i=0
Do While Not flk_rs.EOF
tdm=flk_rs("fldm")
sql="select * from "&tdm
RS.Open sql,tsgl_Conn
j=0
do while not rs.eof
j=j+rs("cs")
rs.movenext
loop
rs.close
sql="update flk set cs="&j&" where fldm='"&tdm&"'"
tsgl_conn.execute(sql) '修改库存数
%>
<tr><td>
<% Response.Write flk_rs("fldm")%>
</td>
<td><%response.write flk_rs("flmc")%></td>
<td><%=j%></td>
</tr>
<%
i=i+j
flk_rs.MoveNext
Loop
%>
<tr>
<td>合计</td><td>总册数</td><td><%=i%></td>
</tr>
</table><p>
<%
set rs=nothing
%>
<a href="tsgl.htm">返回</a>
</center>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -