复制代码代码如下：
Rs.Opensql，Conn，1,1
ifrs.eofandrs.bofthen
响应。write“ <palign ='center'>还没找到文章</p>”
别的
Totalput = Rs.RecorDcount
maxperpage = 18
ifcurrentPage <1 then
CurrentPage = 1
Endif
if（CurrentPage-1）*MaxPerpage> totalputthen
if（totalputmodmaxperpage）= 0
CurrentPage = Totalput/MaxPerpage
别的
CurrentPage = Totalput/MaxPerpage+1
Endif
Endif
ifcurrentPage = 1，然后
showpage1totalput，maxperpage，“ infotype.asp？id =”＆request（“ id”）
showcontent（）
showpagetotalput，maxperpage，“ infotype.asp？id =”＆request（“ id”）
别的
如果（CurrentPage-1）*maxperpage <totalputthen
Rs.Move（CurrentPage-1）*MaxPerpage
Dimbookmark
书签= RS.Bookmark
showpage1totalput，maxperpage，“ infotype.asp？id =”＆request（“ id”）
展示
showpagetotalput，maxperpage，“ infotype.asp？id =”＆request（“ id”）
别的
CurrentPage = 1
showpage1totalput，maxperpage，“ infotype.asp？id =”＆request（“ id”）
展示
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> </font> </a> </div> </div> </td>
<tdwidth =“ 355” class =“ blueback2”> <divalign =“ center”>信息标题</div> </td>
<tdwidth =“ 84” class =“ blueback2”> <divalign =“ center”>更新日期</div> </td>