<%
dim i ,rs
dim page
if request.querystring("page")="" then
page=1
else
page=cint(request.QueryString("page"))
end if
set rs=server.CreateObject("adodb.recordset")
rs.pagesize=20
rs.CursorType = adOpenStatic
rs.open "select * from dvd",con,3,1
for i=1 to rs.pagecount
'response.write cstr(rs.RecordCount)+"|" +cstr(rs.pagecount)
response.Write("<a href=showdvd.asp?page="+cstr(i)+">"+cstr(i)+"</a>")
if i<>rs.pagecount then
response.Write("|")
end if
next
if rs.recordcount<>0 and (not rs.eof) and page<>1 then
rs.move 20*(page-1),adBookmarkFirst
end if
%>
还有一句放在TABLE下面
<%    
     for i=1 to 20
     if rs.eof then
     exit for
     end if
%>