displayhashcodes2.aspx

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

<%@Page Language="VB"%>
<%

Dim  name1, name2 As String
Dim hcp As IHashCodeProvider

hcp = CaseInsensitiveHashCodeProvider.Default
name1 = "Richard"
name2 = "RICHARD"


Response.Write( "Hash code one is " & hcp.GetHashCode( name1 ) )
Response.Write( "<BR>")
Response.Write( "Hash code two is " & hcp.GetHashCode( name2 ) )
%>