<%
                if Request.QueryString("keyno")<>"" then
                
                sql="select title from miscell where keyno="+keyno
                set rss=server.createobject("adodb.recordset")
                 rss.Open sql,cn,1,1
                 if not rss.eof and not rss.bof then
                do while not rss.eof
                
                response.Write("&nbsp;&gt;&gt;&nbsp;"+rss(0))
                rss.movenext
                loop
                end if
                rss.close
                set rss=nothing
                end if                
                %>

if Request.QueryString("keyno")<>"" then '通过GET传递过来一个参数:KEYNO;并判断其是否为空;如果不是空就往下执行!
               
                sql="select title from miscell where keyno="+keyno '在表miscell中查询符合KEYNO所含值的数据!
                set rss=server.createobject("adodb.recordset")
                 rss.Open sql,cn,1,1
                 if not rss.eof and not rss.bof then '如果存在,把其循环输出!
                do while not rss.eof  
               
                response.Write(" &gt;&gt; "+rss(0))
                rss.movenext
                loop
                end if
                rss.close
                set rss=nothing
                end if               
                %>

xiexie!!!!

基本的数据库条件查询...呵呵