<%
Dim f()={"0001","0002","0003","0004","0005","0006","0007","0008","0009","0010","0011","0012","0013","0014","0015","0016","0017","0018","0019","0020","0021","0022","0023","0024","0025","0026","0027","0028","0029","0030"}
Dim d()={"20","30","40","50","60","70","80","90","56","85","99","99","58","99","35","54","88","84","84","75","91","82","93","91","74","99","84","77","51","68"}
Dim s=Request("Score")
Dim a=Array.IndexOf(d,s)

Response.Write("魅力值是" & d(a) & "的人有")
Response.Write("")
If a>=0 Then
While a
Response.Write(f(a) & "　")
a=Array.IndexOf(d,s,a+1)
End While
Else
Response.Write("并无此魅力值")
End If            
Response.Write("")
%>
当我输入比如Score=99则页面显示正确，但当我输入Score=101时，则页面出错，为什么，我已用了条件判断语句呀。菜鸟上路，多多指教