如何编写一个自动确换语言包功能模块!!!!
本人有三个版本!试要让他能通过一个下拉选择完自动换成另一个语言!
<!--#include file="includes/languages.asp"--> 这个有三个语言版式包!
<%
on error resume next
dim pLanguage
pLanguage = trim(request.querystring("language"))
pUrlReturn = trim(request.querystring("urlReturn"))
if (pLanguage<>"english" and pLanguage<>"spanish") then
response.redirect "ydlgroup_message.asp?mensaje="&Server.Urlencode(dictLanguage.Item(Session("language")&"_changelanguage_1") )
end if
if session("language")=Cstr(pLanguage) then
response.redirect "ydlgroup_message.asp?mensaje="&Server.Urlencode(dictLanguage.Item(Session("language")&"_changelanguage_3") )
end if
session("language")=Cstr(pLanguage)
response.redirect "ydlgroup_message.asp?mensaje="&Server.Urlencode(dictLanguage.Item(Session("language")&"_changelanguage_2") )
%>
这是global.asa文件啊!
<SCRIPT RUNAT=server LANGUAGE="VBScript">
SUB Application_OnStart
END SUB
SUB Session_OnStart
Session("idCustomer") = Cint(0)
Session("idStore") = Cstr("")
Session("language") = Cstr("english")在这边怎样用让他能变成chinaese或japanese
Session("cartIndex") = Cint(0)
ReDim arrcart(50, 12)
Session("myCart") = arrcart
END SUB
SUB Session_OnEnd
set Session("idCustomer") = Nothing
set Session("idStore") = Nothing
set Session("cartIndex") = Nothing
set Session("myCart") = Nothing
END SUB
</SCRIPT>