<% dim title title=rs("title") %> <% Set rs= Server.CreateObject("ADODB.Recordset") sql="select top 15 * from news where title like '%" & title & "%' order by id desc" rs.open sql,conn,1,1 rs.movenext() if rs.eof then response.Write("没有找到相关新闻") else