<%dim dsql="select * from cs1"set rs=server.CreateObject("ADODB.RecordSet")rs.Open sql,conn,1,1while not rs.eofif cInt(rs("id"))=10 thend=rs.Bookmarkend ifresponse.write(rs("id")&"-"&rs.bookMark&"<br>")rs.MoveNextwendrs.Bookmark=dresponse.write(rs("id")&"-<br>")while not rs.eofif cInt(rs("id"))=10 thend=rs.Bookmarkend ifresponse.write(rs("id")&"-"&rs.bookMark&"<br>")rs.MoveNextwend%>当你按照这个例子自己做一遍运行的时候你就会明白了!如果还不明白(那就别写程序了...)