%@ Language="VBScript" %>
<%
Dim server_name, script_name, server_port, server_referer
server_name = Request.ServerVariables("SERVER_NAME")
script_name = Request.ServerVariables("SCRIPT_NAME")
server_port = Request.ServerVariables("SERVER_PORT")
server_referer = Request.ServerVariables("HTTP_REFERER")
Dim containing_folder, expected_referer
containing_folder = Left( script_name, InStrRev( script_name, "/", -1, 1 ) )
expected_referer = server_name & containing_folder
If server_port <> 80 And server_port <> 443 Then
expected_referer = server_name & ":" & server_port & containing_folder
End If
server_referer = my_URLDecode( server_referer )
expected_referer = my_URLDecode( expected_referer )
result_errorMessage = ""
If InStr(1, server_referer, expected_referer) = 0 then
result_errorMessage = "Unexpected Referer: " & server_referer & "
" & "Expected Referer: " & expected_referer
Response.Redirect "."
End If
FUNCTION my_URLDecode(str)
'// https://gist.github.com/gwobcke/2773779
Dim objScript
Set objScript = Server.CreateObject("ScriptControl")
objScript.Language = "JavaScript"
my_URLDecode = objScript.Eval("decodeURIComponent(""" & str & """.replace(/\+/g,"" ""))")
Set objScript = NOTHING
END FUNCTION
%>
Video
Light
A video about how Vantablack absorbs more
light than an ordinary black fabric