📄

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

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

'start_bh= Request("start_bh")
'end_bh = Request("end_bh")

'start_bh = rtrim(ltrim(Left( start_bh, 10 )))
'end_bh = rtrim(ltrim(Left( end_bh, 10 )))

'If  (len(start_bh)=0 AND  len(end_bh)=0) or (start_bh=" " and end_bh=" ") or (len(start_bh)=0 and len(end_bh) <> 0) or (start_bh=" " and end_bh<>" ")  then

 '  Response.Write "请输入查寻起始分类编号和终止分类编号!"
   
 '  Response.End 
   
'End If

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 TJSDJ "
 
   rs.open sql,conn,3
   
   IF RS.RecordCount > 0 THEN
     
     XH=trim(RS.Fields(0).VALUE)+"/"+trim(RS.Fields(1).VALUE)+"-"+trim(RS.Fields(2).VALUE)
 
   END IF
 

    
  
 'else
   
  ' if len(end_bh)=0 then 
 
   '  end_bh="0"
    
   'end if  
 
   'sql1="Execute P_TSML_kc_PRINT " +"'"+START_BH+"'," +"'"+END_BH+"'"
  
  ' rs1.open sql1,conn1,3
   
   

'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="50" width="523">
  <tr>
    <td width="68"><p align="center">书号</td>
    <td width="104"><p align="center">借书证号</td>
    <td width="82"><p align="center">借书日期</td>
    <td width="64"><p align="center">限借天数</td>
  </tr>
<%' IF LEN(start_bh)>0 and len(end_bh)>0 and end_bh<> "0" THEN %>
<% Do While Not rs.EOF
    %>
  <tr>
    <td width="68"><input Type="Text" Size="16" value="<%=XH %>"></td>
    <td width="104"><input Type="Text" Size="12" value="<%=RS.Fields(3).VALUE %>"></td>
    <td width="82"><input Type="Text" Size="8" value="<%=RS.Fields(4).VALUE%>"></td>
    <td width="64"><input Type="Text" Size="10" value="<%=RS.Fields(5).VALUE %>"></td>
  </tr>
<%rs.MoveNext 

Loop 
%>
</table>
</center></div>
</body>
</html>
⌨️ 快捷键说明

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