testsecurity.aspx

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

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

<Script Language="VB" runat="server">

	Public Sub Page_Load(sender As Object, e As EventArgs)
	  ' Create an instance of the SecureSample proxy
	  Dim secureSample As New SecureSample()

	  ' Create a new NetworkCredential class
	  Dim credentials As New NetworkCredential()

	  ' Set username and password values
	  credentials.UserName = "demo"
	  credentials.Password = "00Password"
	  credentials.Domain = "rhoward-laptop"

	  ' Set the credentials
	  secureSample.Credentials = credentials

	  ' Call its WhoAreYou() function
	  lblSecureSample.Text = secureSample.WhoAreYou()  
	End Sub

</Script>
<asp:label id="lblSecureSample" runat="server"/>