ASP实现长文章手动分页的代码

<%
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
ContentStr=split(recordset1(\"detail\"),\"|||\")
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%>



添加文章时，在想分页的地方，加入分割符 ||| 即可。

学习了，php+asp同时进步了

. . . .