[size=3][b]'假设已经连接到数据库

'取得数据库中数据
   <script language=vbscript>
   records.movefirst       
   do while not records.eof
   ...
   ...
   records.movenext
   loop

'寻找和数据库中的类别名称是否相同，如果相同则取出当前类别号退出循环，否则在末尾纪录号加1
   records.movefirst
   do while not records.eof
      cpclass=records("产品名称")
      if cp_class=cpclass then   '比较产品名称是否相等
         cp_class_id=records("cp_class_id")  '如果相等就把当前产品号负给变量
         exit do
      end if
   loop
   if records.eof then   '如果到了记录集末尾，末纪录号加1
      cp_class_id=cp_classs_id+1  
   end if
   </script>


   由于第一个do while已经执行到记录集末尾，可在第二个do while前加上records.movefirst后，程序就不能执行了，去掉，直接执行最后3行，我哪里做错了吗？[/b][/size]