复制代码代码如下:
rs.opensql、conn、1,1
ifrs.eofandrs.bofthen
Response.Write "<palign = 'center'>还没找到文章</p>"
それ以外
Totalput = rs.RecordCount
maxperpage = 18
ifcurrentPage <1then
currentPage = 1
endif
if(currentPage-1)*maxperpage> totalputthen
if(totalputmodmaxperpage)= 0then
currentPage = Totalput/maxperpage
それ以外
currentPage = Totalput/maxperpage+1
endif
endif
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
bookmark = 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")
endif
endif
endif
%>
<%
subshowcontent()
%>
<tr>
<tdheight = "20" class = "blueback2"> <divalign = "center"> id </div> </td>
<tdclass = "blueback2"> <divalign = "center"> <ahref = "javascript:selectal()"> <fontcolor = "#ffffff">选择</font> </a> </div> </td>
<tdwidth = "355" class = "blueback2"> <divalign = "center">信息标题</div> </td>
<tdwidth = "84" class = "blueback2"> <divalign = "center">更新日期</div> </td>