⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄

📁 我的图书管理系统
💻
字号:
🔍 
<%

vServer="http://" & Request.ServerVariables("Server_name")


%>
<%
dim Pri
mkmc=request("mkmc")
Pri=CheckUrl("查询外借图书目录")
%>
<!--#include virtual="/school/public/CheckUrl.asp"-->
<html>

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

<body background="Bkg35.jpg">

<p><img src="soft.gif" width="40" height="30"><font size="6" color="#0000ff">外借图书目录查询 
<object id="RDS1" classid="ClsID:BD96C556-65A3-11D0-983A-00C04FC29E33" align="baseline"
border="0" width="25" height="4">
  <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="26" height="12">
  <param name="AllowAddnew" value="true">
  <param name="AllowDelete" value="true">
  <param name="AllowUpdate" value="true">
  <param name="allowarrows" value="true">
</object>
</font></p>

<hr color="#0000ff">
<script language="vbscript">
   public  text11
   search_flag=true
    RDS1.Server = "http://<%=Request.ServerVariables("SERVER_NAME")%>"

    RDS1.Connect = "database=school;uid=sa;pwd=;dsn=school"

   ' RDS1.SQL = "select tjsdj.分类编号,tjsdj.主序号,tjsdj.次序号,tjsdj.借书证号,tjsdj.借出日期,tjsdj.限制天数,tfl.分类名称,ttsml.书名 from tjsdj,ttsml,tfl where tjsdj.分类编号=ttsml.分类编号 and tjsdj.分类编号=tfl.分类编号 "  
       
	RDS1.SQL = "select tjsdj.分类编号,种次号=tjsdj.主序号,tjsdj.次序号,tjsdj.借书证号,tjsdj.借出日期,tjsdj.限借天数 from tjsdj  where tjsdj.类别编号='<%=session("lbbh")%>' order by tjsdj.分类编号 "
   
    saveSQL=RDS1.sql
 	
 	rds1.executeoptions=1

    RDS1.Refresh

   ' RDS2.Server = "http://220.220.220.250"

  '  RDS2.Connect = "database=school;uid=sa;pwd=;dsn=school"

   
</script>
<div align="left">

<table border="1" width="750" height="235">
  <tr>
    <td valign="top" width="78%" height="229">
    <object align="baseline" classid="clsid:00028CD1-0000-0000-0000-000000000046"
     CODEBASE="http://<%=Request.ServerVariables("SERVER_NAME")%>/school/public/tdbg6.ocx"
    
    dataSrc="#rds1" height="300" id="grid1" name="grid1" style="LEFT: 0px; TOP: 0px"
    width="650" border="0" VIEWASTEXT>
    </object>
    <br>
    借书证号:<input type="text" name="jszh" SIZE="12"
    style="font-family: 宋体; font-size: 13"> <input type="button" value="查  询"
    name="FIND" onclick="FIND_CLICK()"
    style="color: rgb(0,0,255); font-family: 宋体; font-size: 15"> </td>
    <td valign="top"><p align="center"><input type="button" value="第 一 条" name="insert"
    onclick="movefirst()" style="color: rgb(0,0,255);font-family: 宋体; font-size: 15"></p>
    <p align="center"><input type="button" value="上 一 条" name="delete"
    onclick="MovePrevious" style="color: rgb(0,0,255);font-family: 宋体; font-size: 15"></p>
    <p align="center"><input type="button" value="下 一 条" name="save"
    onclick="movenext()" style="color: rgb(0,0,255);font-family: 宋体; font-size: 15"></p>
    <p align="center"><input type="button" value="最后一条" name="cancle"
    onclick="movelast()" style="color: rgb(0,0,255);font-family: 宋体; font-size: 15"></p>
    <p align="center"><input type="button" value="资料刷新" name="refresh8"
    onclick="refreshing()" style="color: rgb(0,0,255);font-family: 宋体; font-size: 15"></p>
    <p align="center"><input type="button" value="返    回" name="return"
    onclick="returning()" style="color: rgb(0,0,255);font-family: 宋体; font-size: 15"></p>
    <p>　</td>
  </tr>
</table>
</div><script language="vbscript">
 
  'grid1.AllowAddnew = true

 ' grid1.AllowDelete = true

 ' grid1.AllowUpdate = true

</script>
<script language="vbscript">


  sub find_click()
  
    RDS1.SQL = "select tjsdj.分类编号,tjsdj.主序号,tjsdj.次序号,tjsdj.借书证号,tjsdj.借出日期,tjsdj.限借天数 from tjsdj where 借书证号='"&rtrim(jszh.value)&"'"
    RDS1.ExecuteOptions = 1
    RDS1.Refresh  
    
    if RDS1.Recordset.recordcount <=0 then
     msgbox "没有找到满足的条件",,"提示窗口"  
  
    end if      
     
  end sub

  Sub MoveFirst()

  RDS1.Recordset.MoveFirst

End Sub

Sub MovePrevious()
   If Not RDS1.Recordset.BOF Then
      RDS1.Recordset.MovePrevious
    else
	msgbox "已经到最上一条了!"
   End If
End Sub

Sub MoveNext()
   If Not RDS1.Recordset.EOF Then
      RDS1.Recordset.MoveNext
    else
     msgbox "已经到最后一条了!"
   End If
End Sub

Sub MoveLast()
   RDS1.Recordset.MoveLast
End Sub

sub returning()
   history.go(-1)
end sub   

sub refreshing()
   if search_flag then
      rds1.sql=saveSQL
      
     RDS1.ExecuteOptions =1
     RDS1.Refresh 
     jszh.value ="" 
   end if
end sub    
</script>

</body>
</html>

⌨️ 快捷键说明

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