<span class="style45">
<%
مجموعة conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("sap_mis.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs = server.createobject("adodb.recordset")
sql = "اختر sap_adon_record.* من ترتيب sap_adon_record حسب s_id desc"
rs.open SQL، كون، 1، 1
%>
</span>
<عرض الجدول = "98%" الارتفاع = "10" الحدود = "1" محاذاة = "المركز" cellpadding = "0" تباعد الخلايا = "0" bordercolor = "#336699" bordercolordark = "#FFFFFF" فئة = "style45" >
<%if rs.EOF ثم%>
<تر>
<td align="center"><span style="color: #339933"><a href="add.asp">هل لديك أي أسئلة حول هذا الموضوع؟</a></span>
</TD>
</tr>
<%آخر%>
<تر>
<td align="center" bgcolor="#f000ff" class="style45">111</td>
<td align="center" bgcolor="#f000ff" class="style45">222</td>
<td align="center" bgcolor="#f000ff" class="style45">333</td>
<td align="center" bgcolor="#f000ff" class="style45">444</td>
<td align="center" bgcolor="#f000ff" class="style45">555</td>
<td align="center" bgcolor="#f000ff" class="style45">666</td>
<td align="center" bgcolor="#f000ff" class="style45">777</td>
</tr>
<%
المعروض = 20
Totalrecord=rs.recordcount
rs.pagesize=shownum
maxpage=rs.pagecount
requestpage=clng(request.querystring("page"))
إذا requestpage = "" أو requestpage = 0 ثم
صفحة الطلب=1
نهاية إذا
إذا resquestpage> maxpage ثم
resquestpage=maxpage
نهاية إذا
لم يكن طلب الصفحة = 1 ثم
rs.move (صفحة الطلب-1)*rs.pagesize
نهاية إذا
لـ i=1 إلى rs.pagesize وليس rs.bof%>
<تر>
<td align="center" class="style45"><a href='show.asp?s_id=<%=rs("s_id")%>' target="_blank"><%=rs("prname" )%></a></td>
<td align="center" class="style45"><%=rs("trscod")%></td>
<td align="center" class="style45"><%=rs("crname")%></td>
<td align="center" class="style45"><%=rs("crdate")%></td>
<td align="center" class="style45"><%=rs("prtype")%></td>
<td align="center" class="style45"><%=rs("fction")%></td>
<td align="center" class="style45"><a href='edit.asp?s_id=<%=rs("s_id")%>'>编辑</a></td>
</tr>
<%
rs.movenext
إذا rs.eof ثم الخروج ل
التالي
%>
</الجدول>
<عرض الجدول = "98%" الارتفاع = "10" محاذاة = "المركز" الحدود = "1" bordercolor = "#336699" bordercolordark = "#FFFFFF" cellpadding = "0" تباعد الخلايا = "0">
<تر>
<td align="center" class="style45"><a href=add.asp>البحث عن المعلومات</a> | <a href=readExcel.asp target="_self">برنامج EXCEL للتعلم</a> | <a href=srch.asp>المحتوى</a>
</TD>
</tr>
<تر>
<td محاذاة = المركز>
<span class="style45">
<%
إذا requestpage-1 mod 10=0 إذن
ع=(صفحة الطلب-1) 10
آخر
ع=(صفحة الطلب-1) 10
نهاية إذا
إذا كانت صفحة الطلب = 1 إذن
Response.write "<fontface=webdings color=""#FF0000"">9</font>"
آخر
Response.write "<a href=index.asp?page=1 title=首页><fontface=webdings>9</font></a>"
نهاية إذا
إذا كان p*10>0، فاكتب "<a href=index.asp?page="&p*10&" title=上十页><fontface=webdings>7</font></a>"
استجابة.اكتب "<b>"
من أجل ii=p*10+1 إلى P*10+10
إذا ii=صفحة الطلب إذن
Response.write "<font color=""#FF0000"">"&ii&"</font> "
آخر
Response.write "<a href=index.asp?page="&ii&">"&ii&"</a> "
نهاية إذا
إذا ii=maxpage ثم قم بالخروج لـ
التالي
استجابة.اكتب "</b>"
إذا كان <maxpage ثم Response.write "<a href=index.asp?page="&ii&" title=下十页><fontface=webdings>8</font></a>"
إذا requestpage=maxpage إذن
Response.write "<fontface=webdings color=""#FF0000"">:</font> "
آخر
Response.write "<a href=index.asp?page="&maxpage&" title=尾页><fontface=webdings>:</font></a>"
نهاية إذا
Response.write" قم بالتسجيل"&maxpage&"页 共"&totalrecord&"التسجيل في"&shownum&"个"
نهاية إذا
%>
</span></td>
</tr>
</الجدول>
<span class="style45">
<%
rs. Close
مجموعة RS = لا شيء
conn. Close
مجموعة كون = لا شيء
%>