复制代码代码如下:
Rs.opensql, Conn, 1,1
ifrs.eofandrs.bofthen
Response.write "<palign = 'Center'> 还没找到文章 </p>"
demás
Totalput = Rs.RecordCount
maxperpage = 18
IfcurrentPage <1
CurrentPage = 1
endif
if (currentPage-1)*maxperPage> totalputThen
if (TotalputModMaxperPage) = 0then
CurrentPage = Totalput/MaxPerPage
demás
CurrentPage = totalput/maxperPage+1
endif
endif
ifcurrentPage = 1
showpage1totalput, maxperpage, "infotype.asp? id =" & request ("id")
showcontent ()
showPageTotalput, maxperPage, "infotype.asp? id =" & request ("id")
demás
if (currentPage-1)*maxperPage <TotalputThen
Rs.Move (CurrentPage-1)*MaxperPage
dimbookmark
Marcador = Rs.Bookmark
showpage1totalput, maxperpage, "infotype.asp? id =" & request ("id")
exhibición
showPageTotalput, maxperPage, "infotype.asp? id =" & request ("id")
demás
CurrentPage = 1
showpage1totalput, maxperpage, "infotype.asp? id =" & request ("id")
exhibición
showPageTotalput, maxperPage, "infotype.asp? id =" & request ("id")
endif
endif
endif
%>
<%
subshowcontent ()
%>
<tr>
<tdheight = "20" class = "blueback2"> <divalign = "centro"> id </div> </td>
<tdclass = "blueback2"> <divalign = "center"> <ahref = "javascript: selectAll ()"> <fontcolor = "#ffffff"> 选择 </font> </a> </div> </td>
<tdwidth = "355" class = "blueback2"> <divalign = "centro"> 信息标题 </div> </td>
<tdwidth = "84" class = "blueback2"> <divalign = "center"> 更新日期 </div> </td>