一个目录页面实现多个功能

我们常常在做页面的时候会遇到需要制作目录页面，其功能就是显示出各个类型的产品。假设我们现在数据库中的PRO表中存放某公司所有的产品信息。其中class标识出每个产品的类别。假设我们的浏览页面为list.asp 而客户要求第一次进去要看到所有的产品。然后进入不同的种类的时候显示出不同种类的产品。那么下面我们开始做了。

sql ="select * from [Dining]" 
if xclass<>"" then  
sql=sql&" where xclass="&xclass&" and class="&dclass&" " 
 end if
sql=sql&" order by id desc"

这样的话，就实现了功能。如果xclass为空，那么就查询所有的，如果不为空，就显示该类别的。
下面我贴个完整的。

 <table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
 
  xclass=request.QueryString("xclass")
          dclass=request.QueryString("dclass")
set rs=server.CreateObject("adodb.recordset")
sql ="select * from [Dining]" 
if xclass<>"" then  
sql=sql&" where xclass="&xclass&" and class="&dclass&" " 
 end if
sql=sql&" order by id desc"

rs.open sql,conn,1,1

Dim Rows,Row_Count
Rows=2 '列数
Row_Count=1      
%>
<tr>
<%Do While Not rs.EOF%>
<td width="77" height="22">
<table width="32%"  border="0" cellpadding="2" cellspacing="1">


                             <tr onMouseOver="this.style.backgroundColor='#fffff';MM_showHideLayers('LayerNew<%=rs("id")%>','','show')" onMouseOut="this.style.backgroundColor='';MM_showHideLayers('LayerNew<%=rs("id")%>','','hide')">
                               <td width="186" scope="row"><a href="Dining_display.asp?ID=<%=rs("id")%>" target="_blank"><img src="UpFile\<%response.Write(server.HTMLEncode(rs("pic")))%>" width="251" height="202" border="0" /></a></td>
                             </tr>
                             <tr onMouseOver="this.style.backgroundColor='#fffff';MM_showHideLayers('LayerNew<%=rs("id")%>','','show')" onMouseOut="this.style.backgroundColor='';MM_showHideLayers('LayerNew<%=rs("id")%>','','hide')">
                               <td scope="row"><div align="center"><a href="Dining_display.asp?ID=<%=rs("id")%>" target="_blank">
                                 ·
                                 <%response.Write(server.HTMLEncode(rs("Title")))%>
                               </a></div></td>
                             </tr>
                           </table>
</td>
<%If Row_Count Mod Rows=0 Then%>
</tr>
<%
End If
rs.movenext
Row_Count=Row_Count+1
loop
rs.close
Set rs=Nothing
%>
</table>