شرح تفصيلي لإنتاج الترحيل المعياري asp

الترحيل المعياري

1. كتلة بيان الاستعلام

<%
احصل على اسم الملف الحالي
درجة الحرارة = سبليت (طلب.ServerVariables("URL")، "/")
fy = درجة الحرارة (UBound (درجة الحرارة))
مجموعة rs=server.createobject("adodb.recordset")
إذا لم يكن فارغًا (طلب ("صفحة")) إذن
عدد الصفحات = سينت (طلب ("الصفحة"))
آخر
عدد الصفحات=1
نهاية إذا
sql = "اختر بيان الاستعلام"
rs.open SQL، كون، 1،1
rs.pagesize=10 عدد سجلات الترحيل
إذا كان عدد الصفحات>rs.pagecount أو عدد الصفحات <=0
عدد الصفحات=1
نهاية إذا
إذا كان rs.eof و rs.bof ثم٪>

<div align="center" class="001"><br>
عذرا، لا توجد سجلات تطابق معايير البحث! <ر>
</div>

2. عرض كتلة السجل

<%
آخر
rs.AbsolutePage=pagecount
افعل بينما لا rs.eof %>

السجلات المعروضة

<% i=i+2
rs.movenext
إذا i>=rs.PageSize ثم قم بالخروج
حلقة
"www.downcodes.com."
%>

3.
تأثير ترقيم الصفحات
<عرض الجدول = "778" الحدود = "0" محاذاة = "المركز" خلية الحشو = "0" تباعد الخلايا = "0">
<tr align="center">
<% إذا كان rs.pagecount=1 ثم %>
<td height="35" colspan="4" class=001><font color="#000000">يوجد [<font color="#ff0000"><%=rs.recordcount%></font>] إجمالي المعلومات المعروضة حاليًا هي <font color="red">1~<%=rs.recordcount%></font></font></td>
</tr>
<تر>
<%آخر%>
<td width="19%" height="35" align="center" valign="middle" class=001><font color="#000000">
<% page_start=(pagecount-1)*rs.pagesize
إذا كان عدد الصفحات = 1، فإن page_start = 1
page_end=rs.pagesize*pagecount
إذا كان عدد الصفحات*rs.pagesize=>rs.recordcount، فإن page_end=rs.recordcount ينتهي إذا%>
إجمالي معلومات [<font color="#ff0000"><%=rs.recordcount%></font>]</font></td>
<td width="58%" height="30" align="center" class="fy"><font color="#000000">
<%
إذا كان عدد الصفحات>5 وعدد الصفحات< rs.PageCount-5 وrs.pagecount>10 ثم
qizu=pagecount-4
الحد الأدنى=عدد الصفحات+5
Response.write"<a href="&source&"?page=1&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>الصفحة الرئيسية</font></a>&nbsp;"
Response.write"<a href="&source&"?page="+cstr(pagecount-1)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>الصفحة السابقة</font></a>&nbsp;"
لـ ipage=qizu إلى min
إذا ipage<>pagecount بعد ذلك
Response.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><font color='0000BE' >"+cstr(ipage)+"</font></a>&nbsp;"
آخر
Response.write "<font color='#FF0000'>"&ipage&"</font> "
نهاية إذا
التالي
Response.write"<a href="&source&"?page="+cstr(pagecount+1)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>الصفحة التالية</font></a>&nbsp;"
Response.write"<a href="&source&"?page="+cstr(rs.PageCount)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>الصفحة الأخيرة</font></a>"
نهاية إذا
إذا كان rs.PageCount <11 ثم
لـ ipage=1 إلى rs.PageCount
إذا ipage<>pagecount بعد ذلك
Response.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><font color='0000BE' >"+cstr(ipage)+"</font></a>&nbsp;"
آخر
Response.write "<font color='#FF0000'>"&ipage&"</font> "
نهاية إذا
التالي
نهاية إذا
إذا كان عدد الصفحات <6 وrs.PageCount>10 ثم
لـ ipage=1 إلى 10
إذا ipage<>pagecount بعد ذلك
Response.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><font color='0000BE' >"+cstr(ipage)+"</font></a>&nbsp;"
آخر
Response.write "<font color='#FF0000'>"&ipage&"</font> "
نهاية إذا
التالي
Response.write "<a href="&source&"?page="+cstr(rs.PageCount)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>الصفحة الأخيرة</font></a>"
نهاية إذا
إذا كان عدد الصفحات> rs.PageCount-6 و rs.PageCount> 10 ثم
Response.write "<a href="&source&"?page=1&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>الصفحة الرئيسية</font></a>&nbsp;"
من أجل ipage=rs.PageCount-9 إلى rs.PageCount
إذا ipage<>pagecount بعد ذلك
Response.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><font color='0000BE' >"+cstr(ipage)+"</font></a>&nbsp;"
آخر
Response.write "<font color='#FF0000'>"&ipage&"</font> "
نهاية إذا
التالي
نهاية إذا
%>
</font></td><form name=go2to form way=Post action=<%=fy%>>
<td width="13%" align="center" valign="middle" class="fy">
<نوع الإدخال='مخفي' الاسم='قيمة الفرز' ='<%=sortid%>'><نوع الإدخال='مخفي' اسم='typeid' value='<%=typeid%>"><نوع الإدخال= الاسم 'المخفي'='qylb' value="<%=qylb%>"><نوع الإدخال='المخفي' الاسم='العنوان' value="<%title%>"><نوع الإدخال='المخفي' الاسم= 'cityid' value="<%=cityid%>"><font color='000064'> انتقل إلى <input type='text' name='page' size=2 maxLength=3>
الصفحة</font>
</TD>
<td width="10%" align="center" valign="middle" class="fy"><input name="image" type='image' onClick=check() value='OK' src='. ./images/button_h.jpg'></td>
</النموذج>
<تر>
<td height="20" colspan="6" valign="bottom"><font color="#000000">&nbsp;
</tr>
<% نهاية إذا %>
<% نهاية إذا %>
</الجدول>