各位大侠：我是初学asp的新手，对代码不太熟，请高手指点下列代码如何简化？
While NOT cgtj1.EOF
for i=1 to 8
if trim(cgtj1("年度"))=a(i,0) then
a(i,1)=cgtj1("数量")
a(9,1)=a(9,1)+a(i,1)
end if
next
cgtj1.MoveNext()
Wend
While NOT cgtj2.EOF
for i=1 to 8
if trim(cgtj2("年度"))=a(i,0) then
a(i,2)=cgtj2("数量")
a(9,2)=a(9,2)+a(i,2)
end if
next
cgtj2.MoveNext()
Wend
While NOT cgtj3.EOF
for i=1 to 8
if trim(cgtj3("年度"))=a(i,0) then
a(i,3)=cgtj3("数量")
a(9,3)=a(9,3)+a(i,3)
end if
next
cgtj3.MoveNext()
Wend
我想简化成：
for j=1 to 3
While NOT cgtj&j.EOF
for i=1 to 8
if trim(cgtj&j("年度"))=a(i,0) then
a(i,j)=cgtj&j("数量")
a(9,j)=a(9,j)+a(i,j)
end if
next
cgtj&j.MoveNext()
Wend
next
红色部分应该怎样写？我试了好久都不对，在这里先谢过高手指点。

[此贴子已经被作者于2007-9-5 15:33:58编辑过]

写成函数或者是过程,反复调用就行了

[此贴子已经被作者于2007-9-5 14:53:01编辑过]

函数或过程中红色部分应该怎样写？初学ASP,请详细指点。谢谢！

[此贴子已经被作者于2007-9-6 8:10:12编辑过]

换个简单点的，下面的代码如何简化：
for i=1 to 8
if trim(n1)=a(i,0) then
a(i,1)=t1
a(9,1)=a(9,1)+a(i,1)
end if
next
for i=1 to 8
if trim(n2))=a(i,0) then
a(i,2)=t2
a(9,2)=a(9,2)+a(i,2)
end if
next
for i=1 to 8
if trim(n3)=a(i,0) then
a(i,3)=t3
a(9,3)=a(9,3)+a(i,3)
end if
next
我想简化成：
for j=1 to 3
for i=1 to 8
if trim(n&j))=a(i,0) then
a(i,j)=t&j
a(9,j)=a(9,j)+a(i,j)
end if
next
next
红色部分应该怎样写？我试了好久都不对，在这里先谢过高手指点。