复制代码代码如下:
Rs.opensql, Conn, 1,1
ifrs.eofandrs.bofthen
Response.Write "<Palign = 'Center'> 还没找到文章 </p>"
outro
Totalput = Rs.RecordCount
MaxPage = 18
IfCurrentPage <1THEN
CurrentPage = 1
endif
if (currentpage-1)*maxPage> TotalputThen
if (totalputModMaxPage) = 0then
CurrentPage = Totalput/MaxPage
outro
CurrentPage = Totalput/MaxPage+1
endif
endif
ifCurrentPage = 1THEN
SHOPPAGE1TOTALPUT, MAXPERPAGE, "Infotype.asp?
ShowContent ()
showPageTotalput, maxPage, "infotype.asp? id =" & request ("id")
outro
if (currentPage-1)*maxPage <totalputThen
rs.move (CurrentPage-1)*MaxPage
DimBookmark
Markmark = Rs.Bookmark
SHOPPAGE1TOTALPUT, MAXPERPAGE, "Infotype.asp?
ShowContent
showPageTotalput, maxPage, "infotype.asp? id =" & request ("id")
outro
CurrentPage = 1
SHOPPAGE1TOTALPUT, MAXPERPAGE, "Infotype.asp?
ShowContent
showPageTotalput, maxPage, "infotype.asp? id =" & request ("id")
endif
endif
endif
%>
<%
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>