比如有若千字符！！如何依次截取1000字,存入到数组中,如果最后截取的没有1000字,也可以存入!!

Const ArrLen = 1000
Dim ContentArr
Dim i, Content

Content = "1234567890"
ReDim ContentArr(-Int(-(Len(Content) / ArrLen))-1)
For i = 0 To UBound(ContentArr)
ContentArr(i) = Mid(Content, i * ArrLen + 1, ArrLen)
Response.Write "ContentArr(" & i & ")=" & ContentArr(i) & "<br>"
Next
非常谢谢各位大侠 可是我有点看不懂，能帮我解释一下吗！特别是加红色的那部分，为何要加个-

ReDim ContentArr(-Int(-(Len(Content) / ArrLen))-1)
这里为什么还要加一个负号。
如果有2600个字，在减1变成ContentArr(1)了不知道是不是这样子!!而实际上要ContentArr(2)

<%
Const ArrLen = 1000
Dim ContentArr
Dim i, Content
Content = "1234567890"
ReDim ContentArr(-Int(-2600 / 1000)-1)
Response.write UBound(ContentArr)
%>

果然是这样 2600 / 1000这样怎么会是3啊
加个负号是为什么,如果我把负号去掉就变成

Microsoft VBScript 运行时错误 错误 '800a0007'

内存不够

/elookarticle2.1/untitled.asp，行 6

Vbscript中一个数组下标可以存入N多字符,C语言好像只能存一个啊!!!

就是一个地址下标!!
比如a[1]只有一个
VBscript能存很多,C中好像只能存一个.

有了老大的提示就可以做到长文章分页了
网上好像要用到什么XML,我用了好像不会用到XML
等我试完了,发上来看
高手不要笑我!!

for i=0 to UBound(ContentArr) 'i控制正在生成的当前页

For j = 0 To UBound(ContentArr) 'j控制生成[1][2][3][4][5]
if j=i then
PageLoad="<strong>["&j&"]</strong>" '如果数字和当前页一样就无链接,只显示数字.
else
if j=0 then
PageLoad=PageLoad&"<a href="&MyDate&".htm>" '如果数字为[0]则链接显示首页!
else
PageLoad=PageLoad&"<a href="&MyDate&"_"&j&".htm>"
end if
PageLoad=PageLoad&"<strong>["&j&"]</strong>"
PageLoad=PageLoad&"</a>"
end if
next
Next

但是有一个问题：
如果生成5页的话，第1页可以看到5个链接。第2页只有4个。第3页就3个，就是每页少一个！！帮我看一下~~错在哪里。

[此贴子已经被作者于2005-12-6 18:27:37编辑过]

老大,可否给点代码参考一下!!