الأول هو إنشاء مجموعة السجلات، رمز نسخ رمز الترحيل البسيط هو كما يلي:
<%
تعيين rs=server.createobject(adodb.recordset)
exce=sql 'بيان استعلام SQL
rs.open إكس، كون، 1،1
%>
ثم هناك إعداد خصائص الترحيل
<%
rs.PageSize=3 'تعيين رقم الصفحة
pagecount=rs.PageCount 'احصل على إجمالي رقم الصفحة
page=int(request(page)) 'استلام رقم الصفحة
إذا كانت الصفحة <=0 ثم الصفحة = 1 'القاضي
إذا كان الطلب (الصفحة) = ثم الصفحة = 1
rs.AbsolutePage=page 'قم بتعيين رقم الصفحة لهذه الصفحة
%>
وأخيرا، عرض الترحيل في الجسم
<%
إذا rs.bof وrs.eof ذلك الحين
استجابة.كتابة (فارغة)
آخر
لـ i=1 إلى rs.PageSize
استجابة.كتابة آر إس (الاسم)
استجابة.كتابة(<hr>)
rs.movenext
التالي
نهاية إذا
%>
<ص>
<%if page=1 وليس page=pagecount ثم%>
الصفحة الرئيسية|الصفحة السابقة
<a href=log1.asp?page=<%=page+1%>>الصفحة التالية</a>|
<a href=log1.asp?page=<%=pagecount%>>الصفحة الأخيرة</a>
<%elseif page<>1 وليس page=pagcount ثم%>
<a href=log1.asp?page=1>الصفحة الرئيسية</a>|
<a href=log1.asp?page=<%=page-1%>>الصفحة السابقة</a>|
<a href=log1.asp?page=<%=page+1%>>الصفحة التالية</a>|
<a href=log1.asp?page=<%=pagecount%>>الصفحة الأخيرة</a>
<%elseif page=pagecount ثم%>
<a href=log1.asp?page=1>الصفحة الرئيسية</a>|
<a href=log1.asp?page=<%=page-1%>>الصفحة السابقة</a>|
الصفحة التالية|
الصفحة الأخيرة
<%نهاية إذا%>