📄 -+-

📁 我的图书管理系统
💻
字号:
<%
dim Pri
mkmc=request("mkmc")
Pri=CheckUrl(mkmc)
%>
<!--#include virtual="/school/public/CheckUrl.asp"-->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>图书目录查询 欢迎使用欣科软件</title>
</head>

<body background="Bkg35.jpg" topmargin="0">

<p><img src="soft.gif" width="36" height="24"><font size="6" color="#ff0000">图书目录查询 
<object id="RDS1" classid="ClsID:BD96C556-65A3-11D0-983A-00C04FC29E33" align="baseline"
border="0" width="7" height="14">
  <param name="AllowAddnew" value="true">
  <param name="AllowDelete" value="true">
  <param name="AllowUpdate" value="true">
  <param name="allowarrows" value="true">
</object>
<object id="RDS2" classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" align="baseline"
border="0" width="14" height="14">
  <param name="AllowAddnew" value="true">
  <param name="AllowDelete" value="true">
  <param name="AllowUpdate" value="true">
  <param name="allowarrows" value="true">
</object>
</font>
<hr color="#ff0000">
<div align="center"><center>

<table border="1" cellspacing="1" width="747" height="336">
  <tr>
    <td width="664" valign="top" height="166">
    <OBJECT align=baseline classid="clsid:00028CD1-0000-0000-0000-000000000046" codeBase=http://xk_server/test/tdbg6.ocx 
	 CODEBASE="http://<%=Request.ServerVariables("SERVER_NAME")%>/school/public/tdbg6.ocx"
	dataSrc=#rds1 height=168 id=grid1 style="LEFT: 0px; TOP: 0px" width=567 border = 0 VIEWASTEXT></OBJECT>
    </td>
    <td width="411" valign="middle" height="357" rowspan="2" bgcolor="#003366">

    <p><font color="#ffffff">输入分类编号: </font></p>
    <p align="center"><input type="text" id="flbh" name="flbh" size="10"
    style="font-family: 宋体; font-size: 15"></p>
    <p align="left">　</p>
    <p align="center"><input type="button" value="查询数据" name="FIND"
    onclick="find_click()"
    style="BACKGROUND-COLOR: rgb(192,192,192); COLOR: rgb(0,0,255); FONT-FAMILY: 宋体; FONT-SIZE: 14px"
    height="22" width="60" name="button1"> </p>
    <p align="center"><input type="button" value="返    回" onclick="backing()"
    style="BACKGROUND-COLOR: rgb(192,192,192); COLOR: rgb(0,0,255); FONT-FAMILY: 宋体; FONT-SIZE: 14px"
    height="22" width="60" name="button1"></td>
  </tr>
  <tr>
    <td width="646" valign="top" height="191">
    <OBJECT align=baseline classid="clsid:00028CD1-0000-0000-0000-000000000046" 
	 CODEBASE="http://<%=Request.ServerVariables("SERVER_NAME")%>/school/public/tdbg6.ocx"
	dataSrc=#rds2 height=180 id=grid2 style="LEFT: 0px; TOP: 0px" width=571 border = 0 caption = ttt VIEWASTEXT></OBJECT>
    </td>
  </tr>
  <script language="vbscript">

  RDS1.Server = "http://<%=Request.ServerVariables("SERVER_NAME")%>"
  rds1.connect="database=school;uid=sa;pwd=;dsn=school"
  rds1.sql="select 分类编号,分类名称 from tfl where 类别编号='"&trim(<%=session("lbbh")%>)&"'"
  RDS1.EXECUTEOPTIONS=1
  rds1.refresh

  RDS2.server="http://<%=Request.ServerVariables("SERVER_NAME")%>"
  rds2.connect="database=school;uid=sa;pwd=;dsn=school"

  sub grid1_click()
   
    
     rds2.sql="select 书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+次序号,书名,作者,入库数量,出版社名称,单价,译者,页数 from ttsml where 分类编号='"&trim(grid1.columns.item(0))&"'and 类别编号='"&trim(<%=session("lbbh")%>)&"' "
     rds2.executeoptions=1
     rds2.refresh
	
	 
  end sub 

sub find_click()

    if len(trim(flbh.value))=0 or trim(flbh.value)=""   then
     
      msgbox  "请输入查询条件!",,"提示"
      EXIT SUB
    
    ELSEif len(trim(flbh.value))<>0 or trim(flbh.value)<>""   then

     rds2.sql="select 书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+次序号,书名,作者,入库数量,出版社名称,单价,译者,页数 from ttsml where LTRIM(RTRIM(分类编号))='"&trim(FLBH.VALUE)&"' and 类别编号='"&trim(<%=session("lbbh")%>)&"' "
     rds2.executeoptions=1
     rds2.refresh

    if RDS2.recordset.recordcount <=0 then 
       msgbox "没有找到满足的条件",,"提示窗口"
    
      end if
    
    end if

    

  end sub


 sub find1_click()

    if (len(trim(flbh.value))=0 or trim(flbh.value)=""  ) and  (len(trim(flmc.value))=0 or trim(flmc.value)=""  )  then
     
      msgbox  "请输入查询条件!",,"提示"
      EXIT SUB
    
    ELSEif (len(trim(flbh.value))<>0 or trim(flbh.value)<>""  ) and  (len(trim(flmc.value))<>0 or trim(flmc.value)<>""  )  then
 

     rds2.sql="select 书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+次序号,书名,作者,入库数量,出版社名称,单价,译者,页数 from ttsml where LTRIM(RTRIM(分类编号))='"&trim(FLBH.VALUE)&"' AND LTRIM(RTRIM(分类名称))='"&trim(FLMC.VALUE)&"' and 类别编号='"&trim(<%=session("lbbh")%>)&"' "
     rds2.executeoptions=1
     rds2.refresh

	 ELSEIF (len(trim(flbh.value))<>0 or trim(flbh.value)<>""  ) and  (len(trim(flmc.value))=0 or trim(flmc.value)=""  )  then

     rds2.sql="select 书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+次序号,书名,作者,入库数量,出版社名称,单价,译者,页数 from ttsml where LTRIM(RTRIM(分类编号))='"&trim(FLBH.VALUE)&"' AND  类别编号='"&trim(<%=session("lbbh")%>)&"' "
     rds2.executeoptions=1
     rds2.refresh
    ELSEIF (len(trim(flbh.value))=0 or trim(flbh.value)=""  ) and  (len(trim(flmc.value))<>0 or trim(flmc.value)<>"")  then

    rds2.sql="select 书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+次序号,书名,作者,入库数量,出版社名称,单价,译者,页数 from ttsml where LTRIM(RTRIM(分类编号))='"&trim(FLMC.VALUE)&"' AND  类别编号='"&trim(<%=session("lbbh")%>)&"' "
    rds2.executeoptions=1
    rds2.refresh

   end if

    

  end sub

sub backing()
    history.go(-1)
end sub    
</script>

</table>
</center></div>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -