复制代码代码如下：
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>