3단 메뉴 아시죠? 메뉴 트리 구조가 3단으로 된거.
오래전에, VBScript로 만들었던 거... 올립니다.
Javascript라도 뭐... 똑같이 하면 되겠죠? ^^
<html>
<head>
<title>Excite Game 관리자 메뉴</title>
<!--meta http-equiv="Content-Type" content="text/html; charset=ks_c_5601-1987"-->
<meta http-equiv="Content-Type" content="text/html; charset=euc-kr">
<basefont size="2">
<base target="main">
<style>
<!--
.parent1 {font-size: 9pt;
font-weight: bold;
margin-top: 10;
text-indent: -16;
margin-left: 16;
cursor: hand;}
.child1 {font-size: 9pt;
font-face:돋움;
font-weight: normal;
margin-top: 7;
text-indent: -14;
margin-left: 14;
color:#960018;
cursor: hand;}
.child2 {font-size: 9pt;
text-indent: 0;
font-weight: normal;}
a:link,a:visited,a:active {color:#3B89A2;text-decoration:none}
-->
</style>
<script LANGUAGE="VBScript">
<!--
Sub Load()
Dim intParentID, intParentID2
intParentID = AddParent("m1")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 관리자용 사용자 정보 조회")
Call AddChild2(intParentID2, "ID로 조회", "*")
Call AddChild2(intParentID2, "이름으로 조회", "*")
Call AddChild2(intParentID2, "주민등록번호로 조회", "*")
Call AddChild2(intParentID2, "E-mail로 조회", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> ExciteGame News Sender")
Call AddChild2(intParentID2, "보내기", "*")
Call AddChild2(intParentID2, "로그 보기", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 해지사용자 일괄삭제 Tool")
Call AddChild2(intParentID2, "예약된 계정 관리", "*")
Call AddChild2(intParentID2, "목록 보기", "*")
Call AddChild2(intParentID2, "예약 등록", "*")
Call AddChild2(intParentID2, "예약 항목 삭제", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> Group 관리 Tool")
Call AddChild2(intParentID2, "Group 관리 Tool", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 사용자 통계")
Call AddChild2(intParentID2, "일별 사용자 누계", "*")
Call AddChild2(intParentID2, "생년월일별 사용자 통계", "*")
Call AddChild2(intParentID2, "성별 사용자 통계", "*")
Call AddChild2(intParentID2, "지역별 통계", "*")
intParentID = AddParent("m2")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 암호화 유효시간")
Call AddChild2(intParentID2, "암호화 유효시간 설정", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 게임사 IP 관리")
Call AddChild2(intParentID2, "게임사 IP 등록 / 관리", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 일괄처리 로그")
Call AddChild2(intParentID2, "일괄처리 로그 확인", "*")
intParentID = AddParent("m3")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 신청자 목록")
Call AddChild2(intParentID2, "신청자 목록", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 실명확인 대기자 목록")
Call AddChild2(intParentID2, "대기자 목록", "*")
Call AddChild2(intParentID2, "보류된 대기자 목록", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 관리 사용자 목록")
Call AddChild2(intParentID2, "관리 사용자 목록", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 상담원/관리자 추가")
Call AddChild2(intParentID2, "관리자 추가", "*")
Call AddChild2(intParentID2, "상담원 추가", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 작업자별 통계")
Call AddChild2(intParentID2, "기간선택", "*")
Call AddChild2(intParentID2, "기간별 개통 누계", "*")
Call AddChild2(intParentID2, "개통자 총계", "*")
Call AddChild2(intParentID2, "기간별 취소 누계", "*")
Call AddChild2(intParentID2, "취소 총계", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 일별 작업 통계")
Call AddChild2(intParentID2, "일별 작업 통계", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 신청자 검색")
Call AddChild2(intParentID2, "전화요금합산 신청자 검색", "*")
Call AddChild2(intParentID2, "전체 가입자 검색", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> Excel File Download")
Call AddChild2(intParentID2, "Excel File Download", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 개통 통계")
Call AddChild2(intParentID2, "지역별 신청자 통계", "*")
Call AddChild2(intParentID2, "지역별 개통 통계", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 불가 통계")
Call AddChild2(intParentID2, "지역별 불가 통계", "*")
Call AddChild2(intParentID2, "원인별 불가 통계", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 회원 현황")
Call AddChild2(intParentID2, "회원 현황", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 개통 현황")
Call AddChild2(intParentID2, "일일 개통 현황", "*")
Call AddChild2(intParentID2, "월 개통 현황", "*")
Call AddChild2(intParentID2, "개통 처리기간 현황", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 가입자 현황")
Call AddChild2(intParentID2, "신청 서비스별 가입자 현황", "*")
Call AddChild2(intParentID2, "전화가입자 현황", "*")
Call AddChild2(intParentID2, "카드가입자 현황", "*")
Call AddChild2(intParentID2, "남녀 연령별 가입자 현황", "*")
Call AddChild2(intParentID2, "연령별 구성비", "*")
Call AddChild2(intParentID2, "남녀별 구성비", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 해지 가입자 현황")
Call AddChild2(intParentID2, "서비스별", "*")
Call AddChild2(intParentID2, "지역별", "*")
intParentID = AddParent("m4")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> Gateway 관리")
Call AddChild2(intParentID2, "Gateway 추가", "*")
Call AddChild2(intParentID2, "Gateway 삭제", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> Gateway Installation")
Call AddChild2(intParentID2, "Gateway Connection", "*")
Call AddChild2(intParentID2, "Gateway IP & Port 설정", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> Gateway Control")
Call AddChild2(intParentID2, "DB Connection", "*")
Call AddChild2(intParentID2, "DB Logon 설정", "*")
Call AddChild2(intParentID2, "Max. Connection 설정", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> Gateway 상태 보기")
Call AddChild2(intParentID2, "Current Connection", "*")
Call AddChild2(intParentID2, "사용자 ID 조회", "*")
intParentID = AddParent("m5")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 게임회사 관리")
Call AddChild2(intParentID2, "등록", "*")
Call AddChild2(intParentID2, "수정", "*")
Call AddChild2(intParentID2, "검색", "*")
Call AddChild2(intParentID2, "출력", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 게임상품 관리")
Call AddChild2(intParentID2, "등록", "*")
Call AddChild2(intParentID2, "GPCode 자동부여", "*")
Call AddChild2(intParentID2, "수정", "*")
Call AddChild2(intParentID2, "현재 사용중인 사용자 Reset", "*")
Call AddChild2(intParentID2, "검색", "*")
Call AddChild2(intParentID2, "출력", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 결제방법 관리")
Call AddChild2(intParentID2, "등록", "*")
Call AddChild2(intParentID2, "수정", "*")
Call AddChild2(intParentID2, "검색", "*")
Call AddChild2(intParentID2, "출력", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> BillingStat_DTS 관리")
Call AddChild2(intParentID2, "등록", "*")
Call AddChild2(intParentID2, "수정", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> Billing산출 로그 관리")
Call AddChild2(intParentID2, "검색", "*")
Call AddChild2(intParentID2, "출력", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 로그테이블 관리")
Call AddChild2(intParentID2, "등록", "*")
Call AddChild2(intParentID2, "검색", "*")
Call AddChild2(intParentID2, "출력", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> BillingExtraJob 관리")
Call AddChild2(intParentID2, "등록", "*")
Call AddChild2(intParentID2, "검색", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 관리자 관리")
Call AddChild2(intParentID2, "등록", "*")
Call AddChild2(intParentID2, "수정", "*")
Call AddChild2(intParentID2, "검색", "*")
Call AddChild2(intParentID2, "출력", "*")
Call AddChild2(intParentID2, "권한부여", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 관리대상자(SpecialList) 관리")
Call AddChild2(intParentID2, "등록", "*")
Call AddChild2(intParentID2, "수정", "*")
Call AddChild2(intParentID2, "검색", "*")
Call AddChild2(intParentID2, "출력", "*")
Call AddChild2(intParentID2, "트리거", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 전체 통계")
Call AddChild2(intParentID2, "등록된 게임 및 상품", "*")
Call AddChild2(intParentID2, "등록된 일별 유료 가입자", "*")
Call AddChild2(intParentID2, "게임별 유료 가입자", "*")
Call AddChild2(intParentID2, "시간대별 게임 접속횟수", "*")
Call AddChild2(intParentID2, "시간대별 게임 사용시간", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> BillingStat 생성")
Call AddChild2(intParentID2, "자동(DB 조회)", "*")
Call AddChild2(intParentID2, "수동(사용자 입력)", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> BillingExtraJob 생성")
Call AddChild2(intParentID2, "자동(DB 조회)", "*")
Call AddChild2(intParentID2, "수동(사용자 입력)", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> CreateBilliingTable 생성")
Call AddChild2(intParentID2, "자동(DB 조회)", "*")
Call AddChild2(intParentID2, "수동(사용자 입력)", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> CalcBilling 생성")
Call AddChild2(intParentID2, "자동(DB 조회)", "*")
Call AddChild2(intParentID2, "수동(사용자 입력)", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 로그 관리")
Call AddChild2(intParentID2, "검색", "*")
Call AddChild2(intParentID2, "출력", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 사용자를 위한 Billing")
Call AddChild2(intParentID2, "Connection별 사용기록 확인", "*")
Call AddChild2(intParentID2, "사용자별 사용기록 확인", "*")
Call AddChild2(intParentID2, "일자별 사용기록 확인", "*")
Call AddChild2(intParentID2, "사용자 ID로 조회 기능", "*")
Call AddChild2(intParentID2, "월별 조회 기능", "*")
Call AddChild2(intParentID2, "일자별 조회 기능", "*")
Call AddChild2(intParentID2, "게임별 조회 기능", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 게임업체를 위한 Billing")
Call AddChild2(intParentID2, "Connection별 사용기록", "*")
Call AddChild2(intParentID2, "사용자별 사용기록", "*")
Call AddChild2(intParentID2, "일자별 사용기록", "*")
Call AddChild2(intParentID2, "사용자-게임별 사용기록", "*")
Call AddChild2(intParentID2, "게임업체별 사용기록", "*")
Call AddChild2(intParentID2, "Report 출력", "*")
intParentID = AddParent("m6")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 자료실")
Call AddChild2(intParentID2, "자료 리스트", "*")
Call AddChild2(intParentID2, "업로드 자료 관리", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 공지사항")
Call AddChild2(intParentID2, "공지사항", "*")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> 게시판별 관리자 메뉴")
Call AddChild2(intParentID2, "자유게시판 관리자 메뉴", "*")
Call AddChild2(intParentID2, "공지사항 관리자 메뉴", "*")
Call AddChild2(intParentID2, "집중토론 관리자 메뉴", "*")
intParentID = AddParent("m7")
intParentID2 = AddChild1(intParentID, "<img class=""child"" src=""image/sub1_image.gif"" width=""7"" height=""10"" align=""absmiddle""> RealServer 반영")
Call AddChild2(intParentID2, "rcwww 실행", "*")
Call AddChild2(intParentID2, "rcwww 로그 조회", "*")
intParentID = AddParent("m_quit")
End Sub
-->
</script>
</head>
<body bgcolor="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="image/back.gif" onload="Load()">
<script LANGUAGE="VBScript">
<!--
Dim oldColor
Dim intCount, intCount2
intCount = 0
intCount2 = 0
' 요건 맨 첫단계... 자식놈들이 있응게 미리 자식을 가지지 않고 준비만...
Function AddParent(strName)
Dim strID
Dim strTemp
strID = "ID" & intCount
intCount = intCount + 1
strTemp = "<DIV ID=""" & strID & """ CLASS=""parent1""><img CLASS=""parent"" border=0 id=""" & strName & """ src=""image/" & strName & ".gif"" width=""121"" height=""29""></DIV>"
outlineDiv.insertAdjacentHTML "BeforeEnd", strTemp
AddParent = strID
End Function
' 요건 두번째 단계... 아래에 자식놈들이 또 있응게 부모랑 똑같이...
Function AddChild1(strParentID, strName)
Dim strID
Dim strTemp
Dim objTemp
strID = "CID" & intCount2
intCount2 = intCount2 + 1
strTemp = "<DIV ID=""" & strID & """ CLASS=""child1"" STYLE=""display:none"">" & strName & "<img src=""image/sub2_image.gif"" width=""6"" height=""6"" align=""absmiddle""> <DIV CLASS=""child2"" STYLE=""display:none""></DIV></DIV>"
Set objTemp = document.all.item(strParentID)
objTemp.insertAdjacentHTML "BeforeEnd", strTemp
AddChild1 = strID
End Function
' 요건 마지막 3단째... 실제 링크가 걸리는 부분을 추가
Sub AddChild2(strParentID, strName, strUrl)
Dim strTemp
Dim objTemp
strTemp = "<A HREF=""" & strUrl & """ CLASS=""link""><img border=0 src=""image/sub2_image.gif"" width=""6"" height=""6"" align=""absmiddle""> " & strName & "</A><BR>"
Set objTemp = document.all.item(strParentID)
objTemp.children(2).insertAdjacentHTML "BeforeEnd", strTemp
End Sub
' 요건 안씀. : 만일을 위해 준비해둠.
Sub DeleteParent(strParentID)
Dim objTemp
Set objTemp = document.all.item(strParentID)
objTemp.outerHTML = ""
End Sub
' 요건 클릭했을때 보이거나 안보이게 하는 부분 처리
Sub ExpandCollapse()
Dim objElement
Dim objTargetDiv
Dim imgIcon
Dim i
Set objElement = window.event.srcElement
' 첫단계를 클릭하면 자식놈들 갯수만큼 일일이 처리해야 하니까...
If (objElement.className = "parent") Then
Set imgIcon = objElement
For i = 1 To objElement.parentElement.children.length - 1
Set objTargetDiv = objElement.parentElement.children(i)
If objTargetDiv.children.length > 0 Then
If objTargetDiv.style.display = "none" Then
objTargetDiv.style.display = ""
Else
objTargetDiv.style.display = "none"
End If
End If
Next
Else ' 두번째 단계를 클릭하면 나머지 세번째 자식놈들이 모두 한묶음으로 처리되니까...
If objElement.className = "child1" Then
Set objTargetDiv = objElement.children(2)
Else
Set objTargetDiv = objElement.parentElement.children(2)
End If
If objTargetDiv.children.length > 0 Then
If objTargetDiv.style.display = "none" Then
objTargetDiv.style.display = ""
Else
objTargetDiv.style.display = "none"
End If
End If
End If
End Sub
' 마우스로 클릭할 때
Sub DoClick()
If (window.event.srcElement.className = "parent") And (window.event.srcElement.id = "m_quit") Then
location = "*"
End If
If (window.event.srcElement.className = "parent") Or _
(window.event.srcElement.className = "child1") Or (window.event.srcElement.className = "child") Then
ExpandCollapse
End If
window.event.cancelBubble = True
End Sub
' 마우스가 올라왔을 때
Sub DoMouseOver()
Dim imgIcon
If (window.event.srcElement.className = "parent") Then
Set imgIcon = window.event.srcElement
imgIcon.src = "image/" & imgIcon.id & "_ov.gif"
oldColor = window.event.srcElement.style.color
window.event.srcElement.style.color = "#30ABAB"
End If
If window.event.srcElement.className = "child1" Then
oldColor = window.event.srcElement.style.color
window.event.srcElement.style.color = "#AB30AB"
End If
If window.event.srcElement.className = "child" Then
oldColor = window.event.srcElement.parentElement.style.color
window.event.srcElement.parentElement.style.color = "#AB30AB"
End If
If window.event.srcElement.tagName = "A" Then
oldColor = window.event.srcElement.style.color
window.event.srcElement.style.color = "red"
End If
window.event.cancelBubble = True
End Sub
' 마우스가 비켰을 때
Sub DoMouseOut()
Dim imgIcon
If (window.event.srcElement.className = "parent") Then
Set imgIcon = window.event.srcElement
imgIcon.src = "image/" & imgIcon.id & ".gif"
window.event.srcElement.style.color = oldColor
End If
If (window.event.srcElement.className = "child1") Then
window.event.srcElement.style.color = oldColor
End If
If (window.event.srcElement.className = "child") Then
window.event.srcElement.parentElement.style.color = oldColor
End If
If window.event.srcElement.tagName = "A" Then
window.event.srcElement.style.color = oldColor
End If
window.event.cancelBubble = True
End Sub
-->
</script>
<table width="190" border="0" cellspacing="0" cellpadding="0" background="image/left_back.gif" height="100%">
<tr valign="top">
<td height="0"><img src="image/logo.gif"><br>
<br>
<div ID="outlineDiv" LANGUAGE="VBScript" onCLICK="DoClick" onMOUSEOVER="DoMouseOver" onMOUSEOUT="DoMouseOut">
</div>
</tr>
</table>
</body>
</html>
'Tech: > HTML·DHTML' 카테고리의 다른 글
| 웹 브라우저 화면에 이미지가 돌아다닌다!! (0) | 2008.06.26 |
|---|---|
| 3단 메뉴 - 클릭하면 다른 메뉴는 사라지게 (0) | 2008.06.26 |
| 웹 브라우저에서 소스보기 방지 깨는 법 (0) | 2008.06.26 |
| 웹에서 마우스 오른쪽 버튼을 못쓰게 하기(3) (0) | 2008.06.26 |
| 웹 브라우저 스크롤 바 모양 바꾸기 (0) | 2008.06.26 |
