📄 testsecureservice.aspx

📁 asp.net技术内幕的书配源码

💻 ASPX

字号:

<%@ Import Namespace="Services" %>

<Script runat="Server">

Const strUsername As String = "Steve"
Const strPassword As String = "Secret"

Sub Page_Load
  Dim objSecureService As SecureService
  Dim objServiceTicket As ServiceTicket
  Dim objAuthHeader As AuthHeader

  objSecureService = New SecureService
  objServiceTicket = Session( "ServiceTicket" )

  ' Check for ticket existence
  If objServiceTicket Is Nothing Then
    objServiceTicket = objSecureService.Login( strUsername, strPassword )
    Session( "ServiceTicket" ) = objServiceTicket
  End If

  ' Check for ticket expiration
  If objServiceTicket.Expiration < DateTime.Now Then
    objServiceTicket = objSecureService.Login( strUsername, strPassword )
    Session( "ServiceTicket" ) = objServiceTicket
  End If

  ' Call the web service
  If objServiceTicket.IsAuthenticated Then
    objAuthHeader = New AuthHeader
    objAuthHeader.SessionKey = objServiceTicket.SessionKey
    objSecureService.AuthHeaderValue = objAuthHeader
    lblLuckyNumber.Text = objSecureService.GetLuckyNumber()
  Else
    lblLuckyNumber.Text = "Invalid username or password!"
  End If
End Sub

</Script>

<html>
<head><title>TestSecureService.aspx</title></head>
<body>

<asp:Label
  id="lblLuckyNumber"
  EnableViewState="False"
  Runat="Server" />

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -