<%
'getrealurl.asp Updated as of June 29, 2007.
<%
'Script by Lil Peck lilpeck@gmail.com - http://equineexpo.com/aspexamples/youtu/
'You may use this in your applications but please leave acknowlegement for me.
'Finds real URL of YouTube flash video file.
'---check referring form page
Dim strDuh 'declaring the variable, a good habit
strDuh = Request.ServerVariables("HTTP_REFERER")'the string we want to compare to the items in the array
'response.write strDuh
Dim sMyArray(4)'what we name our array and how many items in it
'replace following urls with your form page urls
sMyArray(0) = "http://equineexpo.com/aspexamples/youtu/videoform.asp"
sMyArray(1) = "http://www.equineexpo.com/aspexamples/youtu/videoform.asp"
sMyArray(2) = "http://qhtimes.com/aspexamples/youtu/videoform.asp"
sMyArray(3) = "http://www.qhtimes.com/aspexamples/youtu/videoform.asp"
For Each i In sMyArray 'i can be any designation for the items in the array like z or bugguts or whatever
'now we need to set up a Case with with to compare our querystring to the items in the array
Select Case MatchArray 'give your case a name for identification purposes
Case YES
if i = strDuh then
Cal = "YES"
end if
End select
Next
If Cal = "YES" then response.write""
If NOT Cal = "YES" then
'replace following urls with your form page url
response.redirect "http://equineexpo.com/aspexamples/youtu/videoform.asp"
end if
'---end check referring form page
if request.form("v") = "" then
response.redirect "videoform.asp"
end if
%>
<%
dim strVid
strVid = request.form("v")
dim vidID
vidID = Right(strVid, Len(strVid) - InStrRev(strVid, "=") ) 'gets id number from url
Server.ScriptTimeout = 240
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
HttpObj.Url = "http://www.youtube.com/v/" & vidID
HttpObj.FollowRedirects = true
HttpObj.RequestMethod = "GET"
HttpObj.UserAgent = "Mozilla/2.0 (compatible; MSIE 3.0B; Windows NT)"
strResult = HttpObj.GetURL
curURL = HttpObj.Url
%>
<%
InitialString = curURL
Set RegularExpressionObject = New RegExp
With RegularExpressionObject
.Pattern = "http://www.youtube.com/jp.swf"
.IgnoreCase = True
.Global = True
End With
ReplacedString = RegularExpressionObject.Replace(InitialString, "http://www.youtube.com/get_video")
Set RegularExpressionObject = nothing
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
HttpObj.Url = ReplacedString
HttpObj.FollowRedirects = true
HttpObj.RequestMethod = "GET"
HttpObj.UserAgent = "Mozilla/2.0 (compatible; MSIE 3.0B; Windows NT)"
strResult = HttpObj.GetURL
nextURL = HttpObj.Url
%>
<%
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
HttpObj.Url = nextURL
HttpObj.FollowRedirects = true
HttpObj.RequestMethod = "GET"
HttpObj.UserAgent = "Mozilla/2.0 (compatible; MSIE 3.0B; Windows NT)"
strResult = HttpObj.GetURL
fnlURL = HttpObj.Url
%>
<%
'regex script from http://authors.aspalliance.com/brettb/VBScriptRegularExpressions.asp
'converts real flv file url from get_video to get_video_abc123.flv so user doesn't have to rename
InitialString = fnlURL
Set RegularExpressionObject = New RegExp
With RegularExpressionObject
.Pattern = "get_video?"
.IgnoreCase = True
.Global = True
End With
MyRep = "get_video_" & vidID & ".flv"
ReplacedString = RegularExpressionObject.Replace(InitialString, MyRep)
Set RegularExpressionObject = nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>asp script video downloader asphttp youtube</title>
</head>
<body style="font-family: Verdana">
<b><font size="4">ASP script to save/download YouTube videos (v. 4)</font></b><p>
<b>
<br><a href="<%
response.write ReplacedString %>">Click to download video file.</a><br>
<a href="savetosite.asp?vid=<%=vid%>&file=<% response.write ReplacedString %>">Click to save to server.</a><br>
<p>
|
