复制代码代码如下 :
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, "infotyp.asp? id ="& request ( "id")
또 다른
if (currentpage-1)*maxperpage <totalputthen
Rs.Move (CurrentPage-1)*MAXPERPAGE
Dimbookmark
북마크 = Rs.BookMark
showpage1totalput, maxperpage, "infotype.asp? id ="& request ( "id")
쇼 콘텐츠
showpagetotalput, maxperpage, "infotyp.asp? id ="& request ( "id")
또 다른
CurrentPage = 1
showpage1totalput, maxperpage, "infotype.asp? id ="& request ( "id")
쇼 콘텐츠
showpagetotalput, maxperpage, "infotyp.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> </a> </div> </td>
<tdwidth = "355"class = "blueback2"> <divalign = "center"> </div> </td>
<tdwidth = "84"class = "blueback2"> <divalign = "center"> </div> </td>