用asp怎么判断ip是国内还是国外

<%

dim lan

lan=Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")

select case 1

case instr(lan,"zh-cn")

response.Redirect("/cn/index.asp")

'判断客户端是否是中文简体，如果是转向/cn/index.asp

case instr(lan,"zh-tw")

response.Redirect("/tw/index.asp")

'判断客户端是否是中文繁体，如果是转向/tw/index.asp

case instr(lan,"en")

response.Redirect("/en/index.asp")

'判断客户端是否是英文，如果是转向/en/index.asp

case instr(lan,"fr")

response.Redirect("/fr/index.asp")

'判断客户端是否是法文，如果是转向/fr/index.asp

case instr(lan,"de")

response.Redirect("/de/index.asp")

'判断客户端是否是德文，如果是转向/fr/index.asp

end select

%>

用IP太过于麻烦了,并且还要知道国家的IP段,非常不实际,你可以直接验证浏览器所用的字符集,中国人用一般就用中文的,可以这样:<%

IF Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")="zh-cn" THENResponse.Redirect("ch/index.asp")ELSEResponse.Redirect("en/index.asp")

End if

%>

---