Option Strict On
Imports System.Diagnostics
 
Partial Class _404
    Inherits System.Web.UI.Page
 
	Private _mp3Written As Boolean
 
	Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
		Try
			Dim url$ = Request.QueryString(0)
			'Entfernen von "404;" am Anfang des Querystrings
			url = url.Substring(4)
			Dim uri As New Uri(url)
			'Prüfen auf Test-MP3-File
			If uri.Segments(uri.Segments.Length - 1).ToLower = "unreal.mp3" Then
				'Test-MP3-File wird angefordert.
				Response.Clear()
				Response.ContentType = "audio/mpeg"
				'Das richtige Mp3-File wird glesen un in den ResponseStream geschrieben
				Dim path As String = IO.Path.Combine(Request.PhysicalApplicationPath, _
  "base.mp3")
				Using fs As New IO.FileStream(path, IO.FileMode.Open, IO.FileAccess.Read)
					Using br As New IO.BinaryReader(fs)
						Dim buff As Byte() = br.ReadBytes(CInt(fs.Length))
						Response.OutputStream.Write(buff, 0, buff.Length)
						Response.Flush()
						_mp3Written = True
					End Using
				End Using
			End If
			Debug.WriteLine(url)
			MyBase.OnLoad(e)
		Catch ex As Exception
			Trace.Warn(ex.ToString)
		End Try
 
	End Sub
 
	'Render überschreiben, damit nichts anderes außer den Mp3-Daten'
	' in den ResponseStream geschrieben wird, wenn eine Mp3-Datei
	'gesendet wurde
	Protected Overrides Sub Render(ByVal writer As System.Web.UI.HtmlTextWriter)
		If Not _mp3Written Then
			MyBase.Render(writer)
		End If
	End Sub
End Class