ASP程序界面的多语言支持

asp程序界面的多语言支持

可能有的web应用程序，需要多语言支持，例如，讨论组，既有中文界面，
以适合国人使用的方便，又需要英文界面，以满足国际化的需要。我想，
似乎没有必要为每一个语言都写一个版本，这不仅比较繁琐，而且以后程
序升级就必须修改所有版本的程序。熟悉vc++程序的朋友一定知道通常
windows应用程序的国际化手段都是通过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 strsql

   if not isarray(application("conststr")) then
      strsql="select * 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
      loop
      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页面的语言代码。
     <meta http-equiv="content-type" content="text/html; charset=gb_2312-80"> 中文gb3212-80
     <meta http-equiv</u>="content-type" content="text/html; charset=x-sjis"> 日文shift-jis