Question

asp中数列嵌套数列的问题，急求，谢谢`~~

请看我的code:
<%
set rec=server.createobject("ADODB.recordset")
set rec.activeconnection=conet
rec.cursortype=3
rec.open "SELECT * FROM aaa"
dim total
total=rec.recordcount
Dim order(19)
dim m, num, isIn
Randomize
While i<20
num=int(total*rnd + 1)
For m=0 To UBound(order)
If num=order(m) Then
isIn=True
Exit For
Else
isin=false
End if
Next
If isIn=False Then
order(i)=num
i=i+1
End If
Wend
%>
<table width="80%" align="center">
<%
Dim order1(3)
dim m1, num1, isIn1
for i=0 to 19
rec.open "SELECT * FROM aaa where id= '" & cstr(order(i)) & "'"
%>
<tr>
<td><%=rec.fields("question")%></td>
</tr>
<tr><td>
<%
'!!!!这就是问题所在了，
While a<4
num1=int(4*rnd + 1)
For m1=0 To UBound(order1)
If num1=order1(m1) Then
isIn1=false
Exit For
Else
isin1=true
End if
Next
If isIn1=true Then
order1(a)=num1
a=a+1
End If
Wend
'这段为检验，发现order1数列的值就不变，原因是上述片断中的a值没有改变，所以就不再执行while<4后面的代码，但我在while<4前面加了一句a=0，想让每次大的for语句执行完后，a值归0，但是，网页就出错了，请问怎么办？
for n=0 to 3
response.write(order1(n) & " ")
next

Answer 1

big_chenzheng - 门吏 二级你好，你提到：这段为检验，发现order1数列的值就不变，原因是上述片断中的a值没有改变，所以就不再执行while<4后面的代码，但我在while<4前面加了一句a=0，想让每次大的for语句执行完后，a值归0，但是，网页就出错了，请问怎么办？

每次大的for语句执行完后，a值归0，是因为你的函数设置循环条件有问题，Else
isin1=true ，这个条件返还的操作不是一个有效函数，所以每循环一次都会执行一次a值归零的操作。

需要重新设置循环条件。

Answer 2

书写的太冗长了，出错很正常