Call the function in inc_top.asp
if Application("down") then
if not Instr(request.servervariables("script_name"),"admin_") > 0 then
Response.redirect("down.asp")
end if
end if
'*Add by Steven Zou 2001-11-22
'To detect User's prefer language
'if isEmptyNull(Request.Cookies(strUniqueID & "Lang")) then
if isEmptyNull(strLangPrefCode) then
Call LangDetect()
end if
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString
The Function
<%
'*Add by Steven Zou 2001-11-22
'Generate a page to Auto Detect User Prefer Language when a user first visit
Sub LangDetect()
strURL = Request.QueryString
if strURL <> "" then strURL = "?" & strURL
strURL = Request.ServerVariables("URL") & strURL
%>
<HTML><HEAD>
<TITLE><%=strForumTitle%></TITLE>
<meta http-equiv="refresh" content="0;url=<%=strURL%>">
<%Response.Write "<SCR" & "IPT LANGUAGE=JAVASCRIPT>"%>
<!--
//Program by: Steven Zou(http://www25.brinkster.com/flashmind/forumz/)
//Auto Detect User Prefer Language
var snitzcookietag ='<%=strUniqueID%>Lang';
var blc = navigator.browserLanguage;
var langcode;
switch (blc.substr(0,2)){
case 'en': //English
langcode='1033';
break;
case 'zh': //chinese
langcode='2053';
break;
case 'da': //DANISH
langcode='1030';
break;
case 'de': //DEUTSCH
langcode='1031';
break;
case 'es': //Spanish
langcode='1034';
break;
case 'fi': //Finnish
langcode='1035';
break;
case 'fr': //French
langcode='1036';
break;
case 'it': //Italian
langcode='1040';
break;
case 'nl': //Dutch, Nederlands
langcode='1043';
break;
case 'sv': //Swedish
langcode='1053';
break;
case 'tr': //Turkish
langcode='1055';
break;
default:
langcode='1033'; <%'langcode='< %=strLangDefaultCode% >';%>
}
var resstr= snitzcookietag + '=' + langcode;
var expiration_date = new Date ();
expiration_date.setYear (expiration_date.getYear () + 1);
expiration_date = expiration_date.toGMTString ();
var strURL = escape('<%=strCookieURL%>');
<%'var sitedomain = ".mysite.com"; // Domain wide (must have two dots!!)%>
<%if strSetCookieToForum = 1 then
strCookieTmp ="resstr + ';expires=' + expiration_date + '; ' + 'path=' + strURL + '; '"
'& "+ ';domain=' + escape(sitedomain);"
else
strCookieTmp ="resstr + ';expires=' + expiration_date + '; ' + ';path=/;"
'& " '+ ';domain=' + escape(sitedomain);"
end if%>
document.cookie = <%=strCookieTmp%>;
location.reload();
//-->
<%
response.write "</SCR" & "IPT>" & vbCrLf
%>
</HEAD>
<BODY>
</BODY>
</HTML>
<%
End Sub
%>
Edited by - stevenzou on 22 November 2001 11:25:28
Edited by - stevenzou on 22 November 2001 15:10:10<
Forum Locked
Posted - 22 November 2001 : 11:23:34
