# 이코드는 PERL(프로그램)으로 구성되어 있습니다! 수정시 주의를 요구합니다. # *** 로그인 기능을 사용하시려면 1, 사용하지 않으시려면 0으로 변경해주세요. # ani_type="selectbox" : http://blog.mong9.com/index.cgi?page_code=otherpage&code=study_js&num=16 참조 # ani_type="color" : http://blog.mong9.com/index.cgi?page_code=otherpage&code=study_js&page=2&num=4 참조 my $login = 1; print < .m_top_navi{display:inline-block;*display:inline;*zoom:1;line-height:100%} .m_top_navi>li{float:left} .m_top_navi_btn{height:35px;line-height:35px;padding:0 10px !important;font-size:8pt;font-weight:bold;color:#f8b133} .top_navi{display:inline-block;*display:inline;*zoom:1} .top_navi>li{float:left} .top_navi_btn{height:35px;line-height:35px;padding:0 10px !important;font-size:9pt;font-weight:bold;color:#f8b133} .top_navi_btn:hover,.top_navi_btn:focus{text-decoration:underline} .del_page_top_menu{width:auto;margin:0 0 0 -1px !important;border:0px solid #666;border-top:none !important;border-bottom:none !important;background-image:none} END print <

• 문자상담
• 전화상담
• • HOME
  END if ($login == 1) { if (!$session{ID}) { # 로그인이 안되어있으면 print qq|
  • 로그인
  \n|; print qq|
  • 회원가입
  \n|; } else { # 로그인이 되어있으면 if ($session{PERMISSION} >= 500) { print qq|
  • 관리자모드
  \n|; } print qq|
  • 로그아웃
  \n|; print qq|
  • 나의정보
  \n|; } } print <SITEMAP
  • 즐겨찾기 추가