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

📄

📁 我的图书管理系统
💻
字号:
🔍 
<%
vServer="http://" & Request.ServerVariables("Server_name")
%>
<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="B01.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>

<font size="5">I C 卡更换记录<script language="vbscript">
   public  text11
    RDS1.Server = "http://220.220.220.250"

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

    RDS1.SQL = "select * from TICHIST"

	rds1.executeoptions=1

    RDS1.Refresh


    
</script></font></p>

<hr>
<div align="left">

<table border="1" width="100%">
  <tr>
    <td valign="top" width="78%">
    <object id="grid1" name="grid1" classid="clsid:00028CD1-0000-0000-0000-000000000046"
    align="baseline" border="0" width="568" height="329" datasrc="#rds1">
	<param name="allowaddnew" value="0">
      <param name="allowupdate" value="0">
    </object>
    </td>
    <td valign="middle" width="22%"><h5 align="center">&nbsp;<font color="#0000FF">&nbsp;</font></h5>
    <h5 align="center"><input type="button" value="第 一 条" name="insert" onclick="movefirst()"
    style="font-family: 宋体; font-size: 18"></h5>
    <p align="center"><input type="button" value="上 一 条" name="delete"  onclick="MovePrevious()"
    style="font-family: 宋体; font-size: 18"></p>
    <p align="center"><input type="button" value="下 一 条" name="save"   onclick="MoveNext()"
    style="font-family: 宋体; font-size: 18"></p>
    <p align="center"><input type="button" value="最后一条" name="cancle"  onclick="movelast()"
    style="font-family: 宋体; font-size: 18"></p>
    <p>　</td>
  </tr>
</table>
</div>





<p><script language="vbscript">

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

</script> </p>




</body>
</html>

⌨️ 快捷键说明

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