%
dim d
sql="select * from cs1"
set rs=server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
while not rs.eof
if cInt(rs("id"))=10 then
d=rs.Bookmark
end if
response.write(rs("id")"-"rs.bookMark"br>")
rs.MoveNext
wend
rs.Bookmark=d
response.write(rs("id")"-br>")
while not rs.eof
if cInt(rs("id"))=10 then
d=rs.Bookmark
end if
response.write(rs("id")"-"rs.bookMark"br>")
rs.MoveNext
wend
%>
當你按照這個例子自己做一遍運行的時候你就會明白了!如果還不明白(那就別寫程序了...)
