复制代码代码如下:
Rs.opensql, Conn, 1,1
ifrs.eofandrs.bofthen
Response.write "<palign = 'center'> 还没找到文章 </p>"
อื่น
TotalPut = Rs.RecordCount
MaxPerpage = 18
ifcurrentPage <1 จากนั้น
CurrentPage = 1
endif
ถ้า (currentPage-1)*MaxPerpage> TotalPutThen
ถ้า (TotalPutModMaxPerPage) = 0 แล้ว
currentPage = totalput/maxperpage
อื่น
CurrentPage = TotalPut/MaxPerPage+1
endif
endif
ifcurrentPage = 1 จากนั้น
showpage1totalput, maxperpage, "infotype.asp? id =" & คำขอ ("id")
showcontent ()
showpagetotalput, maxperpage, "infotype.asp? id =" & คำขอ ("id")
อื่น
if (currentpage-1)*maxperpage <totalputthen
Rs.Move (CurrentPage-1)*MaxPerpage
Dimbookmark
บุ๊กมาร์ก = Rs.bookmark
showpage1totalput, maxperpage, "infotype.asp? id =" & คำขอ ("id")
การแสดงความคิดเห็น
showpagetotalput, maxperpage, "infotype.asp? id =" & คำขอ ("id")
อื่น
CurrentPage = 1
showpage1totalput, maxperpage, "infotype.asp? id =" & คำขอ ("id")
การแสดงความคิดเห็น
showpagetotalput, maxperpage, "infotype.asp? id =" & คำขอ ("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> </a> </div> </td>
<tdwidth = "355" class = "blueback2"> <divalign = "center"> 信息标题 </div> </td>
<tdwidth = "84" class = "blueback2"> <divalign = "center"> 更新日期 </div> </td>