📄 -+-
字号:
<%
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="Execute P_TSML_PRINT " +"'"+START_BH+"'," +"'"+END_BH+"',"+"'"+session("lbbh")+"'"
rs.open sql,conn,3
else
if len(end_bh)=0 then
end_bh="0"
end if
sql1="Execute P_TSML_PRINT " +"'"+START_BH+"'," +"'"+END_BH+"'"+"'"+session("lbbh")+"'"
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="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="88"><p align="center">出版社名称</td>
<td width="70"><p align="center">入库数量</td>
<td width="70"><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="109"><input Type="Text" Size="12" value=<%=rs.Fields(0).value %>></td >
<td width="220"><input Type="Text" Size="35" value=<%=RS.Fields(1).VALUE %>></td >
<td width="100"><input Type="Text" Size="16" value=<%=RS.Fields(2).VALUE%>></td>
<td width="70"><input Type="Text" Size=14" value=<%=RS.Fields(3).VALUE %>></td >
<td width="70"><input Type="Text" Size="5" value=<%=rs.Fields(4).value %>></td>
<td width="70"><input Type="Text" Size="8" value=<%=rs.Fields(5).value %> ></td >
</tr>
<%rs.MoveNext
Loop
%>
<% ELSE %>
<% Do While Not rs1.EOF %>
<tr>
<td width="109"><input Type="Text" Size="12" value=<%=rs1.Fields(0).value %> ></td >
<td width="220"><input Type="Text" Size="35" value=<%=RS1.Fields(1).VALUE %> ></td >
<td width="100"><input Type="Text" Size="12" value=<%=RS1.Fields(2).VALUE%> ></td>
<td width="70"><input Type="Text" Size="8" value=<%=RS1.Fields(3).VALUE %> ></td >
<td width="70"><input Type="Text" Size="10" value=<%=rs1.Fields(4).value %> ></td>
<td width="70"><input Type="Text" Size="8" value=<%=rs1.Fields(5).value %> ></td >
</tr>
<%rs1.MoveNext
Loop
%>
<% END IF %>
</table>
</center></div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -