- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
<%
' Set your settings
strFileURL = "http://www.youtube.com/"
' Fetch the file
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.send()
If objXMLHTTP.Status = 200 Then
Response.write(objXMLHTTP.ResponseBody)
End if
Set objXMLHTTP = Nothing
%>
Комментарии (0) RSS