<%
Function AAA(str)
   For i = 0 To 3
       If i = 1 Then Exit For
   Next
   AAA = str
End Function


For i = 0 To 5
   r = AAA("A")
   Response.Write(r)
Next
%>

这里 AAA 函数中有一个 i 变量会被认为和下面的 i 是同一个变量，这样就进入死循环了。
所以要注间函数中的变量一定要定义为局部变量。
如
<%
Function AAA(str)
   Dim i
   For i = 0 To 3
       If i = 1 Then Exit For
   Next
   AAA = str
End Function
%>