📄
字号:
<%
Function SqlStr( data )
SqlStr = "'" & Replace( data, "'", "''" ) & "'"
End Function
jszh= Request("jszh")
fllb = Request("fllb")
'response.write jszh
jszh = rtrim(ltrim(Left( jszh, 12 )))
fllb = rtrim(ltrim(Left( fllb, 10 )))
If (len(jszh)=0 AND len(fllb)=0) or (jszh=" " and fllb=" ") then
Response.Write "请输入查寻条件借书证号或分类编号!<a href=图书日常业务管理.htm>返回</a>"
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")
Set conn2 = Server.CreateObject("ADODB.Connection")
conn2.Open "database=school;uid=sa;pwd=;dsn=school"
Set rs2 = Server.CreateObject("ADODB.Recordset")
Set conn3 = Server.CreateObject("ADODB.Connection")
conn3.Open "database=school;uid=sa;pwd=;dsn=school"
Set rs3 = 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
sql1="execute p_give_back" +"'"&fllb&"'"
rs1.Open sql1,conn1,3
'Response.Write rs1.RecordCount
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="Bkg35.jpg">
<p><img src="../images/Fishbowl.gif" height="50"> <font size="6" color="#0000ff">借书催还单</font>
<hr color="#ff0000"></p>
<br>
<div align="center"><center>
<table border="1" height="50" width="757">
<tr>
<td width="109"><p align="center">书号</td>
<td width="220"><p align="center">书名</td>
<td width="100"><p align="center">借书证号</td>
<td width="70"><p align="center">姓名</td>
<td width="70">借书日期</td>
<td width="70">限借天数</td>
</tr>
<% IF LEN(JSZH)>0 THEN %>
<% Do While Not rs.EOF %>
<tr>
<td width="109"><input Type="Text" Size="12" value=<%=xh%>></td>
<td width="220"><input Type="Text" Size="35" value=<%=sm%>></td>
<td width="100"><input Type="Text" Size="12" value=<%=jszh%>></td>
<td width="70"><input Type="Text" Size="8" value=<%=xm%>></td>
<td width="70"><input Type="Text" Size="10" value=<%=jsrq%>> </td>
<td width="70"><input Type="Text" Size="2" value=<%=xjts%>> </td>
</tr>
<%rs.MoveNext
Loop
%>
<% ELSE %>
<% Do While Not rs1.EOF %>
<tr>
<td width="109"><input Type="Text" Size="12" value=<%=rs1.Fields(0) %></td>
<td width="220"><input Type="Text" Size="35" value=<%=RS1.Fields(1).VALUE %> id=Text2 name=Text2></td>
<td width="100"><input Type="Text" Size="12" value=<%=RS1.Fields(2).VALUE%> id=Text3 name=Text3></td>
<td width="70"><input Type="Text" Size="8" value=<%=RS1.Fields(3).VALUE %> id=Text4 name=Text4></td>
<td width="70"><input Type="Text" Size="10" value=<%=rs1.Fields(4).value %> id=Text5 name=Text5> </td>
<td width="70"><input Type="Text" Size="2" value=<%=rs1.Fields(5).value %> id=Text6 name=Text6> </td>
</tr>
<%rs1.MoveNext
Loop
%>
<% END IF %>
</table>
</center></div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -