📄

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


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

jszh= Request("jszh")
fllb = Request("fllb")

'response.write jszh
If jszh=" " AND  fllb=" "  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")

jszh = rtrim(ltrim(Left( jszh, 12 )))
fllb = rtrim(ltrim(Left( fllb, 10 )))
'Response.Write len(jszh)

IF LEN(JSZH)>0 THEN

  sql="SELECT 姓名 FROM tjsz WHERE  借书证号= '"&jszh&"' "
  
   rs.open sql,conn,3
   
   if rs.RecordCount < 0 then
       Response.Write "借书证号输入错误、请重新输入!"
       Response.End 
   else
   
    xm=trim(rs.Fields(0).value) 
   
   end if
  rs.Close

 sql="SELECT 分类编号,主序号,次序号 FROM tjsDJ WHERE  借书证号= '"&jszh&"' and ltrim(rtrim(限制天数))<datediff(dy,借出日期,getdate())"


 rs.open sql,conn,3

if rs.RecordCount > 0 then

  flbh=trim(rs.Fields(0).value)
  jxh=trim(rs.Fields(1).value)
  cxh=trim(rs.Fields(2).value)

 else
 
    Response.Write "此借书证号没有借书、请重新输入!"
    Response.End 
    
end if
rs.Close


 sql="SELECT 书名  from ttsml WHERE  分类编号= '"&flbh&"' and 主序号='"&jxh&"' and 次序号='"&cxh&"' "

  rs.open sql,conn,3
 
 if rs.RecordCount > 0 then
 
    sm=trim(rs.Fields(0).value)
    
 end if   
  
rs.Close

  sql="SELECT 分类编号,主序号,次序号,借书证号,借出日期,限制天数 FROM tjsDJ WHERE  借书证号= '"&jszh&"' and ltrim(rtrim(限制天数))<datediff(dy,借出日期,getdate())"


  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)
    
    jsrq=rs.Fields(4).value 
    
    xjts=rs.Fields(5).value 
    
  else

    Response.Write "此借书证号没有借书、请重新输入!"
    Response.End 

  end if
  
ELSE
  
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="757">
  <tr>
    <td width="109"><p align="center">书号</td>
    <td width="230"><p align="center">书名</td>
    <td width="138"><p align="center">借书证号</td>
    <td width="88"><p align="center">姓名</td>
    <td width="88">借书日期</td>
    <td width="88">限借天数</td>
  </tr>
  <tr>
    <td width="109"><input Type="Text"  Size="10" value=<%=xh%>></td>
    <td width="230"><input Type="Text"  Size="40" value=<%=sm%>></td>
    <td width="138"><input Type="Text"  Size="12" value=<%=jszh%>></td>
    <td width="88"><input Type="Text"  Size="8"  value=<%=xm%>></td>
    <td width="88"><input Type="Text"  Size="8" value=<%=jsrq%>> </td>
    <td width="68"><input Type="Text"  Size="6" value=<%=xjts%>>  </td>
  </tr>

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

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