取任意10条记录

< %  
   n = 10     ’’取任意10条记录  
    set  rs  =  server.CreateObject ( " adodb.recordset " )  
      sql  =   " select * from table "   
      rs.open sql,conn, 1 , 1   
      count = rs.recordcount   ’’记录总数  
       IF  Count <> empty   Then   
          Randomize          
         for  i  =   1   to  n       ’’循环n次  
           num = Fix ( Rnd * count) ’’num便是随机产生的记录行数，用Fix()，使其不会大于count值。  
           rs.move num    ’’移到改随机行  
           Response.write rs( 0 )   ’’出该条记录  
        rs.movefirst     ’’别忘了再把指针移到第一条  
         next   
       End   IF   
      rs.close  
    set  rs  =   nothing   
% >