（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
'-----------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)
