default.aspx

来自「Code for VB.NET教程源码 很好的源码」· ASPX 代码 · 共 32 行

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

<%
	Dim br As BinaryReader
	Dim fs As FileStream
	Dim filename As String
	Dim stream As Stream

	filename = Server.MapPath("myfile.bin")
	stream = New FileStream( filename, FileMode.Open )

	br = New BinaryReader( stream )
		
	Dim S As string
	Dim l As long
	Dim i As Integer
	Dim c As char
	Dim f As Single
	Dim d As Decimal
		
	s = br.ReadString()
	l = br.ReadInt64()
	i = br.ReadInt32()
	c = br.ReadChar()
	f = br.ReadSingle()
	d = br.ReadDecimal()

	stream.Close()
%>