复制代码代码如下:
Rs.Opensql ، Conn ، 1،1
ifrs.eofandrs.bofthen
استجابة. write "<Palign = 'Center'> 还没找到文章 </p>"
آخر
TotalPut = Rs.RecordCount
maxperpage = 18
ifcurrentpage <1th
PARTERPAGE = 1
Endif
if (CurrentPage-1)*maxperpage> totalputthen
if (TotalPutModMaxperPage) = 0then
CurrentPage = TotalPut/MaxPerpage
آخر
CurrentPage = TotalPut/MaxPerpage+1
Endif
Endif
ifcurrentPage = 1th
showpage1ToTalput ، maxperpage ، "infotype.asp؟ id =" & request ("id")
عرض العرض ()
showpageTotalput ، maxperpage ، "infotype.asp؟ id =" & request ("id")
آخر
إذا (CurrentPage-1)*maxperpage <TotalPutthen
Rs.Move (CurrentPage-1)*maxperpage
DimBookmark
إشارة مرجعية = Rs.Bookmark
showpage1ToTalput ، maxperpage ، "infotype.asp؟ id =" & request ("id")
العرض
showpageTotalput ، maxperpage ، "infotype.asp؟ id =" & request ("id")
آخر
PARTERPAGE = 1
showpage1ToTalput ، maxperpage ، "infotype.asp؟ id =" & request ("id")
العرض
showpageTotalput ، maxperpage ، "infotype.asp؟ id =" & request ("id")
Endif
Endif
Endif
٪>
<٪
subshowcontent ()
٪>
<tr>
<tdheight = "20" class = "blueback2"> <fivalign = "center"> id </viv> </td>
<tdclass = "blueback2"> <fivalign = "center"> <hhref = "javaScript: Selectall ()"> <fontcolor = "#ffffff"> 选择 </font> </a> </viv> </td>
<tdwidth = "355" class = "blueback2"> <fivalign = "center"> 信息标题 </viv> </td>
<tdwidth = "84" class = "blueback2"> <fivalign = "center"> 更新日期 </viv> </td>