<% ' player_vod_ad1.asp media = Request("_vodUrl") catid = Request("_catId") startTime = Request("_segSom") endTime = Request("_segEom") articleURL = Request("_articleURL") smi = Request("_smiURL") '내가 본 뉴스 중 20년 뉴스의 스틸 컷이 || 로 구분된 문자열로 넘어와서 예외 처리 still = Request("_stillCut") still = still & "||" arrStill = Split(still, "||", -1, 1) still = arrStill(0) If InStr(still, "http://") = 0 Then 'still = "http://imnews.imbc.com" & still '상용 서비스 시 변경해야 함 still = "http://test.imnews.imbc.com" & still End If replyYN = Request("_replyYN") imgYN = Request("_imgYN") artId = Request("_artId") startPos = Request("_startPos") If startPos <> 0 Then startTime = startPos End If 'response.Write "media : " & media & "
" If instr(media, "newsvod.imnews.imbc.com") = 0 Then If instr(media, "news20vod.imnews.imbc.com") = 0 Then subStr00 = media idx = instrrev(subStr00, "/") domain01 = Mid(subStr00, idx, len(subStr00)) subStr01 = Mid(subStr00, 1, idx-1) ' response.Write "domain01 : " & domain01 & "
" ' response.Write "subStr01 : " & subStr01 & "
" idx = instrrev(subStr01, "/") domain02 = Mid(subStr01, idx, len(subStr01)) subStr02 = Mid(subStr01, 1, idx-1) ' response.Write "domain02 : " & domain02 & "
" ' response.Write "subStr02 : " & subStr02 & "
" idx = instrrev(subStr02, "/") domain03 = Mid(subStr02, idx, len(subStr02)) subStr03 = Mid(subStr02, 1, idx-1) ' response.Write "domain03 : " & domain03 & "
" ' response.Write "subStr03 : " & subStr03 & "
" idx = instrrev(subStr03, "/") domain04 = Mid(subStr03, idx, len(subStr03)) subStr04 = Mid(subStr03, 1, idx-1) ' response.Write "domain04 : " & domain04 & "
" ' response.Write "subStr04 : " & subStr04 & "
" domain = "mms://netizenvod.imnews.imbc.com/files/__icsFiles/afieldfile" domain = domain & domain04 & domain03 & domain02 & domain01 ' response.Write "domain : " & domain & "
" media = domain End if End if 'response.Write "catid : " & catid & "
" 'response.Write "startTime : " & startTime & "
" 'response.Write "endTime : " & endTime & "
" 'response.Write "articleURL : " & articleURL & "
" 'response.Write "smi : " & smi & "
" 'response.Write "still : " & still & "
" 'response.Write "_replyYN : " & replyYN & "
" 'response.Write "_imgYN : " & imgYN & "
" 'response.Write "_artId : " & artId & "
" 'response.Write "_startPos : " & startPos & "
" '---------- 쿠키 저장을 위해 위해 추가 시작(20090806, 손태은) ---------- 'Dim myMcode 'myMcode = "M" & artId 'Call MyMovieNews(myMcode, media, replyYN, imgYN, startTime, endTime, articleURL, smi, still, catid, artId) '---------- 쿠키 저장을 위해 추가 끝(20090806, 손태은) ---------- '---------- 플레이 카운트를 위해 추가 시작(20090709, 손태은) ---------- If LCase(catid) = "undefined" Then catid = "" End If Dim articleId articleId = Request("_artId") If LCase(articleId) = "undefined" Then articleId = "" End If If Trim(articleId) <> "" And Trim(catid) <> "" Then Dim DBHelper Set DBHelper = new clsDBHelper Dim ParamInfo(1) ParamInfo(0) = DBHelper.MakeParam("@strCatId", adVarChar, adParamInput, 12, catid) ParamInfo(1) = DBHelper.MakeParam("@intArtId", adInteger, adParamInput, 0, articleId) DBHelper.ExecSP "UP_COUNT_PLAY_VOD", ParamInfo, Nothing DBHelper.Dispose Set DBHelper = Nothing End If '---------- 플레이 카운트를 위해 추가 끝(20090709, 손태은) ---------- if articleURL <> "" then iframeSrc = articleURL else iframeSrc = "nwdesk_list.html" uriASX = "./trans2asx_ad1.asp?media=" & media & "&catid=" & catid & "&start=" & startTime & "&end=" & endTime 'response.Write "uriASX : " & uriASX & "
" %> MBC뉴스
MBC뉴스 바로가기 도움말
<% End If %>
<% '사용자 브라우저 체크 Dim UserBrowser UserBrowser = Request.ServerVariables("HTTP_USER_AGENT") 'IE 일 경우 If InStr(UserBrowser, "MSIE") Then %>
00:00 / 00:00
<% Else %>
<%=tagBanner%>