default.aspx

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

ASPX
108 行
字号 
<%@ Import Namespace="System.IO" %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 7.0">
</HEAD>
<BODY>

<%
	dim myfile as StreamReader
	dim name as string

	myfile = File.OpenText( Server.MapPath("names.txt") )

	name = myfile.ReadLine()

	do while not name is nothing 
		Response.Write( name & "<BR>" )
		name = myfile.ReadLine()
	loop

	myfile.Close()


'	dim books as StreamWriter

 '   books = File.CreateText( Server.MapPath("books.txt") )

'	books.WriteLine("Professional ASP.NET")
'	books.WriteLine("Professional C#")
'	books.Close()


	dim books2 as FileStream

	books2 = new FileStream( Server.MapPath("books.txt"), FileMode.Open )

	Response.Write( books2.Position )
	Response.Write( "<BR>" )
	Response.Write( books2.ReadByte() )
	Response.Write( "<BR>" )

	Response.Write( books2.Position )
	Response.Write( "<BR>" )
	Response.Write( books2.ReadByte() )
	Response.Write( "<BR>" )

	Response.Write( books2.Position )
	Response.Write( "<BR>" )
	Response.Write( books2.ReadByte() )
	Response.Write( "<BR>" )

	Response.Write( books2.Position )
	Response.Write( "<BR>" )
	Response.Write( books2.ReadByte() )
	Response.Write( "<BR>" )

	Response.Write( books2.Position )
	Response.Write( "<BR>" )
	Response.Write( books2.ReadByte() )
	Response.Write( "<BR>" )

	Response.Write( books2.Position )
	Response.Write( "<BR>" )
	Response.Write( books2.ReadByte() )
	Response.Write( "<BR>" )


	dim memstream as MemoryStream
	dim writer as StreamWriter

	dim array() as Byte
	
	Response.Write("<HR>")
	memstream = new MemoryStream()

	dim i as integer

	writer = new StreamWriter( memstream )

	for i = 1 to 10
		writer.Write("Professional ASP.NET")
		writer.Flush()
		Response.Write( memstream.Capacity & ":")
		Response.Write( memstream.Position & "<BR>")
	next 

	memstream.Capacity = 2000
		Response.Write( memstream.Capacity & ":")
		Response.Write( memstream.Position & "<BR>")
	memstream.Capacity = 1000
	array = memstream.ToArray()
	writer.Close()





'	dim backingStore as FileStream

'	backingStore = CType(myfile.BaseStream,FileStream)
'	backingStore.Seek(0,SeekOrigin.Begin)


%>

</BODY>
</HTML>

default.aspx - 源码说明

本页面展示了「Code for VB.NET教程源码 很好的源码」中的 default.aspx 源码文件，采用 ASPX 编程语言编写，共 108 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Code相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?