select top 2 * from 表名 where 条件
这是取数据的前两条的方法

//记录集条数多于2条的时候显示前2条数据，且把后几条信息2条2条的存到另一个数据库中
if rs2.recordcount>2 then
  i=0
  carhao="["&request("carnum")&"]"
do while not rs2.eof
   dim tnum,tnum2
   if i>1 then 
   tnum2=tnum2&year(rs2("time2"))&"."&month(rs2("time2"))&"."&day(rs2("time2"))&"("&rs2("style")&"):"&rs2("address2")&";"
   else
   tnum=tnum&year(rs2("time2"))&"."&month(rs2("time2"))&"."&day(rs2("time2"))&"("&rs2("style")&"):"&rs2("address2")&";"
   end if       
   i=i+1
rs2.movenext
loop
tnum3=split(tnum2,";")
for k=0 to ubound(tnum3) step 2
set rs3=server.CreateObject("adodb.recordset")
sql="select * from t_temp"
rs3.open sql,conn,1,3
rs3.addnew
rs3("hao")=request("carnum")
if tnum3(k+1)<ubound(tnum3) then
rs3("content")=tnum3(k)&";"&tnum3(k+1)
end if 
rs3.update
rs3.close
set rs3=nothing
next
response.write tnum2
response.write "<br>"
response.write tnum
response.write "<br>"
乱了，大家帮我看看啊，现在如果记录的条数为偶数是错误的，说“下标越界: '[number: 3]' ”，是奇数的时候却是正确的， 我实在是看不出来了，程序也写的有点乱，我很急，在线等啊。。。

二楼的朋友你没有看清楚我的意思啊

且把后几条信息2条2条的存到另一个数据库中?为什么不1条1条的存?

就是我说的啊，不要为什么，郁闷，谁帮我回答了给谁加分！