<%
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
%>
转载于:https://www.cnblogs.com/wanyuan8/archive/2011/09/26/2192224.html