함 찾아봤는데요. 잘 모르겠네여... -_-;;
Touch Player by iMBC
Dim gMusic_id(10)
Dim gMusic_count
Dim conSize
Dim gPlayer
gPlayer = "VIDEO"
conSize = "HALF"
Sub resetGMusic()
gMusic_count = 0
For i = 1 To 10
gMusic_id(i) = ""
Next
End Sub
Sub window_onLoad()
If "1" = "1" Then
Call sizeHalf
Else
Call sizeFull
End If
End Sub
Sub sizeFull()
If conSize = "FULL" Then Exit Sub
oL_menu.innerHtml = "" & chr(13) _
& "
| | " & chr(13) _
& "" & chr(13) _
& " " & chr(13) _
& " " & chr(13) _
& " " & chr(13) _
& " " & chr(13) _
& " " & chr(13) _
& " " & chr(13) _
& " " & chr(13) _
& " " & chr(13) _
& " | | | " & chr(13) _
& " | " & chr(13) _
& " TV" & chr(13) _
& " 뮤직비디오 " & chr(13) _
& " 인터넷방송 " & chr(13) _
& " 라디오" & chr(13) _
& " 음악" & chr(13) _
& "
" & chr(13) _
& " " & chr(13) _
& " | | " & chr(13) _
& "  | " & chr(13) _
& " |
|
" & chr(13)
window.resizeTo 620, 587
conSize = "FULL"
End Sub
Sub sizeHalf()
oL_menu.innerHtml = ""
window.resizeTo 437, 587
conSize = "HALF"
End Sub
Sub oSel_part_onChange()
' msgbox oSel_part.value
End Sub
Sub Search()
If Trim(oT_text.value) = "" Then Exit Sub
Call resetGMusic
linkText = "?main_part=" & oSel_part.value & "&search_text=" & oT_text.value
'msgbox linkText
If oSel_part.value = "IB" Then Exit Sub
window.open "./search_list.asp" & linkText, "oIF_view", "", ""
End Sub
Sub goHelp()
window.open "./help.htm", "_help", "top=0,left=0,width=655,height=478,scrollbars=1,resizable=0,toolbar=0,status=0,alwaysRaised=0"
End Sub
function liveChannel(aiChannel)
{ if ( aiChannel == 1 )
{ linkText = "?main_part=LC&count=1&l1=mms://live.imbc.com/tv"; }
else if ( aiChannel == 2 )
{ linkText = "?main_part=LC&count=1&l1=mms://live.imbc.com/mfm"; }
else if ( aiChannel == 3 )
{ linkText = "?main_part=LC&count=1&l1=mms://live.imbc.com/sfm"; }
if ( aiChannel == 1 )
{ window.open ("./view_video.asp" + linkText, "oIF_view", ""); }
else
{ window.resizeTo(580, 574);
window.open ("./player_audio.asp" + linkText, "_player", ""); }
}
┼ Re..MBC가 안나오는군여...: 박병철(master@bcpark.net) ┼
│ MBC가 링크를 바꾸었나봅니다... 찾아서 연결해볼께여... 감사...^^
│
│ ┼ MBC가 안나오는군여...: 김정훈(zzhunzz@netian.com) ┼
│ │ 운영자님 엠비씨가 안나오는군여...
│ │ 기술상의 문제인가여.아님 써버 문제인가염..
│ ┼ 볼수 있는 방법은 없나염... ┼
┼ ┼
