1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
| <%
Option Explicit
Dim strLang
Dim strPos
strLang = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
'언어의 값을 가져온다
strLang = Left(strLang,2)
Select Case LCase(strLang)
Case "en" :
Response.write "사용자 언어 로케일은 영어이다."
'Response.Redirect "English.asp"
Case "fr" :
Response.write "사용자 언어 로케일은 프랑스어이다."
'Response.Redirect "French.asp"
Case "de" :
Response.write "사용자 언어 로케일은 독일어이다."
'Response.Redirect "German.asp"
Case "ja" :
Response.write "사용자 언어 로케일은 일본어이다."
'Response.Redirect "Japanese.asp"
Case "ko" :
Response.write "사용자 언어 로케일은 한국어이다."
'Response.Redirect "korean.asp"
Case else :
Response.write "사용자 언어 로케일은 한어이다."
'Response.Redirect "korean.asp"
End Select
%>
|