来自「我的图书管理系统」· 代码 · 共 105 行

TXT
105 行
字号 
<%
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>

- 源码说明

本页面展示了「我的图书管理系统」中的 源码文件，采用 编程语言编写，共 105 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与图书管理系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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