<%@ Language=VBScript %>
<%
option explicit
response.buffer = true
'**********************************************************************************************
'*版权所有 所有权利保留 不发放未经授权的许可
'*功能：查看一组记录中的第一条记录
'*编码：陶天林编写的自动程序
'*日期：2002-6-27
'*更新记录
'*       创建此代码               2002-06-27                  陶天林编写的自动程序
'*       代码精简与优化           2004-05-01                  陈泽军整理，联众科技专用代码
'*           1.采用相对路径，在修改一级目录后无需修改代码
'*用途：按页面名称显示一个最新的页面
'**********************************************************************************************
%>
<!--#include file="../../Include.asp"-->
<%
response.redirect "/GB/Sys/Products/ProductsCatalog.asp?MenuName=%B2%FA%C6%B7%D6%D0%D0%C4"
	on error resume next

	if request("SiteName")="" then
		vSiteName=mDefaultSite
	else
		vSiteName=request("SiteName")
	end if

	if request.querystring("MenuName")="" then
	else
		session("MenuName")=request.querystring("MenuName")
	end if

	response.write ShowPageByName(request("PageName"),vSiteName)

	if err then
		response.write "Show Page Error:" & err.description
		response.end
	end if

function ShowPageByName(vPageName,vSiteName)
	on error resume next

	dim vTemplatePath
	vTemplatePath=GetTemplePath(vSiteName)
	LoadTemplate server.mappath(vTemplatePath) & "/Default.htm", "All"
	SetVar "SiteName",vSiteName
	SetVar "TemplatePath",vTemplatePath

	ShowHeader vSiteName
	ShowFooter vSiteName
	ShowMenu vSiteName

	dim ObjPage_Permit_View
	set objPage_Permit_View=new clsPage_Permit_View
	objPage_Permit_View.GetAllByQuery " and UserType='Department'" &_
			 						  " and Username='" & vSiteName & "'" &_
 									  " and PageName='" & vPageName & "'" &_
                   		              " and PermitName='Page_Owner'" &_
                   		              " and PermitValue=1" &_
                   		              " order by CreateTime desc"
	if objPage_Permit_View.eof then
UnloadTemplate
'		ShowPageByNo "Nothing",vSiteName
		response.redirect "Site_PageTplSee.asp?PkValue=Nothing&SiteName=" & vSiteName
	else
UnloadTemplate
'		ShowPageByNo objPage_Permit_View.PageId,vSiteName
		response.redirect "Site_PageTplSee.asp?PkValue=" & objPage_Permit_View.PageId & "&SiteName=" & vSiteName
	end if

	Parse "All",false
	ShowPageByName=PrintVar("All")
UnloadTemplate
	if err then
		response.write "Load Template Error:" & err.description
		response.end
	end if
end function

%>