default.aspx

来自「This is a book about vb.you could learn 」· ASPX 代码 · 共 72 行

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

	Dim movieList As ArrayList
	
	Protected Sub Page_Load(sender As Object, e As EventArgs)
	
		If IsPostBack = True Then
			movieList = ViewState("movies")
		Else
			movieList = New ArrayList()
			dim i As Integer

			for i=0 To 1000
				movieList.Add( i.ToString() )
			Next

			ViewState("movies") = movieList
		End If

	End Sub
	
</script>

<h3>Binary Search</h3>

<%
	Dim i As Integer
	Dim startTime As Integer
	Dim endTime As Integer
	Dim itemIndex As Integer
	Dim list As New ArrayList()

	itemIndex = 0


	' Basic search

	startTime = Environment.TickCount

	for i=0 To 1000
		itemIndex = movieList.IndexOf("50")
	Next

	endTime = Environment.TickCount

	Response.Write("<P>Search time was " & (endTime-startTime).ToString() )

	Response.Write("<P>Index was " & itemIndex.ToString() )
	
	
	' Binary Search

	startTime = Environment.TickCount

	for i=0 To 1000
		itemIndex = movieList.BinarySearch("123")
	Next

	endTime = Environment.TickCount

	Response.Write("<P>Search time was " & (endTime-startTime).ToString() )




%>


<p style="color:red" id="status" EnableViewState="False" runat="server" />