ASP程式介面的多語言支援 (轉)

ASP程式介面的多語言支援 (轉)[@more@]

介面的多語言支援
 編者&發表： 狐狸糊塗  2000-11-16 
 
 
--------------------------------------------------------------------------------
 
  可能有的應用程式，需要多語言支援，例如，討論組，既有中文介面，以適合國人使用的方便，又需要英文介面，以滿足國際化的需要。我想，似乎沒有必要為每一個語言都寫一個版本，這不僅比較繁瑣，而且以後程式升級就必須修改所有版本的程式。熟悉vc++程式的朋友一定知道通常應用程式的國際化手段都是透過rc來解決的。只要重新加入不同語言版本的rc檔案編譯一下就行了。
  asp程式不能編譯也不需編譯。我於是開始考慮使用，將ASP程式中使用到的提示資訊/甚至圖片的URL等都放進資料庫，並有不同的欄位。

（1）資料庫表設計
  表STRINGTABLE
  id  int
  ch_str varchar 255
  jp_str varchar 255
  en_str varchar 255
  ...................其他語言的欄位

（2）inc檔案STRINGTABLE.INC

  const MAX_STR=100 '根據ID的最大值
  const LANG_CH=1
  const LANG_JP=2
  const LANG_EN=3
  dim strArr
  dim strRS
  dim str

  if not isArray(APPLICATION("constStr")) then
  strSql=" * from W_STRINGTABLE" 
  set strRS=conn.execute(strSql) 
  redim strArr(3,MAX_STR)
  do while not strRS.eof
  strArr(LANG_CH,clng(strRS("ID")))=strRS("CH_STR")
  strArr(LANG_JP,clng(strRS("ID")))=strRS("JP_STR")
  strArr(LANG_EN,clng(strRS("ID")))=strRS("EN_STR")
  strRS.movenext
  l
  APPLICATION.lock
  APPLICATION("constStr")=strArr
  APPLICATION.unlock
  strRs.close
  else
  strArr=APPLICATION("constStr")
  end if 

（3）應用示例
  const LANG_CH,STR_CONFIRM_OVERWRITE=1234
  ...
  response.write strArr(LANG_CH,STR_CONFIRM_OVERWRITE)
  response.write strArr(LANG_JP,STR_CONFIRM_OVERWRITE)
 
  假設有程式user.asp
  方式如下
  user.asp?language=en  (中文)
  user.asp?language=ch  (E文)
 
  '-----------user.asp
  dim lang
  if not(isnull(request("language")) or isempty(request("language")) or (request("language")="") ) then
  if request("language")="en" then
  lang=LANG_EN
  elseif request("language")="jp" then
  lang=LANG_JP
  else
  lang=LANG_CH
  end if
  else
  lang=LANG_CH
  end if
  '..................
  response.write strArr(lang,STR_CONFIRM_OVERWRITE)

  注：
  透過meta tag可以設定html頁面的語言程式碼。
中文gb3212-80
="Content-Type" content="text/html; charset=x-sjis"> 日文Shift-jis