复制代码代码如下:
rs.opensql, Conn, 1,1
ifrs.eofandrs.bofthen
response.write "<palign = 'center'> 还没找到文章 </p>"
kalau tidak
totalput = rs.recordcount
Maxperpage = 18
ifcurrentpage <1then
currentpage = 1
endif
if (currentpage-1)*maxperpage> totalputthen
if (totalputModmaxPerPage) = 0then
currentPage = totalput/maxperpage
kalau tidak
currentPage = totalput/maxperpage+1
endif
endif
IfCurrentPage = 1then
showpage1totalput, maxperpage, "infotype.asp? id =" & request ("id")
showcontent ()
showpagetotalput, maxperpage, "infotype.asp? id =" & request ("id")
kalau tidak
if (currentpage-1)*maxperpage <totalputthen
rs.move (currentpage-1)*maxperpage
Dimbookmark
bookmark = rs.bookmark
showpage1totalput, maxperpage, "infotype.asp? id =" & request ("id")
Konten
showpagetotalput, maxperpage, "infotype.asp? id =" & request ("id")
kalau tidak
currentpage = 1
showpage1totalput, maxperpage, "infotype.asp? id =" & request ("id")
Konten
showpagetotalput, maxperpage, "infotype.asp? id =" & request ("id")
endif
endif
endif
%>
<%
SubshowContent ()
%>
<tr>
<tdHeight = "20" class = "blueback2"> <divalign = "center"> id </div> </td>
<tdclass = "blueback2"> <divalign = "center"> <ahref = "javascript: selectAll ()"> <fontColor = "#ffffff"> 选择 </font> </a> </div> </td>
<tdwidth = "355" class = "blueback2"> <divalign = "center"> 信息标题 </div> </td>
<tdwidth = "84" class = "blueback2"> <divalign = "center"> 更新日期 </div> </td>