<% Dim PageTitle Cl.LoadTemplates("other") Dim Action Action=Trim(Request("Action")) Select Case Lcase(Action) Case "copyright" TempStr=Replace(Template.html(3),"{%title%}",Cl.lanstr(0)) PageTitle=Template.Strings(3) Case "ubb" TempStr=Template.html(5) PageTitle=Template.Strings(5) Case "bbs" TempStr=Template.html(6) PageTitle=Template.Strings(6) Case "contact" TempStr=Template.html(7) PageTitle=Template.Strings(7) Case "remit" TempStr=Template.html(8) PageTitle=Template.Strings(8) Case else TempStr=Template.html(2) PageTitle=Template.Strings(2) End Select Cl.Path = Cl.lanstr(1) & "" & Cl.Web_info(0) & " >> " & PageTitle Cl.Title= Cl.Web_info(1) & " >> " & PageTitle Response.write Cl.ReplaceAllFlag(TempStr) '================================================== 'CreateLive CMS Version 3.1 ' Powered by Aspoo.Net ' 'ÓÊÏä: aspoo@126.com Info@aspoo.cn '£Ñ£Ñ: 3315263 596197794 'ÍøÕ¾: www.aspoo.cn www.aspoo.com 'ÂÛ̳: bbs.aspoo.cn bbs.aspoo.com ' 'Copyright (C) 2005 Aspoo.Net All Rights Reserved. '================================================== %>