Не уверен, что вы ищете именно это, но я сделал это несколько лет назад в VBScript. Не идеально, но у меня это работает:
Разберитесь с языком:
<%
Dim sLanguage
sLanguage = Request.QueryString("lang")
Dim userLocale
userLocale=Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
Dim sDomain
sDomain = Request.ServerVariables("HTTP_HOST")
Dim languages
languages = Split(userLocale, ",", -1)
...
Установить таблицу стилей ...
<% select case MasterLanguage
case "PORTUGUESE"%>
<style media="screen" type="text/css">@import "/Includes/css/a_formatting.css";</style>
<style media="screen" type="text/css">@import "/includes/langs/br/languageSpecific.css";</style>
<link type="text/css" media="print" rel="stylesheet" href="/Includes/css/print.css" />
<%
case "SIMPCHINESE"
%>
<style media="screen" type="text/css">@import "/Includes/css/a_formatting_zh-cn.css";</style>
<style media="screen" type="text/css">@import "/includes/langs/zh-cn/languageSpecific.css";</style>
<link type="text/css" media="print" rel="stylesheet" href="/Includes/css/print_zh-cn.css" />
<%
Я могу опубликовать больше фрагментов, если это будет полезно.