asp循环例子

<%
dim status
status=false
templang = Request.ServerVariables("Http_Accept_Language")
tempIP = Request.ServerVariables("Remote_Addr")
response.write(templang)
response.write(tempIP)
MyArray = Array("127.0.0.1","Feb","Mar","Apr","May","Jun")
for i=0 to ubound(MyArray)
if(tempIP=MyArray(i)) then
  status=true
Exit For
end if
next
if status then
 response.Write("存在11")
end if
%>