jscs.asp

来自「一个优秀的学校学籍,成绩,图书管理系统.有需要的朋友可以来看看.是完整代码.」· ASP 代码 · 共 56 行

ASP

56 行

<!--#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>

jscs.asp - 源码说明

本页面展示了「一个优秀的学校学籍,成绩,图书管理系统.有需要的朋友可以来看看.是完整代码.」中的 jscs.asp 源码文件，采用 ASP 编程语言编写，共 56 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与图书管理相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?