sessionservice.asmx

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

<%@ WebService Class="SessionService" %>

Imports System
Imports System.Web.Services

<WebService( Namespace:="http://yourdomain.com/webservices" )> _
Public Class SessionService : Inherits WebService

<WebMethod( EnableSession:=True )> Public Function GetSessionCounter() As Integer
  Session( "Counter" ) = CINT( Session( "Counter" ) ) + 1
  Return CINT( Session( "Counter" ) )
End Function

<WebMethod( EnableSession:=True )> Public Function GetSessionID() As String
  Return Session.SessionID
End Function

End Class