处理搜索代码

处理搜索代码 clss_dm.asp

<%@Language="VBScript" CodePage="CP_ACP"%>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb_2312-80">
<TITLE>处理搜索</TITLE>
</HEAD>

<BODY BACKGROUND="../cys.jpg">

<%
'1.使用表单提交的数据（搜索关键字 ssgjz）对变量赋值
dim ssgjz
ssgjz=request.querystring("ssgjz")

'2.用户输入的关键字不为空，进行后面的操作
if ssgjz<>"" then

'3.打开图书记录表
rs.open"select * from 图书记录表 where 图书名称 like '%"+ssgjz+"%' or 作者 like '%"+ssgjz+"%' or 出版社 like '%"+ssgjz+"%' ",cn,3
%>
<p align="center"><b><font color="#0000FF">搜索图书结果</font></b>
</p>

<div align="center">
<center>
<table border="1" cellpadding="5" cellspacing="0" bordercolor="#008000" bgcolor="#00FF00">
<tr>
<td align="center"><div align="center"><font color="#FF00FF">图书号</font></div></td>
<td align="center"><div align="center"><font color="#FF00FF">图书名称</font></div></td>
<td align="center"><div align="center"><font color="#FF00FF">作者</font></div></td>
<td align="center"><div align="center"><font color="#FF00FF">出版社</font></div></td>
<td align="center"><div align="center"><font color="#FF00FF">图书定价</font></div></td>
<td align="center"><div align="center"><font color="#FF00FF">选购图书</font></div></td>
</tr>

<%
'4.循环输出记录
do while not rs.eof
%>

<tr>
<td align="center"><div align="right">
<% =rs("图书号")%>
</div></td>
<td align="center"><div align="left">
<% =rs("图书名称")%>
</div></td>
<td align="center"><div align="left">
<% =rs("作者")%>
</div></td>
<td align="center"><div align="left">
<% =rs("出版社")%>
</div></td>
<td align="center"><div align="right">
<% =rs("图书定价")%>
</div></td>
<td align="center">
<a href="tsdg.asp?yfcz=select&tsh=<%=rs("图书号")%>">购买</a>
</td>
</tr>

<%
'5.移到下一记录
if not rs.eof then rs.movenext
loop
%>
</table>
</center>
</div>

<%
'6.关闭 Recordset 对象
rs.close

'关闭连接，并释放 Recordset 对象
cn.close
set rs=nothing

else
message="请你输入搜索关键字！"
end if
%>

<p align="center">