联系我们
中强网络软件开发系统开发公司
0393-6189981
0393-6189981
投诉建议:
请给QQ946680138留言
1、找到aspcms根上当下的data文件夹,把#data.asp文件改名为#data.mdb,然后用Access打开#data.mdb文件,打开表aspcms_menu,找到 标题为《多语言设置》的项,将其MenuStatus值改为1(多语言开关),然后再把data.mdb改成data.asp。
2、打开网站登录到网站后台(后台选择全功能版),点“网站会员”-管理员组管理-修改,打上全部勾。
3.注销重新登录,就可以看到在系统设置中菜单下面有-多语言设置项。
4.点击多语言设置-添加其他语言:英语,具体参数参考中文项。
5.后台语言切换按钮
在admin文件夹中找到top.asp,打开,找到<a href=”home.asp” target=”main”>后台导航</a>后添加如下代码
- <%
- dim dangqianid,dangqianname,rsyy
- dangqianid=rCookie("languageID")
- set rsyy=conn.exec("select languagename from {prefix}Language where LanguageID="&dangqianid,"exe")
- if not rsyy.eof then
- dangqianname=rsyy(0)
- end if
- rsyy.close : set rsyy=nothing
- %>
- <%
- set rsyy=conn.exec("select LanguageID,languagename from {prefix}Language order by LanguageOrder desc,LanguageID desc","exe")
- while not rsyy.eof
- %>
- <%if int(rsyy(0))=int(dangqianid) then%>
- <a href=#><font color=red><%=rsyy(1)%></font></a>
- <%else%>
- <a href="index.asp?id=<%=rsyy(0)%>" target='_top'><%=rsyy(1)%></a>
- <%end if%>
- <%
- rsyy.movenext
- wend
- rsyy.close : set rsyy=nothing
- %>
6.前台语言切换,在inc文件夹中找到文件aspcms_settingclass.asp,修改成以下代码
view plaincopy to clipboardprint?- <!--#include file="AspCms_MainClass.asp" -->
- <%
- if siteMode=0 then die siteHelp
- dim LanguageAlias : LanguageAlias=rCookie("LanguageAlias")
- dim setting : set setting=new SettingClass
- %>
- <%
- dim id, rsLanguage
- id=getForm("id","get")
- if not isnul(id) then
- set rsLanguage=conn.exec("select * from {prefix}Language where LanguageID="&id,"exe")
- if not rsLanguage.eof then
- wCookie"languageID",id
- wCookie"languagePath",rsLanguage("LanguagePath")
- wCookie"LanguageAlias",rsLanguage("Alias")
- else
- alertMsgAndGo "没有这个语言","-1"
- end if
- rsLanguage.close : set rsLanguage=nothing
- response.Redirect("index.asp")
- end if
- %>
- <!--#include file="AspCms_Language.asp" -->
7.设置语言链接,在模板文件head.html中,把英文的链接改为,注意?后的哪个id要看后台系统设置-多语言设置中的语言种类前各自的编号。是几的就写几!
view plaincopy to clipboardprint?- <a href="{aspcms:sitepath}{aspcms:languagepath}?id=2" class="favicon" ><FONT color=#0057c2>English</FONT></a>
8、还有一个问题就是你后台点击切换到英文模式时,点击内容还是看到中文的单页内容。这个通过以后方法修正。
找到 admin_aspcms_content_About 目录下的 AspCms_AboutFun.asp 找到 Sub aboutList
- Dim rsObj : Set rsObj=conn.Exec("select * from {prefix}Sort where SortType=1 Order by SortOrder Asc,SortID","r1")
替换为:
view plaincopy to clipboardprint?- Dim rsObj : Set rsObj=conn.Exec("select * from {prefix}Sort where SortType=1 and LanguageID="&rCookie("languageID")&" Order by SortOrder Asc,SortID","r1")