如何编写一个自动确换语言包功能模块！！！！

[liyunlong]

本人有三个版本！试要让他能通过一个下拉选择完自动换成另一个语言！

<!--#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>

[makay]

gz

[空闲独处]

你在下拉框的onchange里用自动提交，
把IF判断改成Select Case，主要页面的字符集要设定，不然换了语言也只是乱码。