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