home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 April / CMCD0404.ISO / Software / Freeware / Programare / Sharpdev / 099bsetup.exe / VBNETSessionStateWebService.xft < prev    next >
Extensible Markup Language  |  2003-09-21  |  1KB  |  46 lines
  1. <?xml version="1.0"?>
  2. <Template Originator="Christoph Wille" Language="VBNET" Created="6/13/2001" LastModified="6/13/2001">
  3.     
  4.     <TemplateConfiguration>
  5.         <Name>${res:Templates.File.VB.SecureVBNetWebService.Name}</Name>
  6.         <Icon>VB.File.WebFile</Icon>
  7.         <Category>VB</Category>
  8.         <LanguageName>VBNET</LanguageName>
  9.         <Description>${res:Templates.File.VB.SecureVBNetWebService.Description}</Description>
  10.     </TemplateConfiguration>
  11.     
  12.     <TemplateFiles>
  13.         <File DefaultExtension=".asmx" DefaultName="Empty">
  14.  
  15. <![CDATA[<%@ WebService Language="VB" Class="YourClassname" %>
  16. ' created on ${DATE} at ${TIME}
  17. Imports System
  18. Imports System.Web.Services
  19.  
  20. Public Class YourClassname : Inherits WebService
  21.     <WebMethod(EnableSession:=true)> Public Function Login(Username As String, Password As String) As Boolean
  22.         ' replace with database code to your liking
  23.         If ("user" = Username And "pwd" = Password) Then
  24.             Session("LoggedIn") = True
  25.             Login = True
  26.         Else
  27.             Session("LoggedIn") = False
  28.         End If
  29.     End Function
  30.  
  31.     <WebMethod(EnableSession:=true)> Public Function IsUserLoggedIn() As Boolean
  32.         If Session("LoggedIn") Is Nothing Then
  33.             IsUserLoggedIn = False
  34.         Else
  35.             IsUserLoggedIn = CBool(Session("LoggedIn"))
  36.         End If
  37.     End Function
  38. End Class
  39. ]]>
  40.         </File>
  41.     </TemplateFiles>
  42.     
  43.     <FileOptions/>
  44.     
  45. </Template>
  46.