比如我在的index.asp語言切換ASP-經典的VBScript網頁語言切換爲變
<ul class="drop-lang_menu">
<li id="LanguageSelected"><img src="img/icons/flags/ru.png" /><a href="#">Rus</a>
<ul>
<li><img src="img/icons/flags/ru.png" /><a href="#">Rus</a></li>
<li><img src="img/icons/flags/lt.png" /><a href="#">Lit</a></li>
<li><img src="img/icons/flags/us.png" /><a href="#">Eng</a></li>
</ul>
</li>
</ul>
,並在此文件中我有翻譯功能的「登錄」按鈕上的文字翻譯
<%=transl("Login")%>
該函數在文件function.inc其中包括在的index.asp
<%
Dim Lang
Lang = Document.getElementById("LanguageSelected").innerText
Function transl(TxT as String)
Dim d
d = Application("TranslateList")
If d = "" Then
d = FetchTranslateList(TxT)
Application("TranslateList") = d
End If
transl = d
End Function
Function FetchTranslateList(TxT as String)
Dim rs, fldName, s
Set rs = CreateObject("ADODB.Recordset")
rs.Open "select "+Lang+" from Translations where txt='"+TxT+"'", _
"dsn=name;uid=sa;pwd=;"
s = "<select name=""Translations"">" & vbCrLf
Set fldName = rs.Fields("+Lang+")
Do Until rs.EOF
s = s & " <option>" & fldName _
& "</option>" & vbCrLf
rs.MoveNext
Loop
s = s & "</select>" & vbCrLf
rs.Close
Set rs = Nothing
Set fldName = Nothing
FetchTranslateList = s
End Function
%>
解釋個問題是:
- 郎=的document.getElementById( 「LanguageSelected」)的innerText似乎不工作!那麼如何獲得選定的語言價值併爲每個用戶分別翻譯網頁?
- 這是根據用戶在網站上選擇的語言進行網頁翻譯的正確方法嗎?