<%
'******************************************************************************************************************
'File Name : inc_elis.asp
'File Description : ELIS System Function
'Developer : Taejin Kwon
'Date : 8/31/2009
'Modifier(Date) : None
'******************************************************************************************************************
Sub subTabIndexLink(isWhere)
Dim sThisPage
Dim tdWidth, active_TD, inactive_TD
'//sThisPage = FuncStrCurrentPage()
tdWidth = 105
active_TD = "3F6586" '"#8FA3F1" '"#98A6BA"
inactive_TD = "#EFEFEF"
'Response.Write sThisPage & "
"
Dim i, url, htmContent, htmTempTD
If IsArray(arrTabTitle) Then
If Ubound(arrTabTitle) > -1 Then
For i = 0 To Ubound(arrTabTitle)
'Response.write arrTabLink(i) & "
""CATEGORY", "SERVICE", "ORDERS"
Select Case arrTabLink(i)
CASE "MAIN"
url = ADMIN_ROOT&"/main_m.asp"
CASE "MEMBER"
url = ADMIN_ROOT&"/member_m.asp"
CASE "BOARD"
url = ADMIN_ROOT&"/board_1.asp"
CASE "CONTENT"
url = ADMIN_ROOT&"/content_m.asp"
CASE "CATEGORY"
url = ADMIN_ROOT&"/category_m.asp"
CASE "SERVICE"
url = ADMIN_ROOT&"/service_m.asp"
CASE "ORDERS"
url = ADMIN_ROOT&"/order_m.asp"
'CASE "NEWS"
' url = ADMIN_ROOT&"/news_m.asp"
End Select
pLayer = "onmouseover=""javascript:GLayerSH('"&arrTabLink(i)&"','show')"" onmouseout=""javascript:GLayerSH('"&arrTabLink(i)&"','hide')"" "
'//Active Tab
If Instr(isWhere, arrTabLink(i)) Then
htmTempTD = FuncRenderText(arrTabTitle(i), " style='font-family: tahoma, arial, sans-serif; font-size: 12px; vertical-align:top; padding-left:5px; padding-right: 5px; padding-bottom:10px;' color='#FFFFFF'")
htmTempTD = FuncRenderBold(htmTempTD)
htmTempTD = FuncRenderTD(htmTempTD, " width='" & tdWidth & "' height='25' align='center' bgcolor='" & active_TD & "'")
Else
htmTempTD = FuncRenderText(arrTabTitle(i), " style='font-family: tahoma, arial, sans-serif; font-size: 11px; vertical-align:middle; padding-left:10px; padding-right: 10px;'")
htmTempTD = FuncRenderText(htmTempTD, " color='#666666'")
htmTempTD = FuncRenderLink(url, htmTempTD, "")
'/htmTempTD = FuncRenderTD(htmTempTD, " width='" & tdWidth & "' height='25' align='center' bgcolor='" & inactive_TD & "'")
htmTempTD = FuncRenderTDMenu(htmTempTD, " width='" & tdWidth & "' height='25' align='center' bgcolor='" & inactive_TD & "'", pLayer)
End If
IF i > 0 Then
htmTempTD = FuncRenderTD(htmTempTD, " width='1' height='25' align='center' bgcolor='#CCCCCC'")
End IF
htmContent = htmContent & htmTempTD & vbCRLF
Next
htmTempTD = FuncRenderTD(htmTempTD, " width='1' height='25' align='center' bgcolor='#CCCCCC'")
htmContent = vbCRLF & FuncRenderTR(htmContent, NULL) & vbCRLF
htmContent = vbCRLF & FuncRenderTable(htmContent, " border='0' cellspacing='0' cellpadding='0' height='20' align='Left'") & vbCRLF
htmContent = vbCRLF & htmContent & vbCRLF
htmContent = htmContent & vbCRLF
Else
htmContent = ""
End If
Else
htmContent = ""
End If
Response.write htmContent
End Sub
%>
<%Sub subTopMenu()%>
<%
End Sub
%>