标题: ASP网站制作之基于WEB体系的多言语撑持--ASP国际化多... [打印本页] 作者: 爱飞 时间: 2015-2-3 23:40 标题: ASP网站制作之基于WEB体系的多言语撑持--ASP国际化多... 使用cdonts,可以发送、查看邮件,实现webmail的功能。结合wsh,可以实现对nt主机的管理,如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等,就像管理本地机一样方便。web 1.ASP局部
a.创立言语包
1.在各个子体系创立"言语包"目次 ,
如BBS--> language -->Simplified
--->Traditional
--->English
2 为每一个ASP,js,HTC 创立言语文件,如ACMBBStopic.asp.lang ,treeview.htc.lang ,
用来寄存言语全局变量。
如目次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="反向转动"
Public Const LangInvaildUser="不法用户"
Public Const LangMailbox="邮件材料夹"
Public Const LangSysSetup="体系设置"
Public Const LangACMBBS="明网咖"
Public Const LangBulltn="通知布告栏"
Public Const LangPersnSetup="团体设定"
Public Const LangPublicTools="群组东西"
言语全局变量定名划定规矩;
必需是VBscript 变量界说体例 Public Const
变量名为 : "Lang" + Message Descption
b. 设定Global.asa
SUB Session_OnStart
Session.CODEPAGE="1252" '1252En '950繁体 '936简体
Session.Contents("Language")="EngLish" 'EngLish 'Traditional 'Simplified
Session.Contents("StrCharset")="big5" 'iso-8859-1 'big5 'gb2312
End Sub
c. 援用言语包
1.创立 BBS--> language -->script 目次, IncludeLang.vbs
2.在各个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 等言语包用Function GetFileContents 读到变量中,
o 利用vbscript中EXECUTE办法在Server履行
IncludeLang.vbs 内容以下
'//'*********************************************************
'// ' 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: 静态 include 文件
'// ' Inputs: strIncludeFile 途径,言语品种
'// ' Returns: 履行变量到全局变量
'//'*********************************************************
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
静态Include
<img src=http://www.163design.net/a/y/"language/Session.Contents("Language"))/image/AAA.gif">