深喉咙企业网站系统社区 » SHLCMS Asp 使用交流专区 » 深喉咙ASP3.2中英文切换的几个小问题修改

bohu 发表于 2009-4-7 15:56

深喉咙ASP3.2中英文切换的几个小问题修改

[i=s] 本帖最后由 bohu 于 2009-4-7 16:13 编辑 [/i]

[b]问题1：在后台切换成英文后前台还是默认为中文[/b]
修改方法：
打开Config/Maincn.asp
将[code]response.Redirect("Maincn.asp")[/code]修改为：[code] if  Syslang = "en" then
    response.Redirect("Maine.asp")
else
response.Redirect("Maincn.asp")
end if[/code][b]问题2：当只需要中文或者英文版的时候，不需要显示中英文切换[/b]
修改方法：
其实这属于模板的问题，只需要修改模板就行。但我总觉得这不是一个长久的方法，建一个站这样做或许省事，但如果你要经常用深喉咙建站的话，想必不想一直做这样的重复劳动。我的方法是建立两个系统标签。
先在后台建立两个系统标签，分别为languagecn和languagee
languagecn的内容为[code]<% call languagecn() %>[/code]languagee的内容为[code]<% call languagee() %>[/code]打开Config/Functionscn.asp和Config/Functionse.asp
分别加上[code]'---------------------------------------
'语言标签
'---------------------------------------
Sub languagecn()
   if  Syslang = "all" then
       response.write("<a href=""Maincn.asp"">中文</a> |  <a href=""Maine.asp"">English</a> |  <a name='StranLink' >繁体中文</a><SCRIPT src=""Config/fanjian.js"" type=text/javascript></SCRIPT> |   ")
   else
       response.write("<a href=""Maincn.asp"">中文</a> |  <a name='StranLink' >繁体中文</a><SCRIPT src=""Config/fanjian.js"" type=text/javascript></SCRIPT> ")

end if
end Sub [/code]和[code]'---------------------------------------
'语言标签
'---------------------------------------
Sub languagee()
   if  Syslang = "all" then
       response.write("<a href=""Maincn.asp"">中文</a> |  <a href=""Maine.asp"">English</a> |   ")
   else
       response.write("")

end if
end Sub [/code]这里说明的是，为了以后使用方便，我将fanjian.js移动到了Config目录下。
再在Config/Skinsclasscn.asp和Config/Skinsclasse.asp下分别加入[code]public sub languagecn()
show = replace(show,"$languagecn$",gettagstr(20))
end Sub [/code][code]public sub languagee()
show = replace(show,"$languagee$",gettagstr(21))
end Sub [/code][color=Red]这里的20，21是指刚才加的系统标签的ID[/color]
然后在admini/Makedefaultcn.asp,admini/Makeindexcn.asp中加入[code]cy.languagecn[/code]在admini/Makedefaulte.asp,admini/Makeindexe.asp中加入[code]cy.languagee[/code]最后在模板中需要放入语言标签的地方引用就行了，中文页面用$languagecn$
英文页面用$languagee$

[color=Red]这样虽然暂时麻烦了点，但以后只需要调用这两个标签就能实现。[/color]

[b]问题3：后台在切换成英文后主栏目名称仍然为中文[/b]
修改方法：打开admini/Msubject.asp
将[code]set rsbig=conn.execute("select * from SHL_Channel")
if not rsbig.eof then
do while not rsbig.eof
response.Write("<a href=""Msubject.asp?action=list&mid=" & rsbig("id") & """>" & rsbig("menu") & "</a>  ")       
rsbig.movenext
loop                  
end if
rsbig.close
set rsbig=nothing[/code]修改为：[code]set rsbig=conn.execute("select * from SHL_Channel")
if  Syslang = "en" then
if not rsbig.eof then
do while not rsbig.eof
response.Write("<a href=""Msubject.asp?action=list&mid=" & rsbig("id") & """>" & rsbig("emenu") & "</a>  ")       
rsbig.movenext
loop                  
end if
else
if not rsbig.eof then
do while not rsbig.eof
response.Write("<a href=""Msubject.asp?action=list&mid=" & rsbig("id") & """>" & rsbig("menu") & "</a>  ")       
rsbig.movenext
loop                  
end if
end if
rsbig.close
set rsbig=nothing[/code]

wang-tom1 发表于 2009-5-13 14:11

需要学习

chenweisky2000 发表于 2009-7-10 21:46

不停的学习。

lpj163 发表于 2009-10-15 16:01

不停的学习。

xiao1ong 发表于 2010-1-3 01:10

学习了 楼主很猛哈 谢谢了

查看完整版本: 深喉咙ASP3.2中英文切换的几个小问题修改