<%
Dim lan
Lan=request.servervariables ("Http_accept_language")
Select Case 1
Case InStr (LAN, "ZH-CN")
Response.Redirect ("http://www.3lian.com//cn/index.asp tutorial")
' Judge whether the client is Chinese simplified, if it is turned to/cn/index.asp
Case InStr (LAN, "ZH-TW")
Response.Redirect ("http://www.3lian.com//tw/index.asp")
' Judge whether the client is Chinese traditional, if it is to turn to/tw/index.asp
Case InStr (LAN, "en")
Response.Redirect ("http://www.3lian.com//en/index.asp")
' Judge whether the client is English if it is turned to/en/index.asp
Case InStr (LAN, "FR")
Response.Redirect ("http://www.3lian.com//fr/index.asp")
' Judge whether the client is French, if it is turned to/fr/index.asp
Case InStr (LAN, "de")
Response.Redirect ("http://www.3lian.com//de/index.asp")
' Judge whether the client is German, if it is turned to/fr/index.asp
End Select
%>
Of course, if only Chinese and English pages, then you can also use the IF function to judge.
<%
Dim lan
Lan=request.servervariables ("Http_accept_language")
If InStr (LAN, "en") >0 then
Response.Redirect ("http://www.3lian.com/")
' if it is Chinese then turn to Chinese page
Else
Response.Redirect ("http://www.3lian.com/")
' if not Chinese, then unify to English page
End If
%>