lang_base.asp

来自「图书管理系统是用VC++做的有兴趣的可以来共同研究研究」· ASP 代码 · 共 47 行

<% 
'========================================================================================
' 文 件 名: Lang_Base.asp
' 版    本: 自由岭锋行业专用留言系统1.78 ( LF Message SyStem 1.78 )
' 说    明: 全球语言自动选择文件 | 请勿自行修改该处文件，以确保程序正确的执行
' 文件日期: 2005-12-24
' 设 计 者： 疾风之狼
'========================================================================================
' Copyright (C) 2001--2005 自由岭锋. All rights reserved.
' 网    站: http://lingfengnet.com,
' 电子邮件: [e-mail]
' 联系ＱＱ: 85112407
'========================================================================================

Lang = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
Lang = split(Lang,",")(0)
Lang = split(Lang,";")(0)
Lang = trim(LCASE(Lang))

select case Lang
case "zh-cn"
Lang="GB"
case "zh-tw"
Lang="Big5"
case "zh-hk"
Lang="Big5"
case "zh"
Lang="Big5"
case else
Lang="Eng"
end select

select case Lang
	case "GB"
%>
<!-- #include file="../Language/Chinese_GB.asp" -->
<%
	case "Big5"
%>
<!-- #include file="../Language/Chinese_Big5.asp" -->
<%
	case else
%>
<!-- #include file="../Language/Chinese_Eng.asp" -->
<%
end select
%>