问一个关于释放数组的问题，希望路过的都看一下，多谢！

[lieco]

<%
i=0
do while not rs.eof
i=i+1
redim preserve pic(i)
pic(i)=rs("tupian")
rs.movenext
loop
rs.close
set rs=nothing
set pic=nothing ---这行报错
if ISARRAY(pic) then
response.write "0yes"
else
response.write "0no"
end if
%>
不知道报错的这行写得对不对，Erase pic 也试过一样不行，pic数组就是释放不掉，不知道怎么回事？谁知道原因就指点我一下，在这里先谢了！

[lieco]

Erase pic之后pic还是数组，怎么才能彻底释放呢？

[wanghui0380]

redim pic(0)

虽然还是数组不过已经释放了

[lieco]

暂且不问这个了。
换个问题吧：现在我正在做毕设，想问问大家谁有，比如说用asp和sql编写网站的毕业论文？用别的语言也成，只要有大体轮廓就行，想参考参考该写什么和怎么写，多谢！希望前辈帮帮忙

[lieco]

我的邮箱
[e-mail]

[tatty_bad]

我有一份，不过不一样，主要针对的是电子商务部分。。。

需要的话，我可以发给你

[lieco]

不行，一样还是有这个问题,但还是谢谢了！

[lieco]

暂且不问这个了。
换个问题吧：现在我正在做毕设，想问问大家谁有，比如说用asp和sql编写网站的毕业论文？用别的语言也成，只要有大体轮廓就行，想参考参考该写什么和怎么写，多谢！希望前辈帮帮忙

[lieco]

电子商务？使用什么语言编的？

[lieco]

发给我看一看 我想看看前辈是怎么写的
如果给我提供的人多的话 我会再开帖子给每个人分

[madpolice]

<%
If Not rs.eof Then
pic = rs.GetRows
End If
rs.Close
Set rs = Nothing

If IsArray(pic) Then
Response.Write "0yes"
Else
Response.Write "0no"
End If

pic = Null
%>

[lieco]

我顶一下

[Yeeko]

up

[lieco]

谢谢 明白了

[lieco]

回贴的人好少啊 我给顶上去

[wanghui0380]

使用动态数组代替固定数组。当不再需要动态数组的数据时，用Erase或ReDim Preserve放弃不需要的数据，并回收数组所用内存。例如，用以下代码可回收动态数组所用空间：

Erase MyArray

　　里，Erase完全删除数组，ReDim Preserve则只缩短数组而不丢失其内容：

ReDim Preserve MyArray(10, smallernum)