一个ASP中的数组
(编辑:jimmy 日期: 2024/11/16 浏览:3 次 )
当数据库中读取很多的数据。
将他连成了字符串,格式如下:str=1###0###1***2###1###1_1***3###1###1_2***4###2###1_1_1***5###2###1_1_2***6###4###1_1_1_1***7###6###1_1_1_1_1
然后用先用arrResult=split(str,"***")将str分到数组中,接着再对arrResult数组的每条数据用arrTmp=split(arrResult(i),"###")来把他分到数组。
代码如下:
dim myarry()
arrResult=split(str,"***")
for i=0 to UBound(arrResult)
arrTmp=split(arrResult(i),"###")
for j=0 to UBound(arrTmp)
redim myarry(UBound(arrResult),UBound(arrTmp))
myarry(i,j)=arrTmp(j)
response.Write myarry(i,j)&"<br>"
next
next
当我再
for k=0 to ubound(myarry,1)
response.Write myarry(k,1)&"<br>"
next
想来显视时,怎么数组中的数据就没有了呢?
将他连成了字符串,格式如下:str=1###0###1***2###1###1_1***3###1###1_2***4###2###1_1_1***5###2###1_1_2***6###4###1_1_1_1***7###6###1_1_1_1_1
然后用先用arrResult=split(str,"***")将str分到数组中,接着再对arrResult数组的每条数据用arrTmp=split(arrResult(i),"###")来把他分到数组。
代码如下:
dim myarry()
arrResult=split(str,"***")
for i=0 to UBound(arrResult)
arrTmp=split(arrResult(i),"###")
for j=0 to UBound(arrTmp)
redim myarry(UBound(arrResult),UBound(arrTmp))
myarry(i,j)=arrTmp(j)
response.Write myarry(i,j)&"<br>"
next
next
当我再
for k=0 to ubound(myarry,1)
response.Write myarry(k,1)&"<br>"
next
想来显视时,怎么数组中的数据就没有了呢?
下一篇:小偷程序2