- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 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
Добавить комментарий