<%
content=""
dim x
x=0
const pageline=10 '每页显示10行
linenum=split(content,"<br>") '本例为计算字符串<br>标记的个数
allline=ubound(linenum)+1 '全文<br>(换行标记)总数
pagecount=int(allline\pageline)+1 '计算总页数
for i=0 to allline
for i=0 to Ubound(linenum)+1
Content[x]=Content&"linenum("&i&")" '这里我想实现的功能是把每10行做为一项,重新写入数组,应要怎么写
if i>(x+1)*line then '这里想实现到10行的时候,进入下一次10行的循环,不知道怎么写!!
x++
next
Next
%>

x++


VB支持这样的自加吗?

我没试过
我写一般都是写x=x+1

我也不知道，没学过ＶＢ

if i>(x+1)*line then '这里想实现到10行的时候,进入下一次10行的循环,不知道怎么写!!
这里应如何实现！！