📄

📁 我的图书管理系统

💻

字号:


<%
dim Pri
mkmc=request("mkmc")
Pri=CheckUrl(mkmc)
%>
<!--#include virtual="/school/public/CheckUrl.asp"-->

<%


Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "database=school;uid=sa;pwd=;dsn=school"

Set rs = Server.CreateObject("ADODB.Recordset")


Set conn1 = Server.CreateObject("ADODB.Connection")

conn1.Open "database=school;uid=sa;pwd=;dsn=school"

Set rs1 = Server.CreateObject("ADODB.Recordset")


  
 sql="select sum(库存数量) from ttsml where  类别编号='"&trim(session("lbbh"))&"'"


 rs.open sql,conn,3
   
 if rs.recordcount>0 then
 
  tszcs=rs.fields(0).value
  
 end if 
 
 rs.close
 
 sql1="select sum(单价) from ttsml where  类别编号='"&trim(session("lbbh"))&"'"

 
 rs1.open sql1,conn1,3
   
 if rs1.recordcount>0 then
 
  tszjg=rs1.fields(0).value
 
   
 end if 
 
 rs1.close
  

%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>图书总册数 欢迎使用欣科软件</title>
</head>

<body background="BKG35.jpg">


<p><img src="../images/tsg.gif" ><img src="../images/Stripe1.gif">

<p align="center">&nbsp;</p>
<div align="center"><center>

<table border="4" height="91" width="257" >
  <tr>
    <td width="254">图书总册数：<input Size="16" value="<%=tszcs %>"></td>
  </tr>
  <tr>
    <td width="254">图书总价值：<input Size="16" value="<%=tszjg%>"></td>
  </tr>
</table>
</center></div>
<br><br><br>
<p align="center"><a href="图书目录查询管理.htm"><img src="../images/fh1.gif" border="0" alt="返回图书目录查询管理主页"></a>
  <br><img src="../images/xkrj.gif">
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -