binaryreader.aspx

来自「asp.net技术内幕的书配源码」· ASPX 代码 · 共 19 行

<%@ Import Namespace="System.IO" %>

<%
Dim objFileStream As FileStream
Dim objBinaryReader As BinaryReader
Dim intCounter As Integer

objFileStream = New FileStream( MapPath( "myFile.data" ), FileMode.Open )
objBinaryReader = New BinaryReader( objFileStream )

For intCounter = 0 to 50
  Response.Write( "<li>" & objBinaryReader.ReadInt32() )
Next

objBinaryReader.Close
%>

All Done!