<%@ Language=VBScript %>
<%
option explicit
response.buffer = true
'**********************************************************************************************
'*功能：特定首页显示程序
'*编码：许泽辉编写
'*日期：2005-03-10
'*功能说明
'* 此页面显示不同的行业所需的仪器
'**********************************************************************************************
%>
<%
On error resume next
const pModuleName="Site_Page" '模块名称
const IsUseUpLoad=1 '是否使用上载功能
Response.write ShowInfo(vSiteName) '调用ShowInfo函数显示内容
Function ShowInfo(vSiteName)
ON error resume next
Dim vTemplatePath
vTemplatePath=mGetTemplePath(vSiteName)
LoadTemplate server.mappath(vTemplatePath) & "/Default.htm", "All"
setVar "TemplatePath",vTemplatePath
SetVar "PageName","(R)产品按系列分类"
mShowHeader vSiteName
mShowNavigationTop vSiteName,"no" '显示当前位置（位于顶部）
'显示产品信息
ShowProductsCatalog vSiteName
mShowNavigationBottom vSiteName,"no" '显示当前位置（位于底部）
mShowFooter vSiteName
Parse "Main",true
parse "All",False
ShowInfo=PrintVar("All") '返回页面的内容
UnloadTemplate
if err then
response.write "显示数据时错误:" & err.description
response.end
end if
End Function
Function ShowProductsCatalog(vSiteName)
Dim vTemplatePath
vTemplatePath=mGetTemplePath(vSiteName)
LoadTemplate server.mappath(vTemplatePath) & "/Products/ProductsCatalog.htm","Main"
if err then
UnloadTemplate
response.write "'加载行业产品类别模板时发生错误::" & err.description
response.end
end if
'\\\\\\\\\\\\\\\\\\\\\左边栏目显示\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
LoadTemplate server.mappath(vTemplatePath) & "/Left_Body.htm","Left_Body"
SetVar "Left_Body_TopTr",""
Show_MenuClass_List vSiteName,"产品中心"
SetVar "Left_Body_Search",""
mShowHot_Link vSiteName
SetVar "Left_Body_White",""
Parse "Left_Body",false
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
setVar "SiteName",vSiteName
'\\\\\\\\\\\\\\\\\\\\\\\\\显示左边的目录\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
ShowProductsList vSiteName,"产品中心" '显示本类别的每个产品
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
End Function
Function ShowProductsList(vSiteName,vParentName)
'response.Write(vParentName)'测试用
Dim ObjMenu_Tree_View,MenuName,MenuUrl
set ObjMenu_Tree_View=New ClsMenu_Tree_View
With ObjMenu_Tree_View
.GetAllByAdvQuery "SELECT MenuName,MenuUrl FROM GB_Menu_Tree_View Where ParentName='"&vParentName&"' And NodeOrder>0 Order by NodeOrder"
While Not .Eof
MenuName=gCheckNullStr(.MenuName)
MenuUrl=gCheckNullStr(.MenuUrl)
SetVar "ProductsListTitle",MenuName
ShowProductsList_small vSiteName,MenuName,MenuUrl
.MoveNext
Parse "Products_List",true
Wend
End With
Set ObjMenu_Tree_View=Nothing
End Function
Function ShowProductsList_small(vSiteName,vMenuName,vMenuUrl)
AddMenuName vMenuUrl,server.urlencode(vMenuName)
Dim ObjMenu_Tree_View1,ProductsListTemp,vMenuUrl1
set ObjMenu_Tree_View1=New ClsMenu_Tree_View
With ObjMenu_Tree_View1
.GetAllByAdvQuery "SELECT MenuName,MenuUrl FROM GB_Menu_Tree_View Where ParentName='"&vMenuName&"' And NodeOrder>0 Order by NodeOrder"
ProductsListTemp=""
If .Eof Then
SetVar "ProductsListImg","![]("&mGetTemplePath(vSiteName)&"/images/none.gif)
"
Else
session("ProductsCatalogList_Img")="None"
While Not .Eof
'response.Write(.MenuName&"
") '测试用
If session("ProductsCatalogList_Img")="None" Then
ShowProductsList_Img gCheckNullStr(.MenuName),vMenuUrl
End If
If ProductEnabled(gCheckNullStr(.MenuName)) Then
vMenuUrl1=gCheckNullStr(.MenuUrl)
AddMenuName vMenuUrl1,server.urlencode(gCheckNullStr(.MenuName))
ProductsListTemp=ProductsListTemp&" "&gCheckNullStr(.MenuName)&"
"
End If
.MoveNext
Wend
End If
SetVar "ProductsListInfo",ProductsListTemp
End With
Set ObjMenu_Tree_View1=Nothing
End Function
Function ShowProductsList_Img(vMenuName,vMenuUrl)
'response.Write(vProductsSort)'测试用
Dim ObjPage_Permit_View,vPageId
set ObjPage_Permit_View=New ClsPage_Permit_View
With ObjPage_Permit_View
.GetAllByAdvQuery "SELECT PageId,PageName FROM GB_Page_Permit_View Where Title='"&vMenuName&"' And Enabled>0 Order by Enabled DESC"
If Not .eof Then
'response.Write(ObjPage_Permit_View.Title&"
") '测试用
vPageId=gCheckNullStr(GetUpInfoToId("Demo_"+pModuleName,.PageId))
If vPageId="" Then
SetVar "ProductsListImg",""
Else
SetVar "ProductsListImg","!["&.PageName&"](../../Base/AdvUpload/ShowImage.asp?FID="&vPageId&")
"
session("ProductsCatalogList_Img")="have"
End If
Else
SetVar "ProductsListImg",""
End If
End With
Set ObjPage_Permit_View=Nothing
End Function
%>