<%@ Language=VBScript %>
<%
option explicit
response.buffer = true
'***************************************************************************
'*功能:查看一个已存在的页面
'*编码:许泽辉编写
'*日期:2005-06-22t
'*更新记录:
'*       创建此代码           2005-06-22                 许泽辉编写
'*用途：显示一个标准页面
'***************************************************************************
%>
<!--#include file="../../Include.asp"-->
<%
	const pModuleName="Site_Page"					'模块名称

	on error resume next

	response.write gShowPageByNo(request("PkValue"),vSiteName)

	if err then
		response.write "Show Page Error:" & err.description
		response.end
	end if

function gShowPageByNo(vPkValue,vSiteName)
	on error resume next

	dim vTemplatePath
	vTemplatePath=mGetTemplePath(vSiteName)
	LoadTemplate server.mappath(vTemplatePath) & "/Default.htm", "All"
	SetVar "SiteName",vSiteName
	SetVar "TemplatePath",vTemplatePath

	mShowHeader vSiteName
	mShowNavigationTop vSiteName,"yes"	'显示当前位置（位于顶部）

	ShowPageByNo vPkValue,vSiteName

	mShowNavigationBottom vSiteName,"yes"	'显示当前位置（位于底部）
	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(vPageId,vSiteName)
	on error resume next

	dim vTemplatePath
	vTemplatePath=mGetTemplePath(vSiteName)
	LoadTemplate server.mappath(vTemplatePath) & "/Page.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"
		dim MenuName
		MenuName=trim(request.QueryString("MenuName"))
		If MenuName="" Then
			Show_MenuClass_Child vSiteName,"公司简介"
		Else
			Show_MenuClass_Child vSiteName,MenuName
		End If
		SetVar "Left_Body_Search",""
		mShowHot_Link vSiteName
		SetVar "Left_Body_White",""
		Parse "Left_Body",false

	dim objSite_Page
	set objSite_Page=new clsSite_Page
	with objSite_Page
		.GetOneByPkValue vPageId
		if .eof then
			SetVar "FormBody",""
		else
			If int(gCheckNullStr(.Enabled))>1999 and session("sitedj")<2 Then
	set objSite_Page=nothing
UnloadTemplate
				response.redirect "/GB/Base/Common/Return.asp?Msg=请高级用户登录后再访问该页面&Img=f&ToUrl=" & server.UrlEncode("../../Sys/Site/Login.asp?SiteName=联众科技")
			ElseIf int(gCheckNullStr(.Enabled))>999 and session("sitedj")<1 Then
	set objSite_Page=nothing
UnloadTemplate
				response.redirect "/GB/Base/Common/Return.asp?Msg=请普通用户登录后再访问该页面&Img=f&ToUrl=" & server.UrlEncode("../../Sys/Site/Login.asp?SiteName=联众科技")
			ElseIf int(gCheckNullStr(.Enabled))=0 and session("sitedj")<4 Then
				SetVar "FormBody",""
				SetVar "Title",gCheckNullStr(.Title)
				SetVar "PageName",gCheckNullStr(.Title)
			else
				SetVar "Body",gTextToHtml(.Body,.BodyType)
				SetVar "Title",gCheckNullStr(.Title)
				SetVar "PageName",gCheckNullStr(.Title)

				SetVar "NotFound",""
			end if
		end if
	end with
	set objSite_Page=nothing
	Parse "Main",true

	if err then
UnloadTemplate
		response.write "Load Template Error3:" & err.description
		response.end
	end if

'	ShowPageByNo=PrintVar("News")
end function
%>