📄 search.asp
字号:
<!-- #include file="conn.asp" -->
<body bgcolor="">
<SCRIPT LANGUAGE="vbScript">
<!--
Sub search()
If f1.txt.value<>"" Then
if not (isnumeric(f1.txt.value)) then
msgbox"必须为数字！"
Else
f1.action="search.asp"
f1.submit
End if
Else
msgbox"请输入关键字"
End if
End sub
//-->
</SCRIPT>
<style>
table tr{text-align:center}
</style>
<FORM METHOD=POST ACTION="" name="f1">
<TABLE border="1" bordercolor="#9933FF" align="center">
<TR>
<TD height="40">
选择搜索目标：<SELECT NAME="aa">
<OPTION VALUE="1">搜索图书
<OPTION VALUE="2">搜索借阅记录
</SELECT>
</TD>
<TD height="40">
选择搜索内容：<SELECT NAME="bb">
<OPTION VALUE="1">按图书名搜索
<OPTION VALUE="2">按编号搜索
</SELECT>
</TD>
</TR>
<TR>
<TD colspan="2" height="40">输入关键字：<INPUT TYPE="text" NAME="txt"></FONT></TD>
</TR>
<TR>
<TD height="30"><A HREF="#" onclick="search()">确 定</a></TD>
<TD><A HREF="#">取 消</a></TD>
</TR>
</TABLE>
<%
Dim str,State
If request("txt")<> "" then
Select Case request("aa")
Case "1"
If request("bb")=1 Then
Set rec=conn.execute("select * from book where book_name like '%"&request("txt")&"%'")
Else
Set rec=conn.execute("select * from book where book_ID like '%"&request("txt")&"%'")
End if
Case "2"
If request("bb")=2 Then
Set rec=conn.execute("select * from readers where book_ID like '%"&request("txt")&"%'")
End if
End Select
If request("aa")=2 And request("bb")=1 Then
response.write "<CENTER><FONT COLOR=""red"">无法搜索图书名,请按编号搜索!</FONT></CENTER>"
else
If Not rec.eof then
If request("aa")=1 then
Do While Not rec.eof
If rec(5)=0 Then
State="<FONT COLOR=""#FF0066"">库存</FONT>"
Else
State="<FONT COLOR=""#FFCC66"">借出</FONT>"
End if
%>
<p>
<TABLE border="1" bordercolor="#FF00CC">
<TR>
<TD width="80" height="35">图书编号</TD>
<TD width="190">图书名</TD>
<TD width="100">作者</TD>
<TD width="130">出版社</TD>
<TD width="110">类别</TD>
<TD width="90">状态</TD>
<TD width="80">价格</TD>
</TR>
<TR>
<TD height="35"><%=rec(0)%></TD>
<TD><%=rec(1)%></TD>
<TD><%=rec(2)%></TD>
<TD><%=rec(3)%></TD>
<TD><%=rec(4)%></TD>
<TD><%=State%></TD>
<TD><%=rec(6)%>元</TD>
</TR>
</table>
<%
rec.movenext
Loop
ElseIf request("aa")=2 And request("bb")<>1 then
%>
<p>
<TABLE border="1" bordercolor="#FF00CC">
<TR>
<TD width="120" height="35">图书编号</TD>
<TD width="200">图书名</TD>
<TD width="140">借阅用户</TD>
<TD width="180">借阅时间</TD>
<TD width="180">截止时间</TD>
<TD width="80">状态</TD>
</TR>
<%
Do While Not rec.eof
'查询图书名
Set rec2=conn.execute("select book_name from book where book_id='"&rec(1)&"'")
%>
<TR>
<TD height="35"><%=rec(1)%></TD>
<TD><%=rec2(0)%></TD>
<TD><%=rec(2)%></TD>
<TD><%=rec(3)%></TD>
<TD><%=rec(4)%></TD>
<%
Dim str3
str3="select Book_return from readers where ID='" & rec(0) & "'"
Set recmy=conn.execute(str3)
If recmy(0)=0 then
%>
<td><A href="#" onclick="return(<%=rec(0)%>)">归还</a></td>
<%
Else
%>
<td><FONT COLOR="red">已归还</FONT></a></td>
<%
End if
%>
</TR>
<%
rec.movenext
Loop
End If
Else
response.write "<CENTER><FONT COLOR=""red"">没有搜索到相关信息!</FONT></CENTER>"
End If
End if
End if
%>
</FORM>
</body>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -