Redirect Web Visitors By Country Using ASP and COM Technology
There are times when it is useful to redirect a visitor to different default web page based on the visitor's country of origin. One practical usage is to redirect visitor to web page with the language recognized by the visitor. This article shows you how using ASP and ActiveX component this can be done.
Let us take a simple case study. Company XYZ is multi-national company with major customers from United States and Japan. The company official website is developed in both English and Japanese languages. The default page is in English language and visitor can switch to Japanese by changing the default language option. There exists a potential problem when a Japanese visitor does not understand English and it could not navigate the web site. So let us developed a simple solution to help Company XYZ redirecting all Internet traffic from country Japan to the Japanese language site. Meanwhile it drives the rest traffic to English site.
In this example, we use a fully functional IP2Location™ ActiveX component available at http://www.ip2location.com/software/active-x to query country by visitor's IP address. For unregistered component, there is a 5-second delay in every query. First, install the ActiveX component in IIS web server. It could be as simple as running a command in DOS prompt.
C:\> regsvr32 ip2location.dll
<% ' Create server-side object Set ipObj = Server.CreateObject("IP2Location.Country") ' Initialize IP2Location object If ipObj.Initialize("demo") <> "OK" Then response.write "IP2Location Initialization Failed. End If ' Get visitor's IP address IPaddr = Request.ServerVariables("REMOTE_ADDR") ' Detect visitor's country of origin by IP address CountryName = ipObj.LookUpShortName(IPaddr) ' Free IP2Location object Set ipObj = nothing If CountryName = "JP" Then ' Visitor is from Japan ' Redirect the URL to index_jp.htm Response.Redirect "index_jp.htm" Else ' Visitor is not from Japan ' Redirect the URL to index_en.htm Response.Redirect "index_en.htm" End If %>