一篇文章如字数太多,则用1,2,3.... 分成多页,便于用户浏览。
<% set recordset1=server.createobject("adodb.recordset") exec="SELECT * FROM news where id="&id recordset1.Open exec,conn,1,1 %> <table width="85%" border="0" align="center" cellpadding="3" cellspacing="0"> <tr> <td > .......
<% If Request("page")="" Then pageNum=0 Else pageNum=Request("page") End if Content=Replace(recordset1("content"),"|||","|||") ContentStr=split(Content,"|||") For i=pageNum to pageNum %> <%=ContentStr(i)%> <% Next %> </td> </tr> <%if ubound(ContentStr)>=1 then%> <tr> <td height="30" >本文共分 <% For p = 0 to ubound(ContentStr) if p+1= Request("page")+1 then a="<font color=red>" aa="</font>" else a="" aa="" end if %> <a href="detail.asp?ID=<%=request("ID")%>&page=<%=p%>"><%=a%><%=p+1%><%=aa%></a> <% Next %> 页 </td> </tr> <%end if%>
添加文章时,在想分页的地方,加入分割符 ||| 即可。 |