求助高手！在线等待

[119311canoe]

1.asp
这是查询的一个下拉框：
<div align="center"><select name="kind" id="kind">
<option value="all">--全部类别--</option>
<option value="1">经济管理类</option>
<option value="2">社科人文类</option>
<option value="3">计算机类</option>
<option value="4">法律法规类</option>
<option value="5">休闲生活类</option>
<option value="6">考试用书类</option>
</select></div>
2.asp
<%
set session("rs")=server.CreateObject("adodb.recordset")
strsql="select * from bookcity_book where "&request("key")&" like '%"&request("keyword")&"%' and class_id= '"&request("kind")&"'"
session("rs").CursorType = 3
session("rs").CursorLocation = 3
session("rs").LockType = 3
session("rs").pagesize=6
session("rs").Open strsql,application("cn"),3
%>
当我选择每个分类时图书都可以显示。
但是，但我选择--全部类别--时却告诉我找不到图书了！
全部类别的value好象不对，class_id里只有1 2 3 4 5 6
没有all，选全部时就要从把 and class_id= '"&request("kind")&"'去掉。

[cshadow]

if request("kind")<>"all" then
list=" and class_id= '"&request("kind")&"'"
else
list=""
end if

set session("rs")=server.CreateObject("adodb.recordset")
strsql="select * from bookcity_book where "&request("key")&" like '%"&request("keyword")&"%' "&list

[Primer2002cn]

if request("kind")="all" then
strsql="select * from bookcity_book where "&request("key")&" like '%"&request("keyword")&"%' "
end if