📄

📁 我的图书管理系统
💻
字号:
<%
vServer="http://" & Request.ServerVariables("Server_name")
%>

<%
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=gb_2312-80">
<meta name="tjh" content="Microsoft FrontPage Express 2.0">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>I C 卡更换记录 欢迎使用欣科软件</title>
</head>

<body background="Bkg35.jpg">

<p>
<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>

<script language="vbscript">
   public  text11
    RDS1.Server = "http://<%=Request.ServerVariables("Server_name")%>"

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

    'RDS1.SQL = "select * from TICHIST"
    RDS1.SQL = "select 借书证号,原IC卡号,新IC卡号,变换日期 from TICHIST"
	rds1.executeoptions=1

    RDS1.Refresh


    
</script>


<div align="center">

<table border="1" width="705">
 <caption align="left"><img src="../images/soft.gif" width="50" height="35"><font size="6" color="#0000ff">I C 卡更换记录</font></caption> 
  <tr>
      <td valign="top" width="78%">
    <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=568 
	border="0" VIEWASTEXT></OBJECT>
    借书证号:<input type="text"  name="jszh" SIZE="12" style="font-family: 宋体; font-size: 13">
    <input type="button"  value="查   询" name="FIND" onclick="FIND_CLICK()" style="font-family: 宋体; font-size: 13">
    </td>
    <td valign="middle" width="22%" bgcolor="#003366">
    <p align="center"><input type="button" value="第 一 条" name="insert" onclick="movefirst()"
    style="font-family: 宋体; font-size: 14"></h5>
    <p align="center"><input type="button" value="上 一 条" name="delete"  onclick="MovePrevious()"
    style="font-family: 宋体; font-size: 14"></p>
    <p align="center"><input type="button" value="下 一 条" name="save"   onclick="MoveNext()"
    style="font-family: 宋体; font-size: 14"></p>
    <p align="center"><input type="button" value="最后一条" name="cancle"  onclick="movelast()"
    style="font-family: 宋体; font-size: 14">
    <p align="center"><input type="button" value="退    出" name="return"  onclick="returning()"
    style="font-family: 宋体; font-size: 14"></p>
     </td>
  </tr>
</table>
</div>





<script language="vbscript">


  sub find_click()
     if len(trim(jszh.value))=0 then
		msgbox "请先输入查询条件！"
		exit sub
    end if
	
	'rds1.sql =savesql + " where " + condition_id.value
  
    RDS1.SQL = "select 借书证号,原IC卡号,新IC卡号,变换日期 from TICHIST 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    
</script> 




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

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