联系我们

中强网络软件开发系统开发公司

业务热线:18739370622
0393-6189981
0393-6189981
地址:中原路西段电子商务产业园

投诉建议:

请给QQ946680138留言

当前位置: 网站首页  >> 新闻资讯  >> 网站建设制作  >> 查看详情

网站建设制作

aspcms多语言版配置开启方法
来源: 中强网络软件开发系统开发公司  日期:2019-02-02 21:41:14  点击:  属于:网站建设制作

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>后添加如下代码

view plaincopy to clipboardprint?
  1. <%  
  2. dim dangqianid,dangqianname,rsyy  
  3. dangqianid=rCookie("languageID")  
  4. set rsyy=conn.exec("select languagename from {prefix}Language where LanguageID="&dangqianid,"exe")  
  5. if not rsyy.eof then  
  6. dangqianname=rsyy(0)  
  7. end if  
  8. rsyy.close : set rsyy=nothing  
  9. %>  
  10. <%  
  11. set rsyy=conn.exec("select LanguageID,languagename from {prefix}Language order by LanguageOrder desc,LanguageID desc","exe")  
  12. while not rsyy.eof  
  13. %>  
  14. <%if int(rsyy(0))=int(dangqianid) then%>  
  15. <a href=#><font color=red><%=rsyy(1)%></font></a>  
  16. <%else%>  
  17. <a href="index.asp?id=<%=rsyy(0)%>" target='_top'><%=rsyy(1)%></a>  
  18. <%end if%>  
  19. <%  
  20. rsyy.movenext  
  21. wend  
  22. rsyy.close : set rsyy=nothing  
  23. %>  

6.前台语言切换,在inc文件夹中找到文件aspcms_settingclass.asp,修改成以下代码

view plaincopy to clipboardprint?
  1. <!--#include file="AspCms_MainClass.asp" -->  
  2. <%  
  3. if siteMode=0 then die siteHelp  
  4. dim LanguageAlias : LanguageAlias=rCookie("LanguageAlias")  
  5. dim setting : set setting=new SettingClass  
  6. %>  
  7. <%  
  8. dim id, rsLanguage  
  9. id=getForm("id","get")  
  10. if not isnul(id) then  
  11. set rsLanguage=conn.exec("select * from {prefix}Language where LanguageID="&id,"exe")  
  12. if not rsLanguage.eof then  
  13. wCookie"languageID",id  
  14. wCookie"languagePath",rsLanguage("LanguagePath")  
  15. wCookie"LanguageAlias",rsLanguage("Alias")  
  16. else  
  17. alertMsgAndGo "没有这个语言","-1"  
  18. end if  
  19. rsLanguage.close : set rsLanguage=nothing  
  20. response.Redirect("index.asp")  
  21. end if  
  22. %>  
  23. <!--#include file="AspCms_Language.asp" -->  

7.设置语言链接,在模板文件head.html中,把英文的链接改为,注意?后的哪个id要看后台系统设置-多语言设置中的语言种类前各自的编号。是几的就写几!

view plaincopy to clipboardprint?
  1. <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

view plaincopy to clipboardprint?
  1. Dim rsObj : Set rsObj=conn.Exec("select * from {prefix}Sort where SortType=1 Order by SortOrder Asc,SortID","r1")  

替换为:

view plaincopy to clipboardprint?
  1. Dim rsObj : Set rsObj=conn.Exec("select * from {prefix}Sort where SortType=1 and LanguageID="&rCookie("languageID")&" Order by SortOrder Asc,SortID","r1")