<%
if hasAuthority("화면-" & pageCode, "보기") = false then
Call RuntimeException("501", cms_param)
end if
if cms_param <> "" then
bparam = bparam & "?" & replace(cms_param, "&", "$")
end if
temp = Request("article_id")
if temp <> "" then
if bparam = "" then
bparam = bparam & "?article_id=" & temp
else
bparam = bparam & "$article_id=" & temp
end if
end if
temp = Request("board_id")
if temp <> "" then
if bparam = "" then
bparam = bparam & "?board_id=" & temp
else
bparam = bparam & "$board_id=" & temp
end if
end if
%>
<%
'// 임의 코드 부분 주석 처리 2009.03.24
'if len(pageCode) > 5 then
' one_depth = mid(pageCode, 6, 2)
' one_depth = Cint(one_depth)
' if one_depth = 6 then ' 퍼블릭 예약
' if len(pageCode) > 9 then
' two_depth = mid(pageCode, 10, 2)
' two_depth = Cint(two_depth)
' end if
' if len(pageCode) > 11 then
' three_depth = mid(pageCode, 12, 2)
' three_depth = Cint(three_depth)
' end if
' else ' 퍼블릭 예약을 제외한 전체
' if len(pageCode) > 7 then
' two_depth = mid(pageCode, 8, 2)
' two_depth = Cint(two_depth)
' end if
' if len(pageCode) > 9 then
' three_depth = mid(pageCode, 10, 2)
' three_depth = Cint(three_depth)
' end if
' end if
'end If
'If CInt(one_depth) < 10 Then
' str_one_depth = "0" & one_depth
'Else
' str_one_depth = one_depth
'End If
'// 임의 코드 부분 박주석 처리 2009.03.24
if Session("SES_USER_ID") & "" = "" then
login_flag = "n"
else
login_flag = "y"
end If
'// xml 연동 부분 추가사항 2009.03.24
Dim url, MenuArr
url = "http://www.oakvalley.co.kr/new_xml/user_2010.xml"
MenuArr = MenuNavi(url,request("pageCode"))
'response.write MenuArr
mDepth = Split(MenuArr, ":")(0)
mCid = Split(MenuArr, ":")(1)
str_one_depth = Split(MenuArr, ":")(2)
one_depth = Split(mCid, ",")(0)
two_depth = Split(mCid, ",")(1)
three_depth = Split(mCid, ",")(2)
'// xml 연동 부분 추가사항 2009.03.24
'response.write one_depth&","&two_depth&","&tree_depth
if pageCode = "frt010907" then
one_depth = 9
two_depth = 1
str_one_depth = "09"
end If
if pageCode = "frt01020102" then
one_depth = 1
two_depth = 5
three_depth = 3
str_one_depth = "01"
end if
'Response.Write mCid
%>
<% If Request.ServerVariables("REMOTE_ADDR") = "124.137.18.76" Then %>
<% Else %>
<% End If %>
)
