如何解决两个for的冲突?

[good3g]

下面这两个for之间有部突
dim xx,aid
xx="1,2,3,4"
aid=split(xx,",")
for i=0 to 3

Set Rs7 = Server.CreateObject("Adodb.Recordset")
Sql7 = "SELECT top 500 Title FROM Article where aid="& aid(i)&" order by id desc"
Rs7.Open Sql7,conn,1,1
if not (rs7.bof and rs7.eof) then
if rs7.RecordCount>5 then
aaaaa=5
else
aaaaa=rs7.RecordCount
end if
if aid=1 Response.Write "分类1"
if aid=2 Response.Write "分类2"

For i=1 to aaaaa
Response.Write ("(utf8(rs7("Title"))<br/>")
Rs7.MoveNext
Next
end if
Rs7.close
set rs7=nothing

next

[daxiong521]

试试把其中一个FOR的变量i换成其它变量名!

[jhwcd]

两个FOR循环变量不能一样吧。

dim xx,aid 
xx="1,2,3,4" 
aid=split(xx,",") 
for i=0 to 3 

Set Rs7 = Server.CreateObject("Adodb.Recordset") 
Sql7 = "SELECT top 500 Title FROM Article where aid="& aid(i)&" order by id desc" 
Rs7.Open Sql7,conn,1,1 
if not (rs7.bof and rs7.eof)  then 
if rs7.RecordCount>5 then 
aaaaa=5 
else 
aaaaa=rs7.RecordCount 
end if 
if aid=1 Response.Write "分类1" 
if aid=2 Response.Write "分类2" 

For j=1 to aaaaa 
    if rs7.eof then
	   exit for
	end if 
Response.Write ("(utf8(rs7("Title")) <br/>") 
Rs7.MoveNext 
Next 
end if 
Rs7.close 
set rs7=nothing 

next

[jhwcd]

dim xx,aid 
xx="1,2,3,4" 
aid=split(xx,",") 
for i=0 to 3 

Set Rs7 = Server.CreateObject("Adodb.Recordset") 
Sql7 = "SELECT top 500 Title FROM Article where aid="& aid(i)&" order by id desc" 
Rs7.Open Sql7,conn,1,1 
if not (rs7.bof and rs7.eof)  then 
if rs7.RecordCount>5 then 
aaaaa=5 
else 
aaaaa=rs7.RecordCount 
end if 
if aid=1 Response.Write "分类1" 
if aid=2 Response.Write "分类2" 

For j=1 to aaaaa 
    if rs7.eof then
       exit for
    end if 
Response.Write ("(utf8(rs7("Title")) <br/>") 
Rs7.MoveNext 
Next 
end if 
Rs7.close 
set rs7=nothing 

next

[Msxindl_Com]

老兄,你这个方法是我在
http://topic.csdn.net/u/20080718/19/a7cd76d7-4bc8-4d5b-9dfc-114b8429e265.html
中给你的吧.既然用了此方法,为何不结贴呢?

把其中一个FOR的变量i换成其它变量名即可.

[good3g]

我还没有应用成功啊!

[jhwcd]

[Quote=引用 5 楼 good3g 的回复:]
我还没有应用成功啊!
[/Quote]
现在还不行吗，提示什么错误？

[Anlige]

就是啊~两个for里面的循环变量一样的话那不麻烦了~

----------------------------^_^大家一起学习^_^------------------------------
艾恩ASP学习博客 http://blog.ii-home.cn

Email:[e-mail] QQ:417833272

[Anlige]

dim xx,aid 
xx="1,2,3,4" 
aid=split(xx,",") 
for i=0 to 3 

Set Rs7 = Server.CreateObject("Adodb.Recordset") 
Sql7 = "SELECT top 500 Title FROM Article where aid="& aid(i)&" order by id desc" 
Rs7.Open Sql7,conn,1,1 
if not (rs7.bof and rs7.eof)  then 
if rs7.RecordCount>5 then 
aaaaa=5 
else 
aaaaa=rs7.RecordCount 
end if 
if aid=1 then Response.Write "分类1" 
if aid=2 then Response.Write "分类2" 

For j=1 to aaaaa 
Response.Write ("(utf8(rs7("Title")) <br/>") 
Next 
Rs7.MoveNext 
end if 
Rs7.close 
set rs7=nothing 
next