复制代码代码如下:
Rs.OpenSQL, Conn, 1,1
ifrs.eofandrs.bofthen
réponse.write "<palign = 'Center'> 还没找到文章 </p>"
autre
Totalput = Rs.RecordCount
maxperpage = 18
ifcurrentpage <1
currentpage = 1
endire
if (currentPage-1) * maxperpage> totalputThen
if (totalputModMaxPerpage) = 0Then
CurrentPage = Totalput / MaxPerpage
autre
CurrentPage = Totalput / MaxPerpage + 1
endire
endire
ifcurrentPage = 1Then
showpage1totalput, maxperpage, "infotype.asp? id =" & request ("id")
showContent ()
showPagetotalput, maxperpage, "infotype.asp? id =" & request ("id")
autre
if (currentPage-1) * maxperpage <totalputThen
Rs.Move (CurrentPage-1) * MaxPerpage
tabac
Bookmark = Rs.Bookmark
showpage1totalput, maxperpage, "infotype.asp? id =" & request ("id")
vitrine
showPagetotalput, maxperpage, "infotype.asp? id =" & request ("id")
autre
currentpage = 1
showpage1totalput, maxperpage, "infotype.asp? id =" & request ("id")
vitrine
showPagetotalput, maxperpage, "infotype.asp? id =" & request ("id")
endire
endire
endire
%>
<%
SubshowContent ()
%>
<tr>
<tdheight = "20" class = "blueback2"> <divalign = "Center"> id </div> </td>
<tdclass = "blueback2"> <divalign = "Center"> <href = "javascript: selectall ()"> <fontcolor = "# ffffff"> 选择 </font> </a> </div> </td>
<tdwidth = "355" class = "blueback2"> <divalign = "Center"> 信息标题 </div> </td>
<tdwidth = "84" class = "blueback2"> <divalign = "Center"> 更新日期 </div> </td>