复制代码代码如下:
Rs.opensql, Conn, 1,1
ifrs.eofandrs.bofthen
response.write "<palign = 'center'> 还没找到文章 </p>"
еще
TotalPut = Rs.RecordCount
maxperpage = 18
ifcurrentpage <1then
CurrentPage = 1
эндиф
if (currentPage-1)*maxPerpage> TotalPutThen
if (totalputmodmaxperpage) = 0then
CurrentPage = TotalPut/MaxPerpage
еще
CurrentPage = TotalPut/MaxPerpage+1
эндиф
эндиф
ifcurrentpage = 1then
ShowPage1totalput, maxperpage, "infotype.asp? id =" & request ("id")
ShowContent ()
ShowPageTotalput, MaxPerpage, "Infotype.asp? id =" & request ("id")
еще
if (currentPage-1)*maxperpage <totalPutThen
Rs.Move (CurrentPage-1)*MaxPerpage
DimBookmark
Закладка = Rs.bookmark
ShowPage1totalput, maxperpage, "infotype.asp? id =" & request ("id")
Showcontent
ShowPageTotalput, MaxPerpage, "Infotype.asp? id =" & request ("id")
еще
CurrentPage = 1
ShowPage1totalput, maxperpage, "infotype.asp? id =" & request ("id")
Showcontent
ShowPageTotalput, MaxPerpage, "Infotype.asp? id =" & request ("id")
эндиф
эндиф
эндиф
%>
<%
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>