复制代码代码如下::
Rs.opensql, Conn, 1,1
ifrs.eofandrs.Bofthen
response.write "<pALIGN = 'Center'> 还没找到文章 </p>"
anders
Totalput = Rs.RecordCount
MaxperPage = 18
IfcurrentPage <1Then
currentPage = 1
Endif
if (currentPage-1)*maxperpage> TotalputThen
if (TotalputModmaxPerPage) = 0Then
CurrentPage = Totalput/MaxperPage
anders
CurrentPage = Totalput/MaxperPage+1
Endif
Endif
ifcurrentPage = 1Then
showPage1totalput, maxperpage, "infotype.asp? id =" & request ("id")
Showcontent ()
showpagetotalput, maxperpage, "infotype.asp? id =" & request ("id")
anders
if (currentPage-1)*maxperpage <TotalputThen
Rs.Move (CurrentPage-1)*MaxperPage
Dimbookmark
bookmark = rs.bookmark
showPage1totalput, maxperpage, "infotype.asp? id =" & request ("id")
Showcontent
showpagetotalput, maxperpage, "infotype.asp? id =" & request ("id")
anders
currentPage = 1
showPage1totalput, maxperpage, "infotype.asp? id =" & request ("id")
Showcontent
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"> <aRef = "javaScript: selectAll ()"> <fontcolor = "#ffffff"> 选择 </font> </a> </div> </td>
<tdwidth = "355" class = "blueback2"> <divalign = "center"> 信息标题 </div> </td>
<tdwidth = "84" class = "blueback2"> <divalign = "center"> 更新日期 </div> </td>