1.ASP部分
a.建立語(yǔ)言包
1.在各個(gè)子系統(tǒng)建立"語(yǔ)言包"目錄 ,
如BBS--> language -->Simplified
--->Traditional
--->English
2 為每個(gè)ASP,js,HTC 建立語(yǔ)言文件,如ACMBBStopic.asp.lang ,treeview.htc.lang ,
用來(lái)存放語(yǔ)言全局變量。
如目錄Language\English\ ACMBBSShow.asp.lang
Public Const LangRollway="reverse roll"
Public Const LangInvaildUser="invaild user"
Public Const LangMailbox="mail box"
Public Const LangSysSetup="system setup"
Public Const LangACMBBS="Acer BBS"
Public Const LangBulltn="Acer bulltin"
Public Const LangPersnSetup="personal setting"
Public Const LangPublicTools="Public Tools"
如目錄Language\ Simplified \ ACMBBSShow.asp.lang
Public Const LangRollway="反向滾動(dòng)"
Public Const LangInvaildUser="非法用戶"
Public Const LangMailbox="郵件資料夾"
Public Const LangSysSetup="系統(tǒng)設(shè)置"
Public Const LangACMBBS="明碁網(wǎng)咖"
Public Const LangBulltn="公告欄"
Public Const LangPersnSetup="個(gè)人設(shè)定"
Public Const LangPublicTools="群組工具"
語(yǔ)言全局變量命名規(guī)則;
必須是VBscript 變量定義方式 Public Const
變量名為 ： "Lang" + Message Descption

b. 設(shè)定Global.asa
SUB Session_OnStart
Session.CODEPAGE="1252" '1252En '950繁體 '936簡(jiǎn)體
Session.Contents("Language")="EngLish" 'EngLish 'Traditional 'Simplified
Session.Contents("StrCharset")="big5" 'iso-8859-1 'big5 'gb2312
End Sub
c. 引用語(yǔ)言包
1.建立 BBS--> language -->script 目錄, IncludeLang.vbs
2.在各個(gè)asp,js,HTC頭部
<Script language=vbscript runat="server" src="./Language/script/IncludeLang.vbs"></Script>
<% call IncludeLangFile("acmMainPageshow.asp.lang",Session.Contents("Language"))%>
3.使用思想
o 將 *.lang 等語(yǔ)言包用Function GetFileContents 讀到變量中,
o 使用vbscript中EXECUTE方法在Server執(zhí)行
IncludeLang.vbs 內(nèi)容如下

'//'*********************************************************
'// ' Purpose: open include 文件
'// ' Inputs: strIncludeFile 路徑
'// ' Returns: All Text
'//'*********************************************************

Function GetFileContents(strIncludeFile)
On Error Resume Next
Dim objFSO
Dim objText
Dim strPage
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objText = objFSO.OpenTextFile(Server.MapPath(strIncludeFile))
GetFileContents= objText.ReadAll
objText.Close
Set objText = Nothing
Set objFSO = Nothing
IF Err Then
Response.Write "Error open this language package file<<" & strIncludeFile & ">>!"
Response.End
END IF
End Function

'//'*********************************************************
'// ' Purpose: 動(dòng)態(tài) include 文件
'// ' Inputs: strIncludeFile 路徑,語(yǔ)言種類(lèi)
'// ' Returns: 執(zhí)行變量到全局變量
'//'*********************************************************
Function IncludeLangFile(StrFileName,Language)
On Error Resume Next
dim StrLangPackagePath
dim StrLanguagePath
StrLanguagePath=Language
StrLangPackagePath="./Language/" & StrLanguagePath & "/" & StrFileName
Execute(GetFileContents(StrLangPackagePath))
IF Err Then
Response.Write "Error Include this language package file<<" & strIncludeFile & ">>! check the file's syntax"
Response.End
END IF
End Function
2.圖片部分
為帶有漢字圖片建立 BBS--> language -->simplified-->Image
--->traditional-->Image
--->English -->Image
動(dòng)態(tài)Include
<img src="language/Session.Contents("Language"))/image/AAA.gif">

3.COM部分
使用resource file 控制語(yǔ)言版本,由系統(tǒng)自動(dòng)判斷語(yǔ)言版本

注意： resource file 簡(jiǎn)體字碼必須在簡(jiǎn)體機(jī)器輸入，繁體字碼必須在繁體機(jī)器輸入

4.其他

多語(yǔ)言版本參考規(guī)則﹕
1.英文翻譯長(zhǎng)度盡量與漢語(yǔ)長(zhǎng)度相當(dāng)。
2.要符合各個(gè)版本的語(yǔ)言習(xí)慣。
3.英文版中Title ,text標(biāo)簽文本﹐按鈕文本﹐select option 中英文單詞 首字母大寫(xiě),但
介詞﹐連詞 ,冠詞 使用小寫(xiě)。
4. 英文版中縮寫(xiě)全部使用大寫(xiě)。
5. 英文版中check ,radio ,英文首字母大寫(xiě).
6. 英文版中狀態(tài)信息使用小寫(xiě)。