<%@ Language=VBScript %> <% option explicit response.buffer = true '*************************************************************************** '*功能:查看一个已存在的页面 '*编码:许泽辉编写 '*日期:2005-06-22 '*更新记录: '* 创建此代码 2005-06-22 许泽辉编写 '*用途：显示一个标准页面 '*************************************************************************** %> <% const pModuleName="Site_Page" '模块名称 on error resume next response.write gShowPageByNo(vSiteName) if err then response.write "Show Page Error:" & err.description response.end end if function gShowPageByNo(vSiteName) on error resume next dim vTemplatePath vTemplatePath=mGetTemplePath(vSiteName) LoadTemplate server.mappath(vTemplatePath) & "/Default.htm", "All" SetVar "PageName","站点地图" SetVar "SiteName",vSiteName SetVar "TemplatePath",vTemplatePath mShowHeader vSiteName mShowNavigationTop vSiteName,"no" '显示当前位置（位于顶部） ShowPageByNo vSiteName mShowNavigationBottom vSiteName,"no" '显示当前位置（位于底部） mShowFooter vSiteName Parse "All",false gShowPageByNo=PrintVar("All") UnloadTemplate if err then response.write "Load Template Error0:" & err.description response.end end if end function '根据页面号，显示页面 function ShowPageByNo(vSiteName) on error resume next dim vTemplatePath vTemplatePath=mGetTemplePath(vSiteName) LoadTemplate server.mappath(vTemplatePath) & "/Site_Map.htm", "Main" if err then UnloadTemplate response.write "Load Template Error1:" & err.description response.end end if LoadTemplate server.mappath(vTemplatePath) & "/Left_Body.htm","Left_Body" Show_MenuClass_List vSiteName,"关于联众" SetVar "Left_Body_Search","" mShowHot_Link vSiteName SetVar "Left_Body_White","" Parse "Left_Body",false LoadSubSite_Map1 "主页" Parse "Main",true if err then UnloadTemplate response.write "Load Template Error3:" & err.description response.end end if ' ShowPageByNo=PrintVar("News") end function '================================================ '菜单读取开始 '+++++++++++++++++++++++++++++++++++++++++++++++++++ Function LoadSubSite_Map1(vMenuRoot1) '加载简单的菜单 Dim ObjMenu_Tree_View1,MenuNavigation,MenuName1,MenuUrl1,vJ MenuNavigation="" vJ=1 set objMenu_Tree_View1=new clsMenu_Tree_View ObjMenu_Tree_View1.getallbyquery " And ParentName='" & vMenuRoot1 & "' And NodeOrder>0 Order By NodeOrder Asc" if ObjMenu_Tree_View1.eof then else Do While Not ObjMenu_Tree_View1.eof If objMenu_Tree_View1.MenuName="首页" Then ObjMenu_Tree_View1.Movenext End If MenuName1=gCheckNullStr(objMenu_Tree_View1.MenuName) MenuUrl1=gCheckNullStr(objMenu_Tree_View1.MenuUrl) AddMenuName MenuUrl1,server.urlencode(MenuName1) If vJ=1 Then MenuNavigation=MenuNavigation&"
" End If If MenuUrl1="#" Then MenuNavigation=MenuNavigation&"
·"&MenuName1&"" Else MenuNavigation=MenuNavigation&"
·"&MenuName1&"" End If If MenuName1="产品中心" Then MenuNavigation=MenuNavigation&"
" MenuNavigation=MenuNavigation&LoadSubSite_Map1a(MenuName1) '读取此目录的下一级目录 Else MenuNavigation=MenuNavigation&LoadSubSite_Map2(MenuName1,40) '读取此目录的下一级目录 End If ObjMenu_Tree_View1.Movenext vJ=vJ+1 loop end if Set ObjMenu_Tree_View1=Nothing SetVar "Body",MenuNavigation Parse "FormBody",false End Function Function LoadSubSite_Map1a(vMenuRoot1a) Dim ObjMenu_Tree_View1a,MenuNavigationa,MenuName1a,MenuUrl1a MenuNavigationa="" set ObjMenu_Tree_View1a=new clsMenu_Tree_View ObjMenu_Tree_View1a.getallbyquery " And ParentName='" & vMenuRoot1a & "' And NodeOrder>0 Order By NodeOrder Asc" if ObjMenu_Tree_View1a.eof then else Do While Not ObjMenu_Tree_View1a.eof MenuName1a=gCheckNullStr(ObjMenu_Tree_View1a.MenuName) MenuUrl1a=gCheckNullStr(ObjMenu_Tree_View1a.MenuUrl) AddMenuName MenuUrl1a,server.urlencode(MenuName1a) If MenuUrl1a="#" Then MenuNavigationa=MenuNavigationa&"       "&MenuName1a Else MenuNavigationa=MenuNavigationa&"       "&MenuName1a&"" End If MenuNavigationa=MenuNavigationa&LoadSubSite_Map2(MenuName1a,65) '读取此目录的下一级目录 ObjMenu_Tree_View1a.Movenext loop end if Set ObjMenu_Tree_View1a=Nothing LoadSubSite_Map1a=MenuNavigationa End Function '+++++++++++++++++++++++++++++++++++++++++++++++ '根据父菜单读取子菜单 (开始) '+++++++++++++++++++++++++++++++++++++++++++++++++++ Function LoadSubSite_Map2(vMenuRoot2,vTdWidth) '加载简单的菜单 Dim ObjMenu_Tree_View2,MenuNavigation2,MenuName2,MenuUrl2,vI MenuNavigation2="

" vI=1 set ObjMenu_Tree_View2=new clsMenu_Tree_View ObjMenu_Tree_View2.getallbyquery " And ParentName='" & vMenuRoot2 & "' And NodeOrder>0 Order By NodeOrder Asc" if ObjMenu_Tree_View2.eof then else Do While Not ObjMenu_Tree_View2.eof If ProductEnabled(gCheckNullStr(ObjMenu_Tree_View2.MenuName)) or vTdWidth=40 Then MenuName2=gCheckNullStr(ObjMenu_Tree_View2.MenuName) MenuUrl2=gCheckNullStr(ObjMenu_Tree_View2.MenuUrl) AddMenuName MenuUrl2,server.urlencode(MenuName2) If MenuUrl2="#" Then If vI=1 Then MenuNavigation2=MenuNavigation2&MenuName2 Else MenuNavigation2=MenuNavigation2&" | "&MenuName2 End If Else If vI=1 Then MenuNavigation2=MenuNavigation2&""&MenuName2&"" Else MenuNavigation2=MenuNavigation2&" | "&MenuName2&"" End If End If vI=vI+1 End If ObjMenu_Tree_View2.Movenext loop end if Set ObjMenu_Tree_View2=Nothing LoadSubSite_Map2=MenuNavigation2&"

" End Function %>