다른 사이트 소스 끌어오기

<embed src="<%=getWMVURL%>" WIDTH="173" id="result" HEIGHT="105" type="application/x-mplayer2" showcontrols="false" autostart="false" showstatusbar="false" showaudiocontrols="false" showpositioncontrols="false" showtracker="false" id="wmvNews" title="화면을 더블클릭하시면 전체화면으로 감상이 가능합니다."></embed>

<%
 ' 동영상 URL 을 리턴
 Function getWMVURL()
  Dim objSrvHTTP
'  Dim objXMLSend
  Dim url

  On Error Resume next

  url = "http://url"

  Set objSrvHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")

  objSrvHTTP.open "GET",url,False
  objSrvHTTP.SetRequestHeader "Content-Type", "text/html;Charset=euc-kr"
  objSrvHTTP.send

  If objSrvHTTP.Status >= 400 And objSrvHTTP.Status <= 599 Then
   getWMVURL = ""
  Else
   contentIn = Server.HTMLEncode(objSrvHTTP.ResponseText)

   istart = InStr(contentIn, "mms://")
   iend = InStr(istart, contentIn, "'")

   getWMVURL = Mid(contentIn, istart, iend - istart)
  End If
 
  Set objSrvHTTP = Nothing
 End Function
%>