<%
                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                
                %>

xiexie!!!!