📄

📁 我的图书管理系统

💻

字号:

<%

Function SqlStr( data )
   SqlStr = "'" & Replace( data, "'", "''" ) & "'"
End Function



Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "database=school;uid=sa;pwd=;dsn=school"

Set rs = Server.CreateObject("ADODB.Recordset")


Set conn1 = Server.CreateObject("ADODB.Connection")

conn1.Open "database=school;uid=sa;pwd=;dsn=school"

Set rs1 = Server.CreateObject("ADODB.Recordset")



'IF LEN(start_bh)>0 and len(end_bh)>0 THEN

   
   
   sql="select 借书证号,编号,姓名 FROM TJSz "
 
   rs.open sql,conn,3
   
   IF RS.RecordCount < 0 THEN
     
     Response.Write "没有借书证记录!请重新输入"
     Response.End 
     
 
   END IF
 
  

%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>借书证目录表</title>
</head>

<body background="b01.jpg">

<p align="center">借书证目录表</p>
<div align="center"><center>

<table border="1" height="57" width="288" style="HEIGHT: 57px; WIDTH: 288px">
  <tr>
    <td width="101"><p align="center">借书证号</p></td>
    <td width="55"><p align="right">编号</p></td>
    <td width="34"><p align="center">姓名</p></td>
  </tr>
    <% Do While Not rs.EOF
    %>
  <tr>
    <td width="101">
            <input Size="12" value=" <%=rs.Fields(0).value %>"></td>
    <td width="55">
            <input Size="12" value=" <%=RS.Fields(1).VALUE %>"></td>
    <td width="34"><input Size="8" value="<%=RS.Fields(2).VALUE%>" ></td>
  </tr>
    <%rs.MoveNext 

Loop 
%>
    
</table>
</center></div>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -