advanced.aspx

This is a book about vb.you could learn this from this book

<%@ Page Trace="false" Language="VB" %>
<%@ Import Namespace="System.IO" %>

<H2>BinaryReader / BinaryWriter</H2>
<script runat=server>

	' File we are going to create
	
	Const FileToReadWrite As String = "simple.bin"
	
	Protected Sub Page_Load(sender As Object, e As EventArgs)
	
		Dim bw As BinaryWriter
		Dim fs As FileStream
		Dim filename As String
		Dim stream As Stream

		filename = Server.MapPath(FileToReadWrite)
		
		stream = New FileStream( filename, FileMode.Create )
		bw = New BinaryWriter( stream )
		
		Dim l As Long = &H123456789abcdef
		Dim i As Integer = &h12345678
		Dim c As Char = "c"
		Dim f As Single = 1.5f
		Dim d As Decimal = 100.2
		
		bw.Write( "a string" )
		bw.Write( l )
		bw.Write( i )
		bw.Write( c )
		bw.Write( f )
		bw.Write( d )
		
		stream.Close()
	
	End Sub
	

	' Outputs the file offset

	Protected Sub WriteFileOffset( offset As Integer)

		Response.Write( offset.ToString("X6") )
		Response.Write( " ")
	
	End Sub
	
		
	Protected Sub WriteContentsToResponse( reader As BinaryReader )
	
		Dim b As byte
		Dim count As Integer = 0
		Dim offset As Integer = 0
		Const maxBytes As Integer = 16
		Dim bytes(12) As Byte 

		Response.Write("<pre>")

		Try
			WriteFileOffset( offset )

			While True

				b = reader.ReadByte()

				Response.Write( b.ToString("X2") )
				count += 1

				If count = maxBytes Then
				
					Response.Write("<BR>")
					count = 0
					offset += maxBytes
					WriteFileOffset( offset )
				Else
					Response.Write( " " )
				End If
			End While

		Catch e As EndOfStreamException 

			' Catch expected end of stream exception


		catch e As Exception 
		
			' Unexpected exception so throw out to ASP.NET
			Throw e
		
		End Try
		
		Response.Write("</pre>")

	End Sub

</script>



<%
	Dim fileToRead As String
	Dim stream As Stream  

	fileToRead = Server.MapPath(FileToReadWrite)
	stream = File.Open( fileToRead, FileMode.Open )
	WriteContentsToResponse( new BinaryReader( stream ) )
	stream.Close()
	

%>