asp NextPage 文章分页程序3种方法

分页代码1
<%
  if ncontent="" then
     response.Write"对不起，暂无内容！！！"
  else
  MyArray=Split(ncontent, "[NextPage]", -1, 1)
          counter=UBound(MyArray,1)
  page=request("page")
  filename=Request.Servervariables("script_name")
  if page="" then
     page=0
  end if
  response.Write""&MyArray(page)&"<br>"
  response.Write"<div align=center>"
  if counter<>0 then
  for i=0 to counter
  response.Write"<font color=#000000>[</font><a href="&filename&"?nid="&nid&"&page="&i&"><font color="&color&">"&i+1&"</font></a><font color=#000000 >]</font>&nbsp;"
  next
  end if
  response.Write"</div>"
  end if
%>


.content_li{border-bottom:solid 1px #ccc;color:#000;font-weight:bold; font-size:14px;}




分页代码2